Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- dirs4gaz

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
dirs4gaz
Synopsis
/infobank/programs/gaz/gazboothill/dirs4gaz/dirs4gaz.for
Description
  Program to make sure required gazette directory structure exists.

       
NOTES
  First program in gazette series.

  Typical execution time = instant
    
AUTHOR
  Clint Steele       7/25/2000 


    
Reads
          read (90, '(a)', end = 99) DataType(TypeCount)
Writes
              write (Level3, '(80x)')
              write (Level3, '(80x)')
              write (Level2, '(80x)')
              write (Level3, '(80x)')
              write (Level2, '(80x)')
              write (Level1, '(80x)')
          write (DirPath, '(255x)')
Opens
      open (unit = 90,
     *    status = 'old',
     *    access = 'sequential',
     *      form = 'formatted',
     *      name = '/infobank/programs/keep/equiptypes.keep')
Calls
          call stringlen (DataType(Loop), TypeLength)
          call stringlen (Level1, Length1)
          call stringlen (Level2, Length2)
          call stringlen (Level3, Length3)
          call dodir ('onoff',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('html',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('jpg',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('htmlmeta',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('metadata',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('htmlids',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('total',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
          call dodir ('zeros',
     *                Level1(1:Length1),
     *                Level2(1:Length2),
     *                Level3(1:Length3))
      call stringlen (Level2, Length2)
      call stringlen (Level3, Length3)
          call stringlen (DirPath, DirPathLength)
              call stringlen (DirPath, DirPathLength)
              call stringlen (DirPath, DirPathLength)
              call system ('/bin/mkdir '//DirPath(1:DirPathLength))
              call system ('/bin/cp /we/clint/index.html '//
     *                     DirPath(1:DirPathLength))

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/dirs4gaz/dirs4gaz.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:19 PDT 2013  (chd)