These lines are here to deliberately cause a compile-time error.

      allocate (time(icount))

      time(1)=rcountstart

         time(m) = time(m-1)+rcountdelta

      print*, 'time: ',time

      real, dimension(:),   allocatable :: pnum,time

  These lines are here to deliberately cause a compile-time error.

  These lines are here to deliberately cause a compile-time error.

  These lines are here to deliberately cause a compile-time error.

  These lines are here to deliberately cause a compile-time error.

      subroutine GET_ALARM (tag,date,time,freq,tleft)

      integer freq,date,time,tleft

       time  = times(n)

       tleft = nsecf(freq) - nalarm(freq,nymd,nhms,date,time )

      time  = 0

      integer date,time

      modalarm(freq,date0,time0) = nalarm (freq,date,time,date0,time0 )

      call GET_TIME (date,time)

          alarm = (dates(n).eq.date) .and. (times(n).eq.time)

     .             (date.eq.dates(n) .and. time.ge.times(n)) ) .and.

      subroutine SET_TIME (date,time)

      integer  date,time

      print *, 'Time: ',time

      nhms = time

      integer       freq,date,time

      subroutine GET_TIME (date,time)

      integer date,time

      time = nhms

      _RL time, time1, time2

      time  = DAY  + MNDY(MONTH ,MOD(YEAR ,4)+1) + float(sec )/86400.

      if( time .lt.time1 ) time  = time  + dayscy

      fac1  = (time2-time)/(time2-time1)

      fac2  = (time-time1)/(time2-time1)

         times(1) = time

         if( myid.eq.1 ) write(6,100) date,time,freq,tags(1)

         print *, '    Time0: ',times(n),' (Old) ',time,' (New)'

      subroutine SET_ALARM (tag,date,time,freq)

        times(n) = time

         times(ntags) = time

         if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags)