Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- makecontur

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
makecontur
Synopsis
/infobank/programs/share/makecontur.for
Description
  Subroutine to create a navplt contour control file 

    for the data and an area retrieved.
       
PROCESS
  Includes a text desciption at start of file.

  Resulting control file can be directly used with
    NAVPLT or modified to meet user-specific needs.
    
USAGE
  "a" = argument, "r" = referenced, "s" = set

  
  call makecontur                       (with the following arguments)
         NCUnit                      [variable i*4 r]
         OutputCount                 [variable i*4 r]
         Title                       [variable char*1 ar]
         MinValue                    [variable i*4 r]
         MaxValue                    [variable i*4 r]
         North                       [variable r*8 ar]
         South                       [variable r*8 ar]
         West                        [variable r*8 ar]
         East                        [variable r*8 ar]
    
SUBROUTINES
  geoutm              (shared DAPS external routine)

  stringlen           (shared DAPS external routine)
    
FILES_USED
  unit=(d)ncunit(write)

    
AUTHOR
  Clint Steele     3/13/92    .for

  Clint Steele     3/24/92    Added computation of grid dimensions
                              based on 100m x 100m grid size
                              with maximum of 200 x 200 grid
  Carolyn Degnan   9/28/04    Added implicit none
                              and commented out the angle brackets
                              in the variable format expression
                              because it does not work on squid.
  Carolyn Degnan  10/01/04    Un-commented out the angle brackets.

    
Reads
Writes
      write (NCUnit, 1) Title(1:Length)
      write (NCUnit, 2) North, South
      write (NCUnit, 3) West, East
      write (NCUnit, 4)
      write (NCUnit, 5) StandardParallel
      write (NCUnit, 6) XGridCells, YGridCells,
     *                  XGridSize, YGridSize
          write (NCUnit, 7) OutputCount, SampleRate
      write (NCUnit, 8)
      write (NCUnit, 9) Fmt
      write (NCUnit, 10) SampleRate, MinValue, MaxValue
      write (NCUnit, 11) Title(1:Length)
      write (NCUnit, 12) StandardParallel
      write (NCUnit, 13)
      write (NCUnit, 14) South, North, East, West
      write (NCUnit, 15) XGridCells, YGridCells
Opens
Calls
      call geoutm ( 1, North, East, EastUTM, NorthUTM, Zone)
      call geoutm ( 1, South, West, WestUTM, SouthUTM, Zone)
      call stringlen (Title, 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/makecontur.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:36:58 PDT 2013  (chd)