USGS InfoBank program -- doabstractinfo

doabstractinfo

  Subroutine to read .abstract file information
    

  Clint Steele    3/24/2008


    

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

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

     read(80, '(q,a)')ALineLength, ALine
         read (ScratchUnit, '(q,a)',end=99)
*              AbstractLength,Abstract(1:AbstractLength) 
    

 write (OutUnit, '(4x,a)') '<td>'
       write (OutUnit, '(6x,a)') '<b>'
       write (OutUnit, '(6x,a)') ALine(9 : FirstComma -1)
       write (OutUnit, '(6x,a)') '</b>'
       write (OutUnit, '(6x,a)') '<b>'
       write (OutUnit, '(6x,a)') ALine(9 : ALineLength)
       write (OutUnit, '(6x,a)') '</b>'
       write (OutUnit, '(1x,a)') '<br />'
         write (Abstract, '(1024x)')
         write (OutUnit, '(6x,a)') Abstract(1:AbstractLength)//' '
     write (OutUnit, '(6x,a)') '[no abstract available]'
 write (OutUnit, '(4x,a)') '</td>'