| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_daysformonth.F |
137 |
CAL_DAYSFORMONTH |
currentmonth = firstmonth |
|
./pkg/cal/cal_daysformonth.F |
142 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
|
./pkg/cal/cal_daysformonth.F |
143 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 0 ) then |
|
./pkg/cal/cal_daysformonth.F |
144 |
CAL_DAYSFORMONTH |
currentmonth = 12 |
|
./pkg/cal/cal_daysformonth.F |
146 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 1 ) then |
|
./pkg/cal/cal_daysformonth.F |
150 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
152 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
|
./pkg/cal/cal_daysformonth.F |
153 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 0 ) then |
|
./pkg/cal/cal_daysformonth.F |
154 |
CAL_DAYSFORMONTH |
currentmonth = 12 |
|
./pkg/cal/cal_daysformonth.F |
156 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 1 ) then |
|
./pkg/cal/cal_daysformonth.F |
161 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
164 |
CAL_DAYSFORMONTH |
currentmonth = firstmonth |
|
./pkg/cal/cal_daysformonth.F |
169 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
|
./pkg/cal/cal_daysformonth.F |
170 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 0 ) then |
|
./pkg/cal/cal_daysformonth.F |
171 |
CAL_DAYSFORMONTH |
currentmonth = 12 |
|
./pkg/cal/cal_daysformonth.F |
173 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 1 ) then |
|
./pkg/cal/cal_daysformonth.F |
177 |
CAL_DAYSFORMONTH |
numdays = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
180 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
|
./pkg/cal/cal_daysformonth.F |
181 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 0 ) then |
|
./pkg/cal/cal_daysformonth.F |
182 |
CAL_DAYSFORMONTH |
currentmonth = 12 |
|
./pkg/cal/cal_daysformonth.F |
184 |
CAL_DAYSFORMONTH |
if ( currentmonth .eq. 1 ) then |
|
./pkg/cal/cal_daysformonth.F |
192 |
CAL_DAYSFORMONTH |
lastday = numdays + ndaymonth(currentmonth,lycurrent) |
|
./pkg/cal/cal_daysformonth.F |
63 |
CAL_DAYSFORMONTH |
integer currentmonth |