File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1116 |
TIME2FREQ2 |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
1117 |
TIME2FREQ2 |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
1124 |
TIME2FREQ2 |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
1136 |
TIME2FREQ2 |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
1148 |
TIME2FREQ2 |
idaynext = MNDY(monthnext+12*mod(yearnext,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
329 |
GET_TIME |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
330 |
GET_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
349 |
GET_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
364 |
GET_TIME |
IDAY = MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
371 |
GET_TIME |
IDAY2 = MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
442 |
INTERP_TIME |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
447 |
INTERP_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
477 |
INTERP_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
486 |
INTERP_TIME |
time00 = DAY + MNDY(MONTH +12*MOD(YEAR ,4)) + float(sec )/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
487 |
INTERP_TIME |
time1 = DAY1 + MNDY(MONTH1+12*MOD(YEAR1,4)) + float(sec1)/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
488 |
INTERP_TIME |
time2 = DAY2 + MNDY(MONTH2+12*MOD(YEAR2,4)) + float(sec2)/86400. |
./pkg/fizhi/fizhi_clockstuff.F |
612 |
TIC_TIME |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
613 |
TIC_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
623 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
644 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
645 |
TIC_TIME |
IDAY0 = (DAY0-1) + MNDY( MONTH0+12*MOD(YEAR0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
681 |
TIC_TIME |
integer MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
682 |
TIC_TIME |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
697 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
718 |
TIC_TIME |
IDAY = (DAY -1) + MNDY( MONTH +12*MOD(YEAR ,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
719 |
TIC_TIME |
IDAY0 = (DAY0-1) + MNDY( MONTH0+12*MOD(YEAR0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
758 |
TIC_TIME |
iday0 = (day0-1) + MNDY(month0+12*mod(year0,4) ) |
./pkg/fizhi/fizhi_clockstuff.F |
898 |
ASTRO |
INTEGER MNDY(12*4) |
./pkg/fizhi/fizhi_clockstuff.F |
904 |
ASTRO |
DATA MNDY /0,31,60,91,121,152,182,213,244,274,305,335,366, |
./pkg/fizhi/fizhi_clockstuff.F |
937 |
ASTRO |
MNDY(I) = MNDY(I-12) + 365 |
./pkg/fizhi/fizhi_clockstuff.F |
966 |
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) |