Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- rocktabs

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
rocktabs
Synopsis
/infobank/programs/dbase/rocks/rocktabs.for
Description
  Program to convert output of "rocks" program to tab-delimited.

       
AUTHOR
  Clint Steele    9/9/2004


    
Reads
          read (90, '(q,a)', end = 99)
     *        alinelength, aline(1:alinelength)
Writes
                  write (92, '(a)')
     *                pallet(1:palletlength)//char(9)//
     *                activity(1:activitylength)//char(9)//
     *                scientist(1:scientistlength)//char(9)//
     *                contents(1:contentslength)//char(9)//
     *                comments(1:commentslength)
                  write (pallet, '(1024x)')
                  write (location, '(1024x)')
                  write (scientist, '(1024x)')
                  write (contents, '(4096x)')
                  write (comments, '(4096x)')
                  write (activity, '(1024x)')
                  write (location, '(1024x)')
                  write (91, '(a,a,a)')
     *                pallet(1:palletlength),char(9),
     *                location(1:locationlength)
                   write (92, '(a)')
     *                pallet(1:palletlength)//char(9)//
     *                activity(1:activitylength)//char(9)//
     *                scientist(1:scientistlength)//char(9)//
     *                contents(1:contentslength)//char(9)//
     *                comments(1:commentslength)
                  write (scientist, '(1024x)')
                  write (contents, '(4096x)')
                  write (comments, '(4096x)')
                  write (activity, '(1024x)')
                  write (scientist, '(1024x)')
                  write (contents, '(4096x)')
                  write (comments, '(4096x)')
Opens
Calls
      call openem (1,-2)
                   call stringlen (contents, contentslength)
                   call stringlen (comments, commentslength)

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