305 	float		wt_float[40];  variable
342 			wt_float[k] = 0.0;
345 			wt_float[k] =  w;
371 			if ((W = wt_float[K]) != 0.0) {	\
481 	float		wt_float[40];  variable
513 	for (k =    0; k < 40; k++) wt_float[k] =  SASR( d[k], scal );
537 			W = wt_float[K];		\
647 	register float	wt_float;  variable
663 	wt_float = (float)wt_max;
673 		L_result = wt_float * dp_float[best_k - lambda];
722 	float		wt_float[40];  variable
727 	for (k = 0; k < 40; ++k) wt_float[k] = (float)d[k];
751 			W = wt_float[K];		\