Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- timeprof

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
timeprof
Synopsis
/infobank/programs/plt/timeprof/src/timeprof.for
Description
  Program to creating hardcopy profiles of time series data. 

       
COMMENTS
  It is designed to operate on the Versatec electrostatic 

  plotters on ISDMNL and DISCO and on the Zeta color pen plotter. 
  Monochrome plots can be had on any of the three plotters, but only 
  the Zeta produces color. For multiple plots per run of the program, 
  the program attempts to stack them one atop the other to save paper.
  However, this is not done on the DISCO Versatec plotter.
    
PROMPTS
  The program prompts for the following information:

  
  Your plotter/color choice. Choices are:
      [1] - Zeta/color
       2  - Zeta/black & white
       3  - Versatec/black & white
  with choice 1 as the default.
  
  The cruise id, up to 7 characters.
  The minimum timegap displayed, entered as 
    day, hour, minute, second, tenth using the format (i3,3i2,i1).
  The start of the time window, entered as 
    day, hour, minute, second, tenth using the format (i3,3i2,i1).
    If all zeros are entered, then plotting begins from the beginning
    of the file.
  The end of the time window, entered as 
    day, hour, minute, second, tenth using the format (i3,3i2,i1).
    If all zeros are entered, then plotting continues to the end
    of the file.
  The scale for the X axis, entered as floating point hours per inch.
    A positive value gives an ascending x axis from left to right and
    a negative value gives a descending x axis from left to right.
  Whether to have the program figure out the parameters for the Y axis
    for you or allow you to enter your own parameters. Parameters 
    involved are the Y axis height and the starting value that appears
    at the bottom of the axis. Choices are:
      [1] - Have program get Y axis height and value limits
            from the input data.
       2  - Enter your own Y axis height and value limits.
    with choice 1 as the default.
  The Y axis height in floating point inches, only if you are entering
    your own Y axis parameters. Maximum Y axis height allowed is:
      32.0 inches for the Zeta plotter,
      18.0 inches for the DISCO Versatec plotter,
      38.0 inches for the ISDMNL Versatec plotter.
  The number of input files entered as an integer.
    Maximum allowed is 5.
  The file name for each input file.
  
  The program needs the following data for each input file:
     The number of fields to be read from the file entered as an 
       integer. Maximum allowed is 5.
     The input format for the file entered as a FORTRAN format as
       (i3, 3i2, i1, rvalues). Fields are read as floating point 
       values.
  
     The program needs the following data about each field read from
     the input file:
        The type of data contained in this field, such as bathymetry.
          This is the label that appears on the plot for this field's
          data. Can be up to 63 characters long.
        The units for this field, such as meters for bathymetry. Can 
          be up to 63 characters long.
        The bottom Y value for this field as a floating point number
          if you are entering your own Y axis parameters. If you want
          a Y axis in descending order from bottom to top then this 
          number should be the largest number you want on the plot. 
          For an ascending Y axis from bottom to top this number 
          should be the smallest number you want on the plot.
        The Y axis scale for this field entered as floating point
          units per inch. For a descending Y axis from bottom to top 
          this number should be less than 0. For an ascending Y axis 
          this number should be greater than 0.
  
  After plotting is complete for the files and fields you entered, you
    have the option with the Zeta and ISDMNL Versatec plotters of
    executing another plot without exiting from the program. If you
    wish to do this answer Y, else answer N. You won't see this prompt
    when using the DISCO Versatec plotter.
    
Reads
Writes
Opens
Calls
      call yesno ('[1]23', UserChoice)
      call getnodename (NodeName)
          call plots (55, 0, 8)
              call plots ('TMPROF', 150., 20., 'PLOT_IMED', 'PLOTTER', 
     *                    0, PlotName, JobID, IDX)
              call plots (0, 0, 0)
          call general (MaxYAxisHeight, MaxNumOfFiles, CruiseID,
     *                  VisibleTimeGap, XAxisScale, YAxisHeight,
     *                  NumberOfFiles, AscendingXAxis, WindowStartTime,
     *                  WindowEndTime)
          call openem (NumberOfFiles, 0)
          call specific (NumberOfFiles, InputFormat, FieldName,
     *                   FieldUnits, YAxisStartValue, YAxisScale,
     *                   NumberOfFields, MaxNumOfFields, FileName,
     *                   UseFileLimits)
          call getdata (InputFormat, NumberOfFiles, MaxNumOfRecords,
     *                  MaxNumOfFields, NumberOfFields, TimeStamp,
     *                  FieldValue, NumberOfRecords, WindowStartTime,
     *                  WindowEndTime, LowestFieldValue,
     *                  HighestFieldValue)
          call getparams (NumberOfRecords, WindowStartTime,
     *                    WindowEndTime, DataStartTime,
     *                    DataEndTime, XAxisOffset, XAxisLength,
     *                    PlotLength, NumberOfFiles, XAxisScale,
     *                    TimeStamp, MaxNumOfRecords, MaxNumOfFields,
     *                    NumberOfFields, ApproxAvgTimeGap,
     *                    SymbolFrequency, LowestFieldValue,
     *                    HighestFieldValue, YAxisStartValue,
     *                    YAxisScale, YAxisHeight, MaxYAxisHeight)
          call legend (PlotLength + 1., YAxisOffset, NumberOfFiles,
     *                 XAxisScale, VisibleTimeGap, SymbolCode,
     *                 YAxisScale, ApproxAvgTimeGap, SymbolFrequency,
     *                 CruiseID, FileName, FieldName, FieldUnits,
     *                 InputFormat, ThickLineCode, ThinLineCode,
     *                 MaxNumOfFields, TimeStamp, MaxNumOfRecords,
     *                 NumberOfFields, NumberOfRecords, WindowStartTime,
     *                 WindowEndTime, UsingColor, GetLegendDimensions,
     *                 LegendWidth, LegendHeight, NodeName)
          call plot (0., 0., 3)
                  call plot (0., 0., -999)
                  call origin (XAxisOrigin, YAxisOrigin, -1)
                  call plot   (TotalLength, 0. - YAxisOrigin, -3)
              call plot (0., TotalHeight, -3)
                      call newpen (FieldNumber)
                      call newpen (ThinLineCode)
                      call newpen (ThickLineCode)
                      call rdarray
     *                    (NextElementPointer, NumberOfElements,
     *                     NumberOfRecords (FilePointer),
     *                     VisibleTimeGap, FieldValue, TimeStamp,
     *                     XAxisValues, YAxisValues, MaxNumOfFields,
     *                     MaxNumOfRecords, NumberOfFiles, FilePointer,
     *                     FieldPointer,
     *                     YAxisStartValue (FieldPointer, FilePointer),
     *                     YAxisScale (FieldPointer, FilePointer),
     *                     YAxisHeight)
                              call line (AdjustedXValues,
     *                                   AdjustedYValues,
     *                                   NumberOfElements, 1, 0, 0)
                              call line (AdjustedXValues,
     *                                   AdjustedYValues,
     *                                   NumberOfElements, 1,
     *                                   SymbolFrequency (FilePointer),
     *                                   SymbolCode (FieldNumber))
                              call symbol (XPosition, YPosition,
     *                                     .125, 5, 0, -1)
                              call symbol (XPosition, YPosition, .125,
     *                                     SymbolCode (FieldNumber),
     *                                     0, -1)
          call graph (XAxisOffset, YAxisOffset, XAxisLength,
     *                YAxisHeight, DataStartTime, DataEndTime,
     *                YAxisStartValue, YAxisScale, XAxisScale,
     *                FieldName, SymbolCode, AscendingXAxis,
     *                ThickLineCode, ThinLineCode, NumberOfFiles,
     *                NumberOfFields, MaxNumOfFields, UsingZeta,
     *                UsingColor)
          call legend (PlotLength + 1., YAxisOffset, NumberOfFiles,
     *                 XAxisScale, VisibleTimeGap, SymbolCode,
     *                 YAxisScale, ApproxAvgTimeGap, SymbolFrequency,
     *                 CruiseID, FileName, FieldName, FieldUnits,
     *                 InputFormat, ThickLineCode, ThinLineCode,
     *                 MaxNumOfFields, TimeStamp, MaxNumOfRecords,
     *                 NumberOfFields, NumberOfRecords, WindowStartTime,
     *                 WindowEndTime, UsingColor, GetLegendDimensions,
     *                 LegendWidth, LegendHeight, NodeName)
              call yesno ('Y[N]', UserAnswer)
      call plot (0., 0., 999)

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