Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- reformatax

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
reformatax
Synopsis
/infobank/programs/refmt/reformatax/reformatax.for
Description
  Program to reformat alphanumeric records.

   
  Accepts up to 25 alpha fields.
       
AUTHOR
  Clint Steele       .for      1/9/86

  Clint Steele       8/1/90     Enhanced prompting info.

    
Reads
          read (5, *) numin
          read (5, *) in (1, icount), in (2, icount), out (icount) 
          read (90, 1, end = 99) len, aline(1:len)
Writes
          write (91, 2) (aline (in (1, j) :in (2, j) ), j = 1, numin) 
Opens
Calls
      call openem (1, -1) 

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