Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- cores2items

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
cores2items
Synopsis
/infobank/programs/dbase/cores2items/cores2items.for
Description
  Program to convert "tabular" core information to .item files.


       
Reads
              read (90, '(q,a)', end = 99)
     *          Length(Count),
     *          ALine(Count)(1:Length(Count))
              read (90, '(q,a)', end = 99)
     *          Length(Count),
     *          ALine(Count)(1:Length(Count))
          read (ALine(1)(1:Length(1)), '(i)') Item
          read (ALine(15)(1:Length(15)), '(i)') Row
Writes
          write (Archive, '(13x)')
          write (FileName, 3) Item
            write (91, 4) Item,
     *        ALine(14)(1:Length(14)),
     *        Row,
     *        ALine(8)(1:Length(8)),
     *        ALine(7)(1:Length(7)),
     *        ALine(9)(1:Length(9)),
     *        ALine(10)(1:Length(10)),
     *        Archive,
     *        ALine(12)(1:Length(12)),
     *        ALine(13)(1:Length(13)),
     *        ALine(16)(1:Length(16))
            write (91, 40) 
     *        ALine(8)(1:Length(8)),
     *        ALine(7)(1:Length(7)),
     *        ALine(9)(1:Length(9)),
     *        ALine(10)(1:Length(10)),
     *        Archive,
     *        ALine(12)(1:Length(12)),
     *        ALine(13)(1:Length(13)),
     *        ALine(16)(1:Length(16))
Opens
              open (unit = 91,
     *            status = 'old',
     *            form = 'formatted',
     *            access = 'append',
     *            file = FileName)
              open (unit = 91,
     *            status = 'new',
     *            form = 'formatted',
     *            access = 'sequential',
     *            file = FileName)
Calls
      call openem (1,0)

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