| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
111 |
CAL_GETMONTHSREC |
midsecs = float(ndaymonth(present,currentdate(3))* |
|
./pkg/cal/cal_getmonthsrec.F |
134 |
CAL_GETMONTHSREC |
count0 = mod(present+nmonthyear-2,nmonthyear)+1 |
|
./pkg/cal/cal_getmonthsrec.F |
154 |
CAL_GETMONTHSREC |
count1 = present |
|
./pkg/cal/cal_getmonthsrec.F |
163 |
CAL_GETMONTHSREC |
count0 = present |
|
./pkg/cal/cal_getmonthsrec.F |
166 |
CAL_GETMONTHSREC |
prevcount = mod(present+nmonthyear-2,nmonthyear)+1 |
|
./pkg/cal/cal_getmonthsrec.F |
168 |
CAL_GETMONTHSREC |
prevcount = present |
|
./pkg/cal/cal_getmonthsrec.F |
176 |
CAL_GETMONTHSREC |
count1 = mod(present+1,nmonthyear) |
|
./pkg/cal/cal_getmonthsrec.F |
61 |
CAL_GETMONTHSREC |
integer present |
|
./pkg/cal/cal_getmonthsrec.F |
88 |
CAL_GETMONTHSREC |
present = mod(currentdate(1)/100,100) |
|
./pkg/cal/cal_getmonthsrec.F |
94 |
CAL_GETMONTHSREC |
& ndaymonth(present,currentdate(3)) |
|
./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_dayspermonth.F |
58 |
CAL_DAYSPERMONTH |
integer present |
|
./pkg/cal/cal_dayspermonth.F |
69 |
CAL_DAYSPERMONTH |
present = mydate(1)/100 |
|
./pkg/cal/cal_stepsperday.F |
53 |
CAL_STEPSPERDAY |
integer present |
|
./pkg/cal/cal_stepsperday.F |
63 |
CAL_STEPSPERDAY |
present = currentdate(1) |
|
./pkg/cal/cal_stepsperday.F |
69 |
CAL_STEPSPERDAY |
if (present .lt. final) then |
|
./pkg/cal/cal_stepsperday.F |
72 |
CAL_STEPSPERDAY |
else if (present .eq. final) then |