USGS InfoBank program -- dirs4gaz

dirs4gaz

  Program to make sure required gazette directory structure exists.

       

  First program in gazette series.

  Typical execution time = instant
    

  Clint Steele       7/25/2000 


    

          read (90, '(a)', end = 99) DataType(TypeCount)

              write (Level3, '(80x)')
              write (Level3, '(80x)')
              write (Level2, '(80x)')
              write (Level3, '(80x)')
              write (Level2, '(80x)')
              write (Level1, '(80x)')
          write (DirPath, '(255x)')

      open (unit = 90,
     *    status = 'old',
     *    access = 'sequential',
     *      form = 'formatted',
     *      name = '/infobank/programs/keep/equiptypes.keep')

          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))