/* -*- Mode: C; tab-width: 4 -*- */
/* flow --- flow of strange bees */
-#if !defined( lint ) && !defined( SABER )
+#if 0
static const char sccsid[] = "@(#)flow.c 4.10 98/04/24 xlockmore";
-
#endif
/*-
double A=0;
for(i=0; i<3; i++) A+=C[j][i]*C[j][i]; /* sum squares */
A=sqrt(A);
- for(i=0; i<3; i++) C[j][i]/=A;
+ if (A != 0) /* #### is this right? */
+ for(i=0; i<3; i++) C[j][i]/=A;
}
/* Interpolate between Center and Trained Bee matrices */