Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- deleteseg

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

       
COMMENTS
  Using the crosshairs the user picks

  the two end points of the line segment to be deleted in the display and the
  subroutine flags all of the points between and including the two end points
  for deletion. The user maneuvers the crosshairs so that the vertical
  crosshair intersects one of the end points then presses the 'N' key. This is
  repeated for the other end point. This subroutine is called by and is
  internal to GRAPHED.
    
TO_USE
  call deleteseg (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 input record
  Output:
    ldeleted - changed to true for the elements deleted
    lchanged - changed to true if previously false, changed to false if
               previously true, for the elements deleted
    datamin, datamax - modified if any of the elements deleted were 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:
    N - select endpoint of line segment
    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

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


    
Reads
Writes
Opens
Calls
              call message ('Pick the 1st point then press an N')
              call vcursr (ichar, temp1, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('N')
                  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 message ('Please press an N')
              call message ('Pick the 2nd point then press an N')
              call vcursr (ichar, temp2, yval)
              call changecase ('CAPITAL', achar)
                  call graphelpg ('N')
                  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 message ('Please press an N')
              call draw (time, data, ldeleted, icount, istart, startime,
     *                   timespan, timegap, aline)
              call message ('Use the D command to delete 1 point.')
              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/deleteseg.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:20 PDT 2013  (chd)