USGS InfoBank program -- doidsinfo

doidsinfo

  Subroutine to read .ids file information
    

  Clint Steele    3/24/2008


    

 open (unit   = ScratchUnit,
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'unknown',
*      name   = '/infobank/'//ShortID(1:1)//'/'//
*        ShortID(1:IDLength)//'/meta/'//
*        LongID(1:IDLength+3)//
*        '.ids')

    

 read (ScratchUnit, '(a30)', end=99) IDLine
    

 write (OutUnit, '(4x,a)') '<td align="center" width="100">'
     write (OutUnit, '(6x,a)') 
*          '<a href="http://walrus.wr.usgs.gov'//
*          '/infobank/'//ShortID(1:1)//'/'//
*          ShortID(1:IDLength)//'/html/'//
*          LongID(1:IDLength+3)//
*          '.meta.html" target="new">'//
*          CapLongID(1:IDLength+3)//'</a>'

      write (OutUnit, '(6x,a)') 
*            '<a href="http://walrus.wr.usgs.gov'//
*            '/infobank/'//ShortID(1:1)//'/'//
*            ShortID(1:IDLength)//'/html/'//
*            LongID(1:IDLength+3)//
*            '.meta.html" target="new">'//
*            IDLine(10:18)//
*            '<br>('//CapLongID(1:IDLength+3)//')</a>'
 write (OutUnit, '(4x,a)') '<p>'
 write (OutUnit, '(6x,a)') DatesLine(5:14)
 write (OutUnit, '(6x,a)') '<br>|'
 write (OutUnit, '(6x,a)') '<br>'//DatesLine(29:38)
 write (OutUnit, '(4x,a)') '</td>'
    

 call changecase ('CAPITALS', CapLongID)