64 	longword	L_max, L_power;  variable
117 	L_power = 0;
123 		L_power += L_temp * L_temp;
125 	L_power <<= 1;	/* from L_MULT */
134 	if (L_max >= L_power) {
139 	temp = gsm_norm( L_power );
142 	S = SASR( L_power << temp, 16 );
167 	longword	L_max, L_power;  variable
252 	L_power = 0;
258 		L_power += L_temp * L_temp;
260 	L_power <<= 1;	/* from L_MULT */
269 	if (L_max >= L_power) {
274 	temp = gsm_norm( L_power );
277 	S = SASR( L_power << temp, 16 );
308 	longword	L_max, L_power;  variable
432 	L_power = 0;
438 		L_power += L_temp * L_temp;
440 	L_power <<= 1;	/* from L_MULT */
449 	if (L_max >= L_power) {
454 	temp = gsm_norm( L_power );
457 	S = SASR( L_power << temp, 16 );
484 	longword	L_max, L_power;  variable
597 	L_power = 0;
603 		L_power += L_temp * L_temp;
605 	L_power <<= 1;	/* from L_MULT */
614 	if (L_max >= L_power) {
619 	temp = gsm_norm( L_power );
622 	S = SASR( L_power << temp, 16 );
653 	register float	L_result, L_max, L_power;  variable
690 	L_power = 0;
693 		L_power += f * f;
696 	if (L_max >= L_power) {
705 	lambda = L_max / L_power * 32768.;
725 	register float	L_max, L_power;  variable
808 	L_power = 0;
811 		L_power += f * f;
814 	if (L_max >= L_power) {
823 	lambda = L_max / L_power * 32768.;