USGS InfoBank program -- getdateid

getdateid

  Subroutine to get the data and ID from a record for ongoing.for

       

  Clint Steele      3/24/2008


    

      read (TempUnit, '(a47,1x,a7)', end = 99) 
     *    DatesLine, ShortID

      write (DatesLine, '(47x)')
      write (ShortID, '(7x)')
      write (LongID, '(10x)')

          call stringlen (ShortID, IDLength)