| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1136 |
TIME2FREQ2 |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1137 |
TIME2FREQ2 |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
364 |
GET_TIME |
IDAY = MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
644 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
647 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
718 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
721 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
966 |
ASTRO |
IDAY = DAY + MNDY(MONTH+12*MOD(YEAR,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
IDAYP1 = MOD( IDAY,DAYSCY) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/update_earth_exports.F |
696 |
GETLGR |
SUBROUTINE GETLGR(sec,IMON,IDAY,ALAT,ITYP,NCHPS,nchpdim, |
|
./pkg/fizhi/update_earth_exports.F |
771 |
GETLGR |
IF (IDAY .LT. MIDMON) THEN |
|
./pkg/fizhi/update_earth_exports.F |
779 |
GETLGR |
IF (IDAY .LT. MIDMON) THEN |
|
./pkg/fizhi/update_earth_exports.F |
782 |
GETLGR |
ID = IDAY + DAYS(K1) |
|
./pkg/fizhi/update_earth_exports.F |
786 |
GETLGR |
ID = IDAY |
|
./pkg/chronos/chronos.F |
333 |
GET_TIME |
IDAY = MNDY( MONTH ,MOD(YEAR ,4)+1 ) |
|
./pkg/chronos/chronos.F |
608 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH ,MOD(YEAR ,4)+1 ) |
|
./pkg/chronos/chronos.F |
611 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/chronos/chronos.F |
814 |
ASTRO |
IDAY = DAY + MNDY(MONTH,MOD(YEAR,4)+1) |
|
./pkg/chronos/chronos.F |
815 |
ASTRO |
IDAYP1 = MOD( IDAY,DAYSCY) + 1 |
|
./pkg/chronos/chronos.F |
816 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |