Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- dorecs

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name 
dorecs
Synopsis 
/infobank/programs/gaz/gazboothill/qgaz2html/dorecs.for
Description 
  Subroutine to determine file size for GAZ2HTML.
Reads 
          read (93, '(q,a)', end = 799)
     *        MapLineLength, MapLine(1:MapLineLength)
              read (78, '(a)', end = 798) WordCount
              read (WordCount(WCBlank+1:Slash-1), '(i)') MetaCount
Writes 
      write (92, '(/,10x,a,/)') '<
      write (92, '(12x,a)') '<table border="0
          write (LinkArea, '(4x)')
          write (92, '(14x,a)') '<t
          write (92, '(16x,a)') '<td align="left
          write (92, '(18x,a)')
     *        '<a href="http://walrus.wr.usgs.gov/
     *        'infobank/gazette/html/'//
     *        MetaName(28:LastSlash)//
     *        MapLine(6:Blank-1)//'.html">
     *        '<b>'//CapArea//'<
          write (92, '(16x,a)') '</t
          write (92, '(16x,a)') '<td align="right
              write (92, '(18x,a,f8.1,a)')
     *            '(<font color="red"
     *            MetaFCount,
     *            ' MB</font
              write (92, '(18x,a)')
     *            '(<font color="red"
     *            'No data</font
          write (92, '(16x,a)') '</t
          write (92, '(14x,a)') '</t
      write (92, '(12x,a)') '</tabl
      write (92, '(10x,a)') '</t
      write (92, '(8x,a)') '</t
      write (92, '(6x,a,/)') '</tabl
      write (92, '(4x,a)') '</t
      write (92, '(2x,a)') '</t
      write (92, '(a,/)') '</tabl
Opens 
      open (unit   = 93,
     *      name   = '/infobank/gazette/imagemap/'//
     *               Area(1:AreaLength)//'.gif.map',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')
              open (unit = 78,
     *            access = 'sequential',
     *              form = 'formatted',
     *            status = 'unknown',
     *              name = '/tmp/dorecs.wc.temp')
Calls 
          call stringlen (MapLine(1:MapLineLength), MapLineLength)
          call changecase ('CAPITALS', CapArea)
              call system ('/bin/wc /infobank/gazette/metadata/'//
     *            MetaName(28:LastSlash)//
     *            MapLine(6:Blank-1)//
     *            '.metadata > /tmp/dorecs.wc.tem

Skip footer navigational links
Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/gaz/gazboothill/qgaz2html/dorecs.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Thu Mar 22 03:04:28 PDT 2012  (chd)