Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- logend

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
logend
Synopsis
/infobank/programs/share/logend.for
Description
  Subroutine to log information about log, data, and navplt control

      files that were created and the data and area retrieved.
       
SEE_ALSO
  Used in association with LOGSTART and LOGPART subroutines.

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

  
  call logend                           (with the following arguments)
         LogUnit                     [variable i*4 r]
         OutUnit                     [variable i*4 r]
         NCUnit                      [variable i*4 r]
         ValueName                   [variable char*1 ar]
         OutputCount                 [variable i*4 r]
         MinValue                    [variable i*4 r]
         MaxValue                    [variable i*4 r]
         North                       [variable r*8 r]
         South                       [variable r*8 r]
         West                        [variable r*8 r]
         East                        [variable r*8 r]
    
SUBROUTINES
  stringlen           (shared DAPS external routine)

    
FILES_USED
  unit=(d)outunit(inqre,close)

  unit=(d)logunit(write,inqre,close)
  unit=6(write)
  unit=(d)ncunit(inqre,close)
    
AUTHOR
  Clint Steele     3/13/92    .for

  Carolyn Degnan    9/23/04    added implicit none.

    
Reads
Writes
      write (LogUnit, 1) FileName(1:Length)
      write (6, 1) FileName(1:Length)
          write (LogUnit, 2)
          write (LogUnit, 3) OutputCount, ValueName(1:Length)
          write (LogUnit, 4) ValueName(1:Length), MinValue, MaxValue
          write (LogUnit, 5) 
          write (LogUnit, 6) North, West, East, South
          write (LogUnit, '(/)')
          write (LogUnit, 7) FileName(1:Length)
          write (6, 7) FileName(1:Length)
          write (LogUnit, 8) FileName(1:Length)
          write (6, 8) FileName(1:Length)
Opens
Calls
      call stringlen (FileName, Length)
          call stringlen (ValueName, Length)
          call stringlen (FileName, Length)
          call stringlen (FileName, Length)

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