USGS InfoBank program -- wharea

wharea

  Subroutine to make a .area file for whreport2html
    

  Clint Steele    11/3/2006

  set for post-cruise '6. Geographical Area'
  added for pre-cruise '5. Geographical Area' - CDegnan, 9/26/2007

    

 open (unit = 91,
*              access = 'sequential',
*              form = 'formatted',
*              status = 'unknown',
*              name = OutName(1:OutNameLength)//'.operationarea')

    

     read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
         read (90, '(q,a)', end=99) 
*            ALineLength, ALine(1:ALineLength)
             read (ALine(Colon+1:ALineLength), '(f3.0)') North
             read (ALine(Colon+1:ALineLength), '(f)') North
         read (90, '(q,a)', end=99)
*            ALineLength, ALine(1:ALineLength)
             read (ALine(Colon+1:ALineLength), '(f3.0)') South
             read (ALine(Colon+1:ALineLength), '(f)') South
         read (90, '(q,a)', end=99)
*            ALineLength, ALine(1:ALineLength)
             read (ALine(Colon+1:ALineLength), '(f4.0)') West
             read (ALine(Colon+1:ALineLength), '(f)') West
         read (90, '(q,a)', end=99)
*            ALineLength, ALine(1:ALineLength)
             read (ALine(Colon+1:ALineLength), '(f4.0)') East
             read (ALine(Colon+1:ALineLength), '(f)') East
    

 write (OpLine, '(4096x)')
         write (OpLine, '(a,t10,a)') 
*            CapID(1:CapIDLength), ALine(1:ALineLength)
         write (OpLine(OpLineLength+2:), '(a)') 
*           ALine(1:ALineLength)
 write (91, '(a)') OpLine(1:OpLineLength)
    

 call stringlen (ALine, ALineLength)
 call stringlen (CapID, CapIDLength)
 call stringlen (OutName, OutNameLength)
         call stringlen (OpLine, OpLineLength)
         call stringlen (OpLine, OpLineLength)