Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- makefilelist

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
makefilelist
Synopsis
/infobank/programs/dbase/misc/infobank/makefilelist.for
Description
  Subroutine to create an array of file names.

       
AUTHOR
  Clint Steele     1/27/95


    
Reads
                  read (81, '(q,a)', end = 501) 
     *                ALength, ALine(1:ALength)
                  read (82, '(q,a)', end = 502) 
     *                ALength, ALine(1:ALength)
                  read (83, '(q,a)', end = 503) 
     *                ALength, ALine(1:ALength)
                  read (84, '(q,a)', end = 504) ALength, 
     *                ALine(1:ALength)
                  read (85, '(q,a)', end = 505) ALength, 
     *                 ALine(1:ALength)
Writes
          write (FileList(Loop), '(80x)')
                      write (FileList(FileCount), 552) ALine(1:ALength)
                  write (FileList(FileCount), 553) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                      write (FileList(FileCount), 554) ALine(1:ALength)
                  write (FileList(FileCount), 555) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                      write (FileList(FileCount), 556) ALine(1:ALength)
                  write (FileList(FileCount), 557) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                      write (FileList(FileCount), 558) ALine(1:ALength)
                  write (FileList(FileCount), 559) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                      write (FileList(FileCount), 560) ALine(1:ALength)
                  write (FileList(FileCount), 561) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 562) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 563) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 564) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 565) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 566) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 567) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 568) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
                  write (FileList(FileCount), 569) Activity(Loop)(1:1),
     *                 Activity(Loop)(1:Length), 
     *                 Activity(Loop)(1:Length)
      write (6, 526) FileCount
Opens
          open (unit = 81,
     *          file   = 'PMG$ARC:[ARCHIVE.INFO]NAV_DATA.FILE_LIST',
     *          access = 'SEQUENTIAL',
     *          carriagecontrol = 'LIST',
     *          form   = 'FORMATTED',
     *          status = 'OLD',
     *          readonly,
     *          shared)
          open (unit = 82,
     *          file   = 'PMG$ARC:[ARCHIVE.INFO]GRAV_DATA.FILE_LIST',
     *          access = 'SEQUENTIAL',
     *          carriagecontrol = 'LIST',
     *          form   = 'FORMATTED',
     *          status = 'OLD',
     *          readonly,
     *          shared)
          open (unit = 83,
     *          file   = 'PMG$ARC:[ARCHIVE.INFO]MAG_DATA.FILE_LIST',
     *          access = 'SEQUENTIAL',
     *          carriagecontrol = 'LIST',
     *          form   = 'FORMATTED',
     *          status = 'OLD',
     *          readonly,
     *          shared)
          open (unit = 84,
     *          file   = 'PMG$ARC:[ARCHIVE.INFO]BATH_DATA.FILE_LIST',
     *          access = 'SEQUENTIAL',
     *          carriagecontrol = 'LIST',
     *          form   = 'FORMATTED',
     *          status = 'OLD',
     *          readonly,
     *          shared)
          open (unit = 85,
     *          file   = 'PMG$ARC:[ARCHIVE.INFO]SEIS_DATA.FILE_LIST',
     *          access = 'SEQUENTIAL',
     *          carriagecontrol = 'LIST',
     *          form   = 'FORMATTED',
     *          status = 'OLD',
     *          readonly,
     *          shared)
Calls
              call stringlen (Activity(Loop)(1:7), Length)

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/dbase/misc/infobank/makefilelist.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:46 PDT 2013  (chd)