169   complex double eth, eph, curi, ex, ey, ez, epsc;  in main()  local
1648 		  eph= ex* t2x[itmp1]+ ey* t2y[itmp1]+ ez* t2z[itmp1];  in main()
1651 		  ephm= cabs( eph);  in main()
1652 		  epha= cang( eph);  in main()
4901     complex double *eth, complex double *eph )  in ffld()  argument
5132       *eph=( cix* phx+ ciy* phy)* CONST3;  in ffld()
5192   *eph= ex* phx+ ey* phy;  in ffld()
5276   complex double ezv, erh, eph, ezh, ex, ey;  in gfld()  local
5400     gwave( &erv, &ezv, &erh, &ezh, &eph);  in gfld()
5402     eph= eph* sph* calp;  in gfld()
5404     ex= erh* rhx- eph* rhy;  in gfld()
5405     ey= erh* rhy+ eph* rhx;  in gfld()
5457     complex double *erh, complex double *ezh, complex double *eph )  in gwave()  argument
5528   *eph=-( x1- x2+ x3- x4+ x5+ x6)* (-CONST4);  in gwave()
8633     complex double  eth, eph, erd;  in rdpat()  local
8786 	  ffld( tha, pha, &eth, &eph);  in rdpat()
8790 	      &eth, &eph, &erd, zrati, ksymp);  in rdpat()
8798 	ephm2= creal( eph* conj( eph));  in rdpat()
8800 	epha= cang( eph);  in rdpat()
10301   complex double  erv, ezv, erh, ezh, eph, er, et, hrv, hzv, hrh;  in sflds()  local
10349     gwave( &erv, &ezv, &erh, &ezh, &eph);  in sflds()
10361     eph= eph+ et;  in sflds()
10366     eph= eph* sn* sph;  in sflds()
10368     e[0]=( erh* rhx+ eph* phx)* s;  in sflds()
10369     e[1]=( erh* rhy+ eph* phy)* s;  in sflds()
10391   intrp( r2, thet, &erv, &ezv, &erh, &eph );  in sflds()
10397   eph= sn* sph* xx2* eph;  in sflds()
10398   e[0]= erh* rhx+ eph* phx;  in sflds()
10399   e[1]= erh* rhy+ eph* phy;  in sflds()