USGS InfoBank program -- items2cores

Expanded Description

Topic

Description

Name

items2cores

Synopsis

/infobank/programs/dbase/items2cores/items2cores.for

Description

  Program to demultiplex a collection of .item files into 

  "tabular" core information.

AUTHOR

  Clint Steele     11/18/97

Reads

          read (90, '(q,a)', end = 99) 
     *         TempLength, TempLine(1:TempLength)

Writes

              write (91, 21)
     *               ALine(1)(1:ALength(1)),   char(9), 
     *               ALine(2)(1:ALength(2)),   char(9), 
     *               ALine(3)(1:ALength(3)),   char(9), 
     *               ALine(4)(1:ALength(4)),   char(9), 
     *               ALine(5)(1:ALength(5)),   char(9), 
     *               ALine(6)(1:ALength(6)),   char(9), 
     *               ALine(7)(1:ALength(7)),   char(9), 
     *               ALine(8)(1:ALength(8)),   char(9), 
     *               ALine(9)(1:ALength(9)),   char(9), 
     *               ALine(10)(1:ALength(10)), char(9), 
     *               ALine(11)(1:ALength(11)), char(9), 
     *               ALine(12)(1:ALength(12)), char(9), 
     *               ALine(13)(1:ALength(13)), char(9), 
     *               ALine(14)(1:ALength(14)), char(9), 
     *               ALine(15)(1:ALength(15)), char(9), 
     *               ALine(16)(1:ALength(16)), char(9), 
     *               ALine(17)(1:ALength(17))
              write (91, 21) 
     *               ALine(1)(1:ALength(1)),   char(9), 
     *               ALine(2)(1:ALength(2)),   char(9), 
     *               ALine(3)(1:ALength(3)),   char(9), 
     *               ALine(4)(1:ALength(4)),   char(9), 
     *               ALine(5)(1:ALength(5)),   char(9), 
     *               ALine(6)(1:ALength(6)),   char(9), 
     *               ALine(7)(1:ALength(7)),   char(9), 
     *               ALine(8)(1:ALength(8)),   char(9), 
     *               ALine(9)(1:ALength(9)),   char(9), 
     *               ALine(10)(1:ALength(10)), char(9), 
     *               ALine(11)(1:ALength(11)), char(9), 
     *               ALine(12)(1:ALength(12)), char(9), 
     *               ALine(13)(1:ALength(13)), char(9), 
     *               ALine(14)(1:ALength(14)), char(9), 
     *               ALine(15)(1:ALength(15)), char(9), 
     *               ALine(16)(1:ALength(16)), char(9), 
     *               ALine(17)(1:ALength(17))
              write (ALine(1), '(255x)')
              write (ALine(14), '(255x)')
              write (ALine(15), '(255x)')
              write (ALine(8), '(255x)')
                  write (ALine(2), '(255x)')
                  write (ALine(3), '(255x)')
                  write (ALine(4), '(255x)')
                  write (ALine(5), '(255x)')
                  write (ALine(6), '(255x)')
                  write (ALine(2), '(255x)')
                  write (ALine(3), '(255x)')
                  write (ALine(4), '(255x)')
                  write (ALine(5), '(255x)')
                  write (ALine(6), '(255x)')
              write (ALine(7), '(255x)')
              write (ALine(9), '(255x)')
              write (ALine(10), '(255x)')
              write (ALine(11), '(255x)')
              write (ALine(12), '(255x)')
              write (ALine(13), '(255x)')
              write (ALine(16), '(255x)')
      write (91, 21) 
     *               ALine(1)(1:ALength(1)),   char(9), 
     *               ALine(2)(1:ALength(2)),   char(9), 
     *               ALine(3)(1:ALength(3)),   char(9), 
     *               ALine(4)(1:ALength(4)),   char(9), 
     *               ALine(5)(1:ALength(5)),   char(9), 
     *               ALine(6)(1:ALength(6)),   char(9), 
     *               ALine(7)(1:ALength(7)),   char(9), 
     *               ALine(8)(1:ALength(8)),   char(9), 
     *               ALine(9)(1:ALength(9)),   char(9), 
     *               ALine(10)(1:ALength(10)), char(9), 
     *               ALine(11)(1:ALength(11)), char(9), 
     *               ALine(12)(1:ALength(12)), char(9), 
     *               ALine(13)(1:ALength(13)), char(9), 
     *               ALine(14)(1:ALength(14)), char(9), 
     *               ALine(15)(1:ALength(15)), char(9), 
     *               ALine(16)(1:ALength(16)), char(9), 
     *               ALine(17)(1:ALength(17))

Opens

Calls

      call openem (1,-1)
          call stringlen (ALine(Count), ALength(Count))
                  call stringlen (ALine(Count), ALength(Count))
                  call stringlen (ALine(Count), ALength(Count))
           call stringlen (ALine(Count), ALength(Count))

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/items2cores/items2cores.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Thu Mar 22 03:04:17 PDT 2012 (chd)