Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- getdata

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
getdata
Synopsis
/infobank/programs/plt/timeprof/src/getdata.for
Description
  Subroutine to read data files into data arrays.

       
USAGE
  call getdata (InputFormat, NumberOfFiles, MaxNumOfRecords,

                MaxNumOfFields, NumberOfFields, TimeStamp,
                FieldValue, NumberOfRecords, WindowStartTime,
                WindowEndTime, LowestFieldValue,
                HighestFieldValue)
  call getdata (aformat, MaxNumOfRecords, maxfields, numfields,
                xvalue, yvalue, NumberOfRecords)
  input:
     InputFormat     = input format for each data file
     NumberOfFiles   = number of input files
     MaxNumOfRecords = maximum allowable number of records for data arrays
     MaxNumOfFields  = maximum allowable number of fields for data arrays
     NumberOfFields  = number of fields to be input from each data file
  output:
     TimeStamp         = time field from each data file (X values)
     FieldValue        = value for each field for each data file (Y values)
     NumberOfRecords   = number of records read from each data file
     WindowStartTime   = Starting time
     WindowEndTime     = Ending time
     LowestFieldValue  = Minimum Y value
     HighestFieldValue = Maximum Y value
    
SUBROUTINES
  forerror      (external shareable)

  converttime   (external shareable)
    
AUTHOR
  Ed Maple 5/13/86  .for

  Clint Steele      8/15/90       Cleanup

    
Reads
              read (89 + FilePointer, '(i3,3i2,i1)', end = 900,
     *              iostat = ErrorFlag)
     *            Day, Hour, Minute, Second, Tenth
                  read (89 + FilePointer, '(i3,3i2,i1)', end = 900,
     *                  iostat = ErrorFlag)
     *                Day, Hour, Minute, Second, Tenth
              read (89 + FilePointer, InputFormat (FilePointer),
     *              end = 900, iostat = ErrorFlag)
     *              Day, Hour, Minute, Second, Tenth,
     *              (FieldValue (NumberOfRecords (FilePointer),
     *                         FieldPointer, FilePointer),
     *              FieldPointer = 1, NumberOfFields (FilePointer))
Writes
Opens
Calls
                  call forerror (ErrorFlag)
          call converttime ('COMPRESS', Day, Hour, Minute, Second,
     *                      Tenth, TimeInTenths, TimeErrorFlag)
                  call percentage (89 + FilePointer)
                      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 percentage (89 + FilePointer)
          call percentage (0)

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