Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- keepdata

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
keepdata
Synopsis
/infobank/programs/plt/graphed/keepdata.for
Description
  Subroutine to write a data set into an external output file, including all

  modifications made to the data indicated by the array 'ldeleted' (see
  TO_USE below), without leaving the calling program. 
       
COMMENTS
  This subroutine is internal to and called by GRAPHED.

    
TO_USE
  call keepdata (aline, ldeleted, lchanged, icount, aname)

   
  Input:
    aline - array of alphanumeric records read from the input file
    ldeleted - array of flags indicating whether an array element has been 
               deleted
    icount - number of items in the arrays
    aname - current default output file name; same as input file name unless
            changed
   
  Output:
    lchanged - array of flags indicating whether an array element has been
               modified (deleted or restored) since the last save
    aname - new default output file name, if changed by user
    
PROMPTS
  Enter the name of the output file:

    
SUBROUTINES
  Internal to GRAPHED: graphelpg

  External SHAREABLE: stringlen, header, changecase
    
AUTHOR
  Ed Maple  2/20/87

    
Reads
          read (*, '(a)' ) bname
      read (*, '(a1)' ) answer
Writes
              write (ioutunit, '(a)' ) aline (jcount) (1:ilen)
              write (ideleteunit, '(a)' ) aline (jcount)(1:ilen)
Opens
      open (unit = ioutunit,
     *      status = 'NEW',
     *      file = aname,
     *      recl = 1024)
      open (unit = ideleteunit,
     *      status = 'NEW',
     *      file = deletedname,
     *      recl = 1024)
Calls
      call specialmode ('TEXT')
          call changecase ('SMALL', bname)
              call graphelpg ('K')
          call yesno ('Y[N]', answer)
              call header (1, 1)
      call stringlen (aline (1), ilen)

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