intv_1 = -interval(1)
intv_2 = -interval(2)
date_1 = interval(1)
date_2 = interval(2)
if (interval(1) .ge. 0) then
intv_1 = interval(1)
intv_2 = interval(2)
if ((interval(1) .ge. 0) .and.
& (interval(2) .ge. 0)) then
ndays = interval(1)+nsecs/secondsperday
INTEGER interval(4)
& 'interval=',interval(1),interval(2),interval(3),interval(4)
if (interval(4) .ne. -1) then
I interval,
if (interval(1) .lt. 0) then