File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1131 |
TIME2FREQ2 |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
1132 |
TIME2FREQ2 |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
1139 |
TIME2FREQ2 |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
1151 |
TIME2FREQ2 |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
1163 |
TIME2FREQ2 |
idaynext = MNDY(monthnext+12*mod(yearnext,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
343 |
GET_TIME |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
344 |
GET_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
363 |
GET_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
378 |
GET_TIME |
IDAY = MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
385 |
GET_TIME |
IDAY2 = MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
456 |
INTERP_TIME |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
461 |
INTERP_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
491 |
INTERP_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
500 |
INTERP_TIME |
time00 = DAY + MNDY(MONTH +12*MOD(YEAR ,4)) + float(sec )/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
501 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1+12*MOD(YEAR1,4)) + float(sec1)/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
502 |
INTERP_TIME |
time2 = DAY2 + MNDY(MONTH2+12*MOD(YEAR2,4)) + float(sec2)/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
626 |
TIC_TIME |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
627 |
TIC_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
637 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
658 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
659 |
TIC_TIME |
IDAY0 = (DAY0-1) + MNDY( MONTH0+12*MOD(YEAR0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
695 |
TIC_TIME |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
696 |
TIC_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
711 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
732 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
733 |
TIC_TIME |
IDAY0 = (DAY0-1) + MNDY( MONTH0+12*MOD(YEAR0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
772 |
TIC_TIME |
iday0 = (day0-1) + MNDY(month0+12*mod(year0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
913 |
ASTRO |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
919 |
ASTRO |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
952 |
ASTRO |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
981 |
ASTRO |
IDAY = DAY + MNDY(MONTH+12*MOD(YEAR,4) ) |
./pkg/chronos/chronos.F |
300 |
GET_TIME |
INTEGER MNDY(12,4) |
./pkg/chronos/chronos.F |
301 |
GET_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/chronos/chronos.F |
319 |
GET_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
./pkg/chronos/chronos.F |
333 |
GET_TIME |
IDAY = MNDY( MONTH ,MOD(YEAR ,4)+1 ) |
./pkg/chronos/chronos.F |
339 |
GET_TIME |
IDAY2 = MNDY( MONTH ,MOD(YEAR ,4)+1 ) |
./pkg/chronos/chronos.F |
410 |
INTERP_TIME |
INTEGER MNDY(12,4) |
./pkg/chronos/chronos.F |
415 |
INTERP_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/chronos/chronos.F |
445 |
INTERP_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
./pkg/chronos/chronos.F |
454 |
INTERP_TIME |
time = DAY + MNDY(MONTH ,MOD(YEAR ,4)+1) + float(sec )/86400. |
./pkg/chronos/chronos.F |
455 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1,MOD(YEAR1,4)+1) + float(sec1)/86400. |
./pkg/chronos/chronos.F |
456 |
INTERP_TIME |
time2 = DAY2 + MNDY(MONTH2,MOD(YEAR2,4)+1) + float(sec2)/86400. |
./pkg/chronos/chronos.F |
576 |
TIC_TIME |
integer MNDY(12,4) |
./pkg/chronos/chronos.F |
577 |
TIC_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/chronos/chronos.F |
587 |
TIC_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
./pkg/chronos/chronos.F |
608 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH ,MOD(YEAR ,4)+1 ) |
./pkg/chronos/chronos.F |
609 |
TIC_TIME |
IDAY0 = (DAY0-1) + MNDY( MONTH0,MOD(YEAR0,4)+1 ) |
./pkg/chronos/chronos.F |
758 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
./pkg/chronos/chronos.F |
764 |
ASTRO |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/chronos/chronos.F |
785 |
ASTRO |
MNDY(I,1) = MNDY(I-12,1) + 365 |
./pkg/chronos/chronos.F |
814 |
ASTRO |
IDAY = DAY + MNDY(MONTH,MOD(YEAR,4)+1) |