Searched refs:BGAMSQ (Results 1 – 2 of 2) sorted by relevance
56 double precision BGAM, BGAMSQ, BIG, BIGLOG, BY(NUM) local323 BGAMSQ = ONE326 BGAMSQ = BGAM**2334 BGAMSQ = BGAMSQ / V**2373 G0 = D2VAL - BGAMSQ * (EM1 / PIV2)374 G1 = (Q2DXPV**2/HALFPI) * BGAMSQ * (TWO+V2) / (ONE-V2)376 G0 = (ONE / TAN(PIV2)) - Q2DXPV**2 * BGAMSQ / PIV2377 G1 = (Q2DXPV**2/HALFPI) * BGAMSQ * (TWO+V2) / (ONE-V2)399 PSIZ = -BGAMSQ * Q2DXPV**2 / (HALFPI*X)
56 real BGAM, BGAMSQ, BIG, BIGLOG, BY(NUM) local323 BGAMSQ = ONE326 BGAMSQ = BGAM**2334 BGAMSQ = BGAMSQ / V**2373 G0 = D2VAL - BGAMSQ * (EM1 / PIV2)374 G1 = (Q2DXPV**2/HALFPI) * BGAMSQ * (TWO+V2) / (ONE-V2)376 G0 = (ONE / TAN(PIV2)) - Q2DXPV**2 * BGAMSQ / PIV2377 G1 = (Q2DXPV**2/HALFPI) * BGAMSQ * (TWO+V2) / (ONE-V2)399 PSIZ = -BGAMSQ * Q2DXPV**2 / (HALFPI*X)