Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- delete

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

       
COMMENTS
  The user picks a point on the line in the

  display and the subroutine flags that point for deletion. When the
  crosshairs appear, the user is expected to maneuver them so that the
  vertical crosshair intersects the chosen point. Then the 'D' key must be
  entered. The subroutine then locates the nearest data record to the point
  chosen and flags it for deletion. This subroutine is called by and is
  internal to GRAPHED.
    
TO_USE
  call delete (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 of 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 imput record
  Output:
    ldeleted - changed to true for the element deleted
    lchanged - changed to true if previously false, changed to false if
               previously true, for the element deleted
    datamin, datamax - modified if the element deleted was equal to either
                       the datamax or datamin
    
PROMPTS
  After the user has positioned the vertical crosshair the subroutine expects

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

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


    
Reads
Writes
Opens
Calls
              call vcursr (ichar, xtime, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('D')
                  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 deleted')
          call findpoint (time, ldeleted, icount, istart, startime,
     *                    timespan, xtime, .true., 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/delete.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:19 PDT 2013  (chd)