if (date(1) .lt. refdate(1)) then
call CAL_TIMEPASSED( refdate, date, numberofdays, mythid )
refdate(1) = 15821015
refdate(2) = 0
refdate(3) = 1
refdate(4) = 1
refdate(1) = 00000101
refdate(1) = -4370
refdate(2) = -120000
refdate(3) = 0
refdate(4) = -1
refdate(1) = 0
call CAL_TIMEPASSED( refdate, indate, numberofdays, mythid )
& refdate,
integer refdate(4)