| File |
Line number |
Procedure |
Code |
|
./pkg/chronos/chronos.F |
758 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/chronos/chronos.F |
767 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/chronos/chronos.F |
768 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4036 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4040 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4060 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4067 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4071 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4077 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4084 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4089 |
VTRI2 |
_RL Y(irun,K+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
4101 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
936 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
945 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
946 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/sphere/sphere.F |
547 |
HELMHOLTZ |
REAL Y(LMAXLMT+LMAXLMT) |
|
./pkg/sphere/sphere.F |
552 |
HELMHOLTZ |
SAVE LMAXOLD, ISECT, X, Y, Z |
|
./pkg/sphere/sphere.F |
561 |
HELMHOLTZ |
Y(L) = SNGL(DSQRT(DBLE(FLOAT(L)))) |
|
./pkg/sphere/sphere.F |
562 |
HELMHOLTZ |
Y(L+LMAX) = SNGL(DSQRT(DBLE(FLOAT(L+LMAX)))) |
|
./pkg/sphere/sphere.F |
581 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
589 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./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 |
4021 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4028 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4032 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4038 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4045 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4050 |
VTRI2 |
_RL Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4062 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_clockstuff.F |
934 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/fizhi/fizhi_clockstuff.F |
943 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |