Lines Matching refs:eph
45 complex double erv, ezv, erh, eph, cl1, cl2, con; in somnec() local
109 evlua( &erv, &ezv, &erh, &eph ); in somnec()
120 ar1[ir+ith*11+330]=eph*con; in somnec()
127 ar2[ir+ith*17+255]=eph*con; in somnec()
134 ar3[ir+ith*9+216]=eph*con; in somnec()
161 eph=cl1*tfac2-cl2; in somnec()
167 eph=-erh; in somnec()
173 ar1[0+ith*11+330]=eph; in somnec()
288 complex double *erh, complex double *eph ) in evlua() argument
329 *eph=-conj(ck2sq*(ans[3]+ans[5])); in evlua()
419 *eph=-conj(ck2sq*(ans[3]+ans[5])); in evlua()