Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- proofsheet

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
proofsheet
Synopsis
/infobank/programs/html/proofsheet/proofsheet.for
Description
  Program to create photographic proofsheet .htmls

       
AUTHOR
  Clint Steele     8/19/2002


    
Reads
          read (90, '(q,a)') 
     *        DirLength(Loop), Dir(Loop)(1:DirLength(Loop))
          read (90, '(q,a)', end = 99)
     *        IDLength, ID(1:IDLength)
Writes
      write (OutName, '(a,i6.6,a)')
     *   '/infobank/programs/html/proofsheet/'//
     *   'sheet',OutCount,'.html'
      write (LastName, '(a,i6.6,a)')
     *   '/infobank/programs/html/proofsheet/'//
     *   'sheet',OutCount-1,'.html'
      write (NextName, '(a,i6.6,a)')
     *   '/infobank/programs/html/proofsheet/'//
     *   'sheet',OutCount+1,'.html'
      write (91, '(a)')
     *  '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN
      write (91, '(a)')'<HTM
      write (91, '(a)')'<HEA
      write (91, '(a)')'<TITLE>Untitled<
      write (91, '(a)')'</HEA
      write (91, '(a)')'<BOD
      write (91, '(a)')
     *  '<a href="http://walrus.wr.usgs.gov
     *  LastName(1:51)//'">previous sheet&l
                  write (91, '(a)') 
     *                ID(1:IDLength)//' missing '//Dir(Loop)//'.gif'
                  write (6, '(a)')
     *                'Missing '//ID(1:IDLength)//
     *                Dir(Loop)//'/ directory, but have .gif'
          write (91, '(a)') '<h
      write (91, '(a)')
     *  '<a href="http://walrus.wr.usgs.gov
     *  NextName(1:51)//'">next sheet&l
      write (91, '(a)')'</bod
      write (91, '(a)')'</htm
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/programs/html/proofsheet/'//
     *             'proofsheet.dirlist.keep')
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/tmp/proofsheet.sorted.temp')
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = OutName(1:51))
Calls
      call system ('/bin/grep'//
     *   ' /infobank/./....../$'//
     *   ' /infobank/programs/keep/infobank_files.keep'//
     *   ' > /infobank/tmp/proofsheet.control.tem
      call system ('/bin/grep'//
     *   ' /infobank/./......./$'//
     *   ' /infobank/programs/keep/infobank_files.keep'//
     *   ' >> /infobank/tmp/proofsheet.control.
      call system ('/bin/sed -e s/^............//'//
     *   ' /infobank/tmp/proofsheet.control.temp'//
     *   ' > /infobank/tmp/proofsheet.notime.tem
      call system ('/bin/sort'//
     *   ' /infobank/tmp/proofsheet.notime.temp'//
     *   ' > /infobank/tmp/proofsheet.sorted.tem
      call system ('/bin/rm'//
     *   ' /infobank/tmp/proofsheet.control.temp'//
     *   ' /infobank/tmp/proofsheet.notime.temp')

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