numdays = ndaymonth(firstmonth,lyfirst) - firstd + 1
numdays = numdays + ndaymonth(currentmonth,lycurrent)
firstday = numdays + 1
lastday = numdays + ndaymonth(currentmonth,lycurrent)
lastday = numdays + lastd - 1
lastday = numdays + lastd
integer numdays
else if ( numdays .gt. 1 ) then
& ( iday .lt. numdays) ) then
else if ( iday .eq. numdays ) then
numdays = cal_IntDays( mythid )
if ( numdays .eq. 1 ) then
numdays(1) = ndays + nsecs/secondsperday
numdays(2) = hhmmss/minutesperhour*10000 +
numdays(1) = -numdays(1)
numdays(2) = -numdays(2)
INTEGER numdays(4)
numdays(1) = 0
numdays(2) = 0
numdays(3) = 0
numdays(4) = -1
O numdays,