| File |
Line number |
Procedure |
Code |
|
./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 |
971 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
974 |
ASTRO |
T1 = FUN(TH(KM) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
975 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
976 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
977 |
ASTRO |
T4 = FUN(TH(KM)+T3 ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
979 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
992 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
993 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |