Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- gapsg

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
gapsg
Synopsis
/infobank/programs/plt/graphed/gapsg.for
Description
  Subroutine to label time gaps on a GRAPHED display in minutes or hours.

       
COMMENTS
  It is called by and internal to GRAPHED.

    
TO_USE
  call gapsg (time, data, ldeleted, icount, istart, startime, 

  timespan, timegap)
    
  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
    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
    timegap - minimum visible time gap
    
SUBROUTINES
  Internal to GRAPHED: message

  External PLOT10: movea, movrel, aoutst
    
AUTHOR
  Ed Maple  2/20/87


    
Reads
Writes
          write (agap, '(i4)' ) igap
                      write (agap, '(i4)' ) igap
              write (agap, '(i4)' ) igap
Opens
Calls
              call message (gapline)
              call movea (startime, data (istart) )
              call movrel (37, -7)
              call aoutst (8, gapline)
                      call movea 
     *                   (time (jlast), data (jlast) )
                      call movrel (37, -7)
                      call aoutst (8, gapline)
              call movea (startime + timespan, 
     *                    data (jlast) )
              call movrel (-1 * (14 * 9), -7)
              call aoutst (8, gapline)

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