Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- searchfiles

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
searchfiles
Synopsis
/infobank/programs/dbase/misc/infobank/searchfiles.for
Description
  Subroutine to search files by keyword.

       
AUTHOR
  Clint Steele     1/25/95


    
Reads
      read (5, '(q,a)', end = 99) 
     *         SaveLength,SaveOption(1:SaveLength)
          read (5, '(q,a)', end = 99) KeyLength, KeyWord(1:KeyLength)
                      read (81, '(q,a)', end = 98) 
     *                      ALength, ALine(1:ALength)
Writes
      write (FileFlag, 525)
              write (FileName, 601) UserName(1:UserNameLength),
     *                KeyWord(1:KeyLength)
                  write (Suffix, '(i)', iostat = Oops) 
     *                  FileList(Loop)(DotSuffix+1:DotSuffix+1)
                              write (5, '(/,1x,a)') 
     *                            FileList(Loop)(Bracket+1:Length)
                              write (82, 602)
     *                            FileList(Loop)(Bracket+1:Length)
                          write (5, '(1x,a)') ALine(1:ALength)
                          write (82, '(1x,a)') ALine(1:ALength)
Opens
              open (unit = 82,
     *            file   = FileName(1:FileLength),
     *            access = 'SEQUENTIAL',
     *            carriagecontrol = 'LIST',
     *            form   = 'FORMATTED',
     *            status = 'NEW')
                  open (unit = 81,
     *                  file   = FileList(Loop)(3:BangLength),
     *                  access = 'SEQUENTIAL',
     *                  carriagecontrol = 'LIST',
     *                  form   = 'FORMATTED',
     *                  status = 'OLD',
     *                  readonly,
     *                  shared)
Calls
          call stringlen (SaveOption, SaveLength)
      call changecase ('CAPITALS', SaveOption)
          call helper ('SEARCHMENU','??')
          call helper ('SEARCHMENU','?')
          call commenter ('Search Menu')
      call setcopyflags (SaveOption, FileFlag)
      call makefilelist
     *    (Activity, KeepFlag, 
     *     FileList, FileFlag, FileCount, 'SEARCH')
          call changecase ('CAPITALS', KeyWord(1:KeyLength))
              call stringlen (UserName, UserNameLength)
              call stringlen (FileName, FileLength)
                  call stringlen (FileList(Loop), Length)
                  call stringlen (FileList(Loop)(1:Bang-1), BangLength)
                      call changecase ('CAPITALS', ALine(1:ALength))
              call yesno ('[Y]N', Answer)

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