Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- showxy

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
showxy
Synopsis
/infobank/programs/plt/graphed/showxy.for
Description
  Subroutine to display either time or data value for a chosen point. 

       
COMMENTS
  Using crosshairs, the user picks a point for which he/she wants to know

  either the time or data value. The subroutine then finds this value and
  displays it on the screen next to the chosen point. Time is displayed as
  DAY/HOUR/MINUTE/SECOND/TENTH. This subroutine is internal to and called from
  GRAPHED.
    
TO_USE
  call showxy (time, data, ldeleted, icount, istart, startime, timespan,

               timegap, acode, lbathydata, aline)
    
  Input:
    time - array of real time in tenths of a second read from the input file
    data - array of data read from the input file
    ldeleted - array indicates if a corresponding record has been deleted
    icount - number of elements in the above arrays
    istart - points to first array element contained in current time window
    startime - starting time of the current window
    timespan - width of time window in tenths of a second
    timegap - minimum visible time gap in tenths of a second
    acode - 'T' or 'V' indicating whether to display time or value
    lbathydata - indicates input data is bathymetry if true
    aline - entire imput record
  No output from this subroutine.
    
PROMPTS
  After the user has positioned the vertical crosshair the subroutine expects

  one of three characters to indicate the user's intention:
    T or V - show time or value for this point
    H - get help on this subroutine
    Q - quit this subroutine without executing it
    
SUBROUTINES
  Internal to GRAPHED:  message, graphelpg, draw, findpoint

  External SHAREABLE:  converttime, changecase
  External PLOT10:  vcursr, movea, movrel, aoutst
    
AUTHOR
  Ed Maple  2/20/87

  M Hamer  10/7/92  Change point displayed as positive instead of negative


    
Reads
Writes
          write (atime, '(i3.3,3i2.2,i1.1)' )
     *        iday, ihr, imin, isec, iten
          write (adatum, '(f11.1)' ) data (jpoint)
Opens
Calls
          call message ('Please select a point then press '//acode)
          call vcursr (ichar, xtime, yval)
          call changecase ('CAPITAL', achar)
              call graphelpg (acode)
              call draw (time, data, ldeleted, icount, istart, startime,
     *                   timespan, timegap, aline)
              call draw (time, data, ldeleted, icount, istart, startime,
     *                   timespan, timegap, aline)
              call message
     *            ('Please press a '//acode//' to select a point')
      call findpoint (time, ldeleted, icount, istart, startime,
     *                timespan, xtime, .true., jpoint)
      call movea (time (jpoint), data (jpoint) )
      call movrel (-4, -7)
      call aoutst (1, achar)
          call converttime ('EXPAND', iday, ihr, imin, isec, iten,
     *                      nint (time (jpoint) ), timerror)
          call movea (time (jpoint), data (jpoint) )
          call movrel (-1 * (8 * 12 + 74), 0)
          call aoutst (12, atime)
          call movea (time (jpoint), data (jpoint) )
          call movrel (50, 0)
          call aoutst (11, adatum)

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