| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
907 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
908 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
943 |
ASTRO |
T1 = FUN(T0,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
945 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
946 |
ASTRO |
T4 = FUN(ZERO+T3,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
950 |
ASTRO |
T1 = FUN(TH(KM),PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
951 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
952 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
953 |
ASTRO |
T4 = FUN(TH(KM)+T3,PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
977 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/chronos/chronos.F |
768 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/chronos/chronos.F |
825 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |