| Symbol | Description | Uses |
| AK | 10 |
| File | Line number | Procedure | Code |
| ./pkg/fizhi/slprs.F | 38 | SLPRS |
AK = GETCON('KAPPA') |
| ./pkg/fizhi/slprs.F | 67 | SLPRS |
TM(I) = TM(I) * (PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
| ./pkg/fizhi/slprs.F | 69 | SLPRS |
TM(I) = THZ(I,LM)*(PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
| ./pkg/sphere/sphere.F | 556 | HELMHOLTZ |
REAL C, CM, AK |
| ./pkg/sphere/sphere.F | 583 | HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
| ./pkg/sphere/sphere.F | 584 | HELMHOLTZ |
P(K) = S*P(K-1)/AK |
| ./pkg/sphere/sphere.F | 585 | HELMHOLTZ |
A(M) = AK |
| ./pkg/sphere/sphere.F | 591 | HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
| ./pkg/sphere/sphere.F | 592 | HELMHOLTZ |
P(K) =(S*P(K-1)-P(K-2)*A(M))/AK |
| ./pkg/sphere/sphere.F | 593 | HELMHOLTZ |
A(M) = AK |