Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- summary

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
summary
Synopsis
/infobank/programs/plt/naved/summary.for
Description
  Subroutine to display file parameters for NAVED.

       
COMMENTS
  Also allows modification of timegaps.

    
AUTHOR
  Clint Steele                

    
USAGE
  "a" = argument, "r" = referenced, "s" = set

  
  call summary                 (with the following arguments)
         FileStatus            [variable char*11 r]
         LatSouthEdit          [variable r*4 r]
         LatNorthEdit          [variable r*4 r]
         LongWestEdit          [variable r*4 r]
         LongEastEdit          [variable r*4 r]
         LatSouthBack          [variable r*4 r]
         LatNorthBack          [variable r*4 r]
         LongWestBack          [variable r*4 r]
         LongEastBack          [variable r*4 r]
         TimeGapEdit           [variable i*4 r]
         TimeGapBack           [variable i*4 r]
         EditFilename          [variable char*100 r]
         BackFileNm            [variable char*100 r]
         EditFormat            [variable char*100 r]
         BackFormat            [variable char*100 r]
         OutputFilename        [variable char*100 r]
         WindowNumber          [variable i*4 r]
         TimeStartEdit         [variable i*4 sr]
         TimeEndEdit           [variable i*4 sr]
         TimeStartBack         [variable i*4 sr]
         TimeEndBack           [variable i*4 sr]
         CoastEditCount        [variable i*4 r]
         CoastEditArea         [variable char*12 r]
         CoastBackCount        [variable i*4 r]
         CoastBackArea         [variable char*12 r]
         NumberEdit            [variable i*4 r]
         NumberBack            [variable i*4 r]
         AddBack               [variable char*3 s]
         Year                  [variable i*4 r]
    
SUBROUTINES
  specialmode         (internal)                    

  converttime         (external DRS shareable routine)
  getkey              (external DRS shareable routine)
    
FUNCTIONS
  index               (FORTRAN intrinsic function)  

    
FILES_USED
  unit=*(write)


    
Reads
          read (*, fmt = ' (i8) ', end = 99) TimeGapEdit 
          read (*, fmt = ' (i8) ', end = 99) TimeGapBack 
Writes
Opens
Calls
      call specialmode ('TEXT')
          call converttime ('EXPAND  ',
     *                       DayStart, 
     *                       HourStart, 
     *                       MinuteStart, 
     *                       SecondStart, 
     *                       TenthsStart, 
     *                       TimeStartEdit,
     *                       StatusFlag)
          call converttime ('EXPAND  ',
     *                       DayEnd, 
     *                       HourEnd, 
     *                       MinuteEnd, 
     *                       SecondEnd, 
     *                       TenthsEnd, 
     *                       TimeEndEdit,
     *                       StatusFlag)
              call converttime ('EXPAND  ', 
     *                           DayStart, 
     *                           HourStart, 
     *                           MinuteStart, 
     *                           SecondStart, 
     *                           TenthsStart, 
     *                           TimeStartBack,
     *                           StatusFlag)
              call converttime ('EXPAND  ', 
     *                           DayEnd, 
     *                           HourEnd, 
     *                           MinuteEnd, 
     *                           SecondEnd, 
     *                           TenthsEnd, 
     *                           TimeEndBack,
     *                           StatusFlag)
          call converttime ('EXPAND  ', 
     *                       DayStart, 
     *                       HourStart, 
     *                       MinuteStart, 
     *                       SecondStart, 
     *                       TenthsStart, 
     *                       TimeStartWindow (WindowNumber),
     *                       StatusFlag )
          call converttime ('EXPAND  ', 
     *                       DayEnd, 
     *                       HourEnd,
     *                       MinuteEnd, 
     *                       SecondEnd, 
     *                       TenthsEnd, 
     *                       TimeEndWindow (WindowNumber),
     *                       StatusFlag)
      call anykey
      call getkey (Key, KeyValue)
      call changecase ('CAPITAL', Key)
          call specialmode ('CHANGE')

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/plt/naved/summary.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:12 PDT 2013  (chd)