!      call min1980(tvec,totmin)
!      converts time vector to minutes since Jan 1 1980
!      tvec(1)=yr 2=mo 3=day 4=hr 5=min 6=sec (6 is ignored)
       subroutine min1980(tvec,tot)
       implicit  none
       integer tvec(6),tot
       call j1980(tvec(2),tvec(3),tvec(1),tot)
       tot=tot*1440 + 60*tvec(4) + tvec(5)
       return
       end