USGS InfoBank program -- rocktabs

rocktabs

  Program to convert output of "rocks" program to tab-delimited.

       

  Clint Steele    9/9/2004


    

          read (90, '(q,a)', end = 99)
     *        alinelength, aline(1:alinelength)

                  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)')

      call openem (1,-2)
                   call stringlen (contents, contentslength)
                   call stringlen (comments, commentslength)