Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- years2idshtml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
years2idshtml
Synopsis
/infobank/programs/html/years2idshtml/years2idshtml.for
Description
  Program to make a script that will generate 

  <year>_ids.html files for each ye
       
AUTHOR
  Clint Steele    3/18/96


    
Reads
      read (SystemDateTime(21:24), '(i4)') EndYear
          read (TempYear(3:4), '(i2)') Year
Writes
      write (SummaryFile, 580)
      write (SummaryFile, 4000)
          write (TempYear, '(i4.4)') Count
          write (Command, '(255x)')
          write (Command, '(a,i2.2,a)') 
     *            'ls -d1 /infobank/?/*',
     *            Year,
     *            '?? | sed -e "s/^\\/.*\\/.\\///" > 
     *            '/infobank/programs/html/years2idshtml/'//
     *            'temp_ids.list'
          write (HtmlName, 5) Year+Century
          write (Title, 6) Year + Century
         write (Path, 7) Year+Century
         write (IDHtml, 666)
             write (Command, '(255x)')
             write (Command, 722) Year
             write (SummaryFile, 453)
             write (SummaryFile,931)
     *           Path(1:PathLength), Year+Century
             write (SummaryFile, 374) Year+Century
             write (SummaryFile, 454)
      write (SummaryFile, 32)
      write (SummaryFile, 430)
Opens
      open (unit   =  SummaryFile,
     *      access = 'sequential',
     *      file   = '/infobank/programs/html/years2idshtml/years.html',
     *      form   = 'formatted',
     *      status = 'unknown')
          open (unit = IDHtml,
     *      access = 'sequential',
     *      file   =  HtmlName(1:HTMLNameLength),
     *      form   = 'formatted',
     *      status = 'unknown')
Calls
      call htmlhead (SummaryFile, 
     *    'CMG Activities by Year')
          call getcentury (Year, Century)
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
          call stringlen (HTMLName, HTMLNameLength)
          call stringlen (Title, TitleLength)
          call htmlhead (IDHtml, Title(1:TitleLength))
         call stringlen (Path, PathLength)
         call sortids (IDHtml, 'years2idshtml', OutputCount,
     *               Path(1:PathLength))
         call htmlfoot (IDHtml, Path(1:PathLength))
             call stringlen (Command, CommandLength)
             call system (Command(1:CommandLength))
                 call system ('/bin/rm /infobank/tmp/years.wc.temp')
      call stringlen (Path, PathLength)
      call htmlfoot (SummaryFile, Path(1:PathLength))

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/html/years2idshtml/years2idshtml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:50 PST 2013  (chd)