168   double tim1, tim, tim2, etha, fr, fr2, cmag, ph, ethm, ephm, epha;  in main()  local
1649 		  ethm= cabs( eth);  in main()
1658 		      ethm, etha, ephm, epha, creal(ex), cimag(ex),  in main()
8629     double phi, pha, thet, tha, erdm=0., erda=0., ethm2, ethm, *gain = NULL;  in rdpat()  local
8796 	ethm= sqrt( ethm2);  in rdpat()
8826 	    tstor2=2.* ephm* ethm* cdfaz;  in rdpat()
8917 	  ethm= ethm* wlam;  in rdpat()
8922 	    ethm= ethm* exrm;  in rdpat()
8932 	      tilta, isens, ethm, etha, ephm, epha );  in rdpat()
8942 		fprintf( plot_fp, "%12.4E %12.4E %12.4E\n", thet, ethm, etha );  in rdpat()
8951 		fprintf( plot_fp, "%12.4E %12.4E %12.4E\n", phi, ethm, etha );  in rdpat()
8996 	    rfld, phi, thet, ethm, etha, ephm, epha, erdm, erda );  in rdpat()