| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
964 |
ASTRO |
KM = INT(EQNX) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
965 |
ASTRO |
FAC = KM-EQNX |
|
./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 |
978 |
ASTRO |
KP = MOD(KM,DAYSCY) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
979 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
980 |
ASTRO |
KM = KP |