Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- restoreseg

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
restoreseg
Synopsis
/infobank/programs/plt/graphed/restoreseg.for
Description
  Subroutine to restore a set of previously deleted data points. 

       
COMMENTS
  The

  subroutine first displays all of the deleted points in the time window with c   x's, then using the crosshairs, the user picks the two end points of a line
  segment to be examined for deleted points and the subroutine restores all of c   the points between and including the two end points. The user maneuvers the c   crosshairs so that the vertical crosshair intersects one of the end points 
  then presses the 'O' key. This is repeated for the other end point. This
  subroutine is called by and is internal to GRAPHED.
    
TO_USE
  call restoreseg (time, data, ldeleted, lchanged, icount, istart, startime,

                   timespan, datamin, datamax, timegap, aline)
    
  Input:
    time - array of time in real tenths of a second from the input file
    data - array of data from the input file
    ldeleted - array of flags indicating whether an array element has been 
               deleted
    lchanged - array of flags indicating whether an array element has been
               modified (deleted or restored) since the last save
    icount - number of items in the arrays
    istart - pointer to the first array element in the current time window
    startime - starting time for current window in tenths of a second
    timespan - width of the x axis in real tenths of a second
    datamin - minimum data value
    datamax - maximum data value
    timegap - minimum visible time gap
    aline - entire input record
  Output:
    ldeleted - changed to .false. for the elements restored
    lchanged - changed to true if previously false, changed to false if
               previously true, for the elements restored
    datamin, datamax - modified if any of the elements restored were greater 
                       than 'datamax' or less than 'datamin'
    
PROMPTS
  After the user has positioned the vertical crosshair the subroutine expects

  one of three characters to indicate the user's intention:
    O - select an endpoint
    H - get help on this subroutine
    Q - quit this subroutine without executing it
  This is the same for each of the two endpoints.
    
SUBROUTINES
  Internal to GRAPHED: message, graphelpg, draw, showdeleted

  External PLOT10: vcursr
    
AUTHOR
  Ed Maple  2/20/87


    
Reads
Writes
Opens
Calls
          call message ('No deleted points found.')
          call showdeleted (time, data, ldeleted, icount, istart,
     *                      startime, timespan)
              call message ('Pick the 1st point then press an O')
              call vcursr (ichar, temp1, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('O')
                  call draw (time, data, ldeleted, icount, istart,
     *                       startime, timespan, timegap, aline)
                  call draw (time, data, ldeleted, icount, istart,
     *                       startime, timespan, timegap, aline)
                  call message ('No points restored')
                  call message ('Please press an O')
              call message ('Pick the 2nd point then press an O')
              call vcursr (ichar, temp2, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('O')
                  call draw (time, data, ldeleted, icount, istart,
     *                       startime, timespan, timegap, aline)
                  call draw (time, data, ldeleted, icount, istart,
     *                       startime, timespan, timegap, aline)
                  call message ('No points restored')
                  call message ('Please press an O')
          call draw (time, data, ldeleted, icount, istart, startime,
     *               timespan, timegap, aline)

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