| File |
Line number |
Procedure |
Code |
|
./pkg/sphere/sphere.F |
265 |
SHCROTATE |
REAL SINA, COSA, C, S |
|
./pkg/sphere/sphere.F |
281 |
SHCROTATE |
C = SHC(K+M) |
|
./pkg/sphere/sphere.F |
283 |
SHCROTATE |
SHC(K+M) = COSA*C + SINA*S |
|
./pkg/sphere/sphere.F |
284 |
SHCROTATE |
SHC(K-M) =-SINA*C + COSA*S |
|
./pkg/sphere/sphere.F |
554 |
HELMHOLTZ |
REAL C, CM, AK |
|
./pkg/sphere/sphere.F |
569 |
HELMHOLTZ |
C = SNGL(DSQRT(1.0D0-DBLE(S)*DBLE(S))) |
|
./pkg/sphere/sphere.F |
574 |
HELMHOLTZ |
CM = C * CM |
|
./pkg/fizhi/fizhi_turb.F |
3997 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4001 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4013 |
VTRI0 |
C(I,L) = C(I,L) * A(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
4014 |
VTRI0 |
A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4015 |
VTRI0 |
F(I,L) = F(I,L) + F(I,LM1) * C(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4045 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4049 |
VTRI2 |
_RL A(irun,K),B(irun,K),C(irun,K),F(irun,K) |
|
./pkg/fizhi/fizhi_turb.F |
4056 |
VTRI2 |
F(I,L) = F(I,L) + F(I,L-1) * C(I,L) |