Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- area

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
area
Synopsis
/infobank/programs/dbase/area/area.for
Description
  Program to determine cruises within a specified area.

       
AUTHOR
   Clint Steele     6/17/96


    
Reads
          read (5, '(q,a)') SumLength, Summary
          read (89, '(q,a)', end = 99)
     *            Length,ALine(1:Length)
          read (ALine, '(t10,f9.5,1x,f9.5,1x,f10.5,1x,f10.5)')
     *            TempNorth, TempSouth, TempEast, TempWest
          read (93, '(q,a)') FullPathLength, 
     *                       FullPath(1:FullPathLength)
Writes
          write (Title, '(255x)')
          write (Title, 5) north, south, east, west
          write (ALine, '(255x)')
              write (CapShort, '(7x)')
              write (CapLong, '(10x)')
              write (SmallShort, '(7x)')
              write (SmallLong, '(10x)')
              write (90, '(a)') CapLong(1:LongLength)
                      write (91, 33)
                  write (91, 2) SmallLong(1:1),
     *                              SmallShort(1:ShortLength),
     *                              SmallLong(1:LongLength),
     *                              CapLong(1:LongLength)
                      write (91, 33)
                  write (Command, '(255x)')
                  write (Command, 35) SmallLong(1:1),
     *                      SmallShort(1:ShortLength),
     *                      SmallLong(1:LongLength)
                  write (91, 3) SmallLong(1:LongLength),
     *                          CapLong(1:LongLength)
          write (Command, '(255x)')
              write (ALine, '(255x)')
              write (ALine, 50) FullPath(1:FullPathLength),
     *               Path(1:PathLength)
Opens
      open (unit   =  89,
     *      access = 'sequential',
     *      file   =
     *  '/infobank/programs/keep/area_list.keep',
     *      form   = 'formatted',
     *      status = 'old')
          open (unit = 93,
     *          access = 'sequential',
     *          file = 'areapath.temp',
     *          form = 'formatted',
     *          status = 'old')
Calls
      call yesno ('1,2,[3],q', Option)
      call degrees (north, south, west, east)
          call openem (0,-1)
          call openem (0,-2)
          call openem (0,-2)
          call stringlen (Title, TitleLength)
          call htmlhead (91, Title(1:TitleLength))
          call overlap (TempNorth, TempSouth, 
     *                          TempWest, TempEast,
     *                          North, South, West, East,
     *                          Relationship)
          call stringlen (ALine, Length)
              call changecase 
     *            ('SMALL', SmallShort(1:ShortLength))
              call system ('grep -v \! '//
     *             ' /infobank/programs/keep/summarize.keep'//
     *             ' | grep '//SmallLong(1:LongLength)//
     *             ' >> /infobank/tmp/areasum.
                  call stringlen (Command,CommandLength)
                  call system (Command(1:CommandLength))
          call stringlen (Path, PathLength)
          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))
              call stringlen (ALine, Length)
              call htmlfoot (91, ALine(1:Length))
              call htmlfoot (91, Path(1:PathLength))
      call system ('/bin/cp /infobank/tmp/areasum.temp '//
     *             Summary(1:SumLength))
      call system ('/bin/rm /infobank/tmp/areasum.temp')

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