USGS InfoBank program -- makefilelist

makefilelist

  Subroutine to create an array of file names.

       

  Clint Steele     1/27/95


    

                  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)

          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

          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)

              call stringlen (Activity(Loop)(1:7), Length)