| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1151 |
TIME2FREQ2 |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1152 |
TIME2FREQ2 |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
378 |
GET_TIME |
IDAY = MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
658 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
661 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
732 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
735 |
TIC_TIME |
NSEC = IDAY *NSDAY + SEC |
|
./pkg/fizhi/fizhi_clockstuff.F |
981 |
ASTRO |
IDAY = DAY + MNDY(MONTH+12*MOD(YEAR,4) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
982 |
ASTRO |
IDAYP1 = MOD( IDAY,DAYSCY) + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
983 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/update_earth_exports.F |
705 |
GETLGR |
SUBROUTINE GETLGR(sec,IMON,IDAY,ALAT,ITYP,NCHPS,nchpdim, |
|
./pkg/fizhi/update_earth_exports.F |
777 |
GETLGR |
IF (IDAY .LT. MIDMON) THEN |
|
./pkg/fizhi/update_earth_exports.F |
785 |
GETLGR |
IF (IDAY .LT. MIDMON) THEN |
|
./pkg/fizhi/update_earth_exports.F |
788 |
GETLGR |
ID = IDAY + DAYS(K1) |
|
./pkg/fizhi/update_earth_exports.F |
792 |
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) |