Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- restore

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
restore
Synopsis
/infobank/programs/plt/graphed/restore.for
Description
  Subroutine to restore a deleted point. 

       
COMMENTS
  All of the points which have been deleted from the current window are 

  displayed with x's and the user picks one of them. The subroutine then
  resets the delete flag for that point. The point is picked using the
  crosshairs. The user maneuvers them so that the vertical crosshair
  intersects the chosen point and pressed the 'U' key. This subroutine is
  called by and is internal to GRAPHED.
    
TO_USE
  call restore (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 the 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 element restored
    lchanged - changed to true if previously false, changed to false if
               previously true, for the element restored
    datamin, datamax - modified if the element restored was greater than the
                       datamax or less than the datamin
    
PROMPTS
  After the user has positioned the vertical crosshair the subroutine expects

  one of three characters to indicate the user's intention:
    U - restore the point
    H - get help on this subroutine
    Q - quit this subroutine without executing it
    
SUBROUTINES
  Internal to GRAPHED: message, showdeleted, graphelpg, draw,

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


    
Reads
Writes
Opens
Calls
          call message ('No deleted points in this window.')
          call showdeleted (time, data, ldeleted, icount, istart,
     *                      startime, timespan)
              call message ('Select a point then press a U')
              call vcursr (ichar, xtime, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('U')
                  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 a U')
          call findpoint (time, ldeleted, icount, istart, startime,
     *                    timespan, xtime, .false., jpoint)
          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/restore.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:20 PDT 2013  (chd)