Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- commenter

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
commenter
Synopsis
/infobank/programs/dbase/misc/infobank/commenter.for
Description
  Subroutine to allow users to conveniently submit comments to

  the Information Bank administrator.
       
AUTHOR
  Clint Steele     2/10/95


    
Reads
          read (5, '(q,a)', end = 99) Length, ALine(1:Length)
Writes
      write (59, '(/,a,2x,a)') CurrentDate, 
     *                       UserAddress(1:UserAddressLength)
      write (59, '(a)') CommentSource(1:SourceLength)
          write (ALine, '(255x)')
          write (59, '(a)') ALine(1:Length)
Opens
      open (unit = 59,
     *      file   = 'PMG$DISK:[PROGRAMS.DBASE]INFOBANK_COMMENTS.KEEP',
     *      access = 'APPEND',
     *      carriagecontrol = 'LIST',
     *      form   = 'FORMATTED',
     *      iostat = ErrorFlag,
     *      status = 'UNKNOWN')
Calls
      call date (CurrentDate)
      call stringlen (UserAddress, UserAddressLength)
      call stringlen (CommentSource, SourceLength)
          call forerror (ErrorFlag)
      call reportconstraints (59)

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/dbase/misc/infobank/commenter.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:45 PDT 2013  (chd)