Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- searcher

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
searcher
Synopsis
/infobank/programs/html/searcher/searcher.for
Description
  Program to gather appropriate files for InfoBank searching.

       
AUTHOR
  Clint Steele     2/13/2002


    
Reads
          read (90, '(t13, q,a)', end = 299) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 298) 
     *            ALineLength, ALine(1:ALineLength)
                      read (93, '(q,a)', end = 297)
     *                    ATextLength, AText(1:ATextLength)
          read (90, '(t13, q,a)', end = 10099) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 10199) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 10299) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 10399) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 10499) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 10599) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 10699) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 10799) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 10899) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 10999) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 11099) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 11199) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 11299) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 11399) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 11499) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 11599) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 11699) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 11799) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 11899) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 11999) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 12099) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 12199) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 12299) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 12399) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 12499) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 12599) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 12699) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 12799) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13, q,a)', end = 12899) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 12999) 
     *            ALineLength, ALine(1:ALineLength)
          read (90, '(t13,q,a)', end = 399) 
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(t13,q,a)', end = 499) 
     *        AFileLength, AFile(1:AFileLength)
              read (92, '(q,a)', end = 498) 
     *            ALineLength, ALine(1:ALineLength)
Writes
          write (MakeDirName, '(80x)')
                          write (91, '(a,t50,a)')
     *                        MakeDirName(1:MakeDirNameLength)//
     *                        ALine(1:ALineLength),
     *                        AText(1:ATextLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(43:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(1:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(10:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:12+IDLength)//
     *                '/html/'//
     *                LongID(1:IDLength+3)//
     *                '.meta.html',
     *                ALine(53:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(1:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(1:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(1:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(10:ALineLength)
                      write (91, '(a,t50,a)')
     *                    AFile(1:12+IDLength)//
     *                    '/html/'//
     *                    LongID(1:IDLength+3)//
     *                    '.meta.html',
     *                    ALine(1:ALineLength)
              write (91, '(a,t50,a)')
     *             ALine(1:12+IDLength)//
     *             '/html/'//
     *             LongID(1:IDLength+3)//
     *             '.meta.html',
     *             ALine(OnOffLocation:ALineLength)
                  write (91, '(a,t50,a)')
     *                AFile(1:AFileLength),
     *                ALine(Dashes:ALineLength)
Opens
      open (  unit = 91,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'unknown',
     *        name = '/infobank/programs/html/searcher/searcher.keep')
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.make.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
                  open (  unit = 93,
     *                  access = 'sequential',
     *                    form = 'formatted',
     *                  status = 'old',
     *                    name = MakeDirName(1:MakeDirNameLength)//
     *                           AFile(MakeKeep+5:MakeDot-1)//'/'//
     *                           ALine(1:ALineLength-4)//'txt')
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.meta.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.onoff.temp')
      open (  unit = 90,
     *      access = 'sequential',
     *        form = 'formatted',
     *      status = 'old',
     *        name = '/infobank/tmp/searcher.items.temp')
          open (  unit = 92,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'old',
     *            name = AFile(1:AFileLength))
Calls
      call system ('/bin/grep /infobank/programs/keep/make '//
     *             '/infobank/programs/keep/infobank_files.keep > 
     *             '/infobank/tmp/searcher.make.temp')
          call stringlen (MakeDirName, MakeDirNameLength)
      call system ('/bin/grep _keywords$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep -v programs > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .crew$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .activitytype$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .equipmentused$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .ids$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .operationarea$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .platform$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .derivatives$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .infospecialist$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .organization$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .ports$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .project$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .purpose$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .notes$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .summary$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /meta/ > 
     *             '/infobank/tmp/searcher.meta.temp')
          call getid (AFile(1:AFileLength), LongID, IDLength)
      call system ('/bin/grep .onoff. '//
     *             '/infobank/programs/keep/infobank_files.keep > 
     *             '/infobank/tmp/searcher.onoff.temp')
          call getid (ALine(1:ALineLength), LongID, IDLength)
      call system ('/bin/grep .item$ '//
     *             '/infobank/programs/keep/infobank_files.keep | '//
     *             '/bin/grep /infobank/items/ > 
     *             '/infobank/tmp/searcher.items.temp')
      call system ('/bin/sort -u '//
     *    '/infobank/programs/html/searcher/searcher.keep > 
     *    '/infobank/programs/html/searcher/searcher.sort')

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