Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- general

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
general
Synopsis
/infobank/programs/plt/timeprof/src/general.for
Description
  Subroutine to set up general TMPROFILE parameters.

       
USAGE
     subroutine general (MaxYAxisHeight, MaxNumOfFiles, CruiseID,

    *                    VisibleTimeGap, XAxisScale, YAxisHeight,
    *                    NumberOfFiles, AscendingXAxis,
    *                    WindowStartTime, WindowEndTime)
  input:
    MaxYAxisHeight  = maximum allowed height for the y axis
    MaxNumOfFiles   = maximum allowed number of input files
  output:
    CruiseID        = up to 10 character cruise id
    VisibleTimeGap  = minimum time gap to be shown on profile of data;
                      shown by gaps in profile lines
    XAxisScale      = x axis scale expressed as:
                      1 inch = "hours" hours
    YAxisHeight     = length of y axis
    NumberOfFiles   = number of data sets to profile
    AscendingXAxis  = true  if ascending  x axis values
                      false if descending x axis values
    WindowStartTime = starting time of data to profile
    WindowEndTime   = ending   time of data to profile
    
SUBROUTINES
  changecase    (shared external)

  forerror      (shared external)
  converttime   (shared external)
    
AUTHOR
  Carolyn Hayashida Degnan, 08/23/83

  based on initial profile program protime.for by:
  Clint Steele           7/10/83              .for
  modified by Clint Steele   1/16/85 for 
        prompts, structure, maintainability
  Clint Steele   7/16/90   
        Changed window start time/end time computations
  Clint Steele   8/15/90     Cleanup

    
Reads
      read (*, '(a)') CruiseID
          read (*, '(q,a)') Length, ALine
          read (ALine, '(i3, 3i2, i1)', iostat = ErrorFlag)
     *          Day, Hour, Minute, Second, Tenth
          read (*, '(q,a)') Length, ALine
          read (ALine, '(i3, 3i2, i1)', iostat = ErrorFlag)
     *        Day, Hour, Minute, Second, Tenth
          read (*, '(q,a)') Length, ALine
          read (ALine, '(i3, 3i2, i1)', iostat = ErrorFlag)
     *        Day, Hour, Minute, Second, Tenth
          read (*, *, iostat = ErrorFlag) HoursPerInch
              read (*, *, iostat= ErrorFlag) YAxisHeight
          read (*, *, iostat = ErrorFlag) NumberOfFiles
Writes
Opens
Calls
      call changecase ('CAPITAL', CruiseID)
              call forerror (ErrorFlag)
      call converttime ('COMPRESS', Day, Hour, Minute, Second, Tenth, 
     *                   TimeInTenths, TimeErrorFlag)
              call forerror (ErrorFlag)
          call converttime ('COMPRESS', Day, Hour, Minute, Second,
     *                      Tenth, TimeInTenths, TimeErrorFlag)
              call forerror (ErrorFlag)
          call converttime ('COMPRESS', Day, Hour, Minute, Second,
     *                      Tenth, TimeInTenths, TimeErrorFlag)
              call forerror (ErrorFlag)
      call yesno ('[1]2', UserChoice)
                  call forerror (ErrorFlag)
              call forerror (ErrorFlag)

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/timeprof/src/general.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:17 PDT 2013  (chd)