| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_dayspermonth.F |
58 |
CAL_DAYSPERMONTH |
integer present |
|
./pkg/cal/cal_dayspermonth.F |
69 |
CAL_DAYSPERMONTH |
present = mydate(1)/100 |
|
./pkg/cal/cal_getmonthsrec.F |
100 |
CAL_GETMONTHSREC |
& ndaymonth(present,currentdate(3)) |
|
./pkg/cal/cal_getmonthsrec.F |
112 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
135 |
CAL_GETMONTHSREC |
count0 = mod(present+nmonthyear-2,nmonthyear)+1 |
|
./pkg/cal/cal_getmonthsrec.F |
153 |
CAL_GETMONTHSREC |
count1 = present |
|
./pkg/cal/cal_getmonthsrec.F |
162 |
CAL_GETMONTHSREC |
count0 = present |
|
./pkg/cal/cal_getmonthsrec.F |
165 |
CAL_GETMONTHSREC |
prevcount = mod(present+nmonthyear-2,nmonthyear)+1 |
|
./pkg/cal/cal_getmonthsrec.F |
167 |
CAL_GETMONTHSREC |
prevcount = present |
|
./pkg/cal/cal_getmonthsrec.F |
175 |
CAL_GETMONTHSREC |
count1 = mod(present+1,nmonthyear) |
|
./pkg/cal/cal_getmonthsrec.F |
66 |
CAL_GETMONTHSREC |
integer present |
|
./pkg/cal/cal_getmonthsrec.F |
93 |
CAL_GETMONTHSREC |
present = mod(currentdate(1)/100,100) |
|
./pkg/cal/cal_monthsperyear.F |
54 |
CAL_MONTHSPERYEAR |
integer present |
|
./pkg/cal/cal_monthsperyear.F |
61 |
CAL_MONTHSPERYEAR |
present = mydate(1)/10000 |
|
./pkg/cal/cal_monthsperyear.F |
64 |
CAL_MONTHSPERYEAR |
if (present .eq. final) then |
|
./pkg/cal/cal_monthsperyear.F |
65 |
CAL_MONTHSPERYEAR |
present = mod(mydate(1)/100,100) |
|
./pkg/cal/cal_monthsperyear.F |
69 |
CAL_MONTHSPERYEAR |
present = mod(mydate(1)/100,100) |
|
./pkg/cal/cal_monthsperyear.F |
73 |
CAL_MONTHSPERYEAR |
nmonths = final - present + 1 |
|
./pkg/cal/cal_stepsperday.F |
53 |
CAL_STEPSPERDAY |
integer present |
|
./pkg/cal/cal_stepsperday.F |
64 |
CAL_STEPSPERDAY |
present = currentdate(1) |
|
./pkg/cal/cal_stepsperday.F |
70 |
CAL_STEPSPERDAY |
if (present .lt. final) then |
|
./pkg/cal/cal_stepsperday.F |
76 |
CAL_STEPSPERDAY |
else if (present .eq. final) then |