Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- justlines

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
justlines
Synopsis
/infobank/programs/time/events/justlines.for
Description
  Subroutine to create event files when justlines.keep exists.

       
AUTHOR
  Clint Steele      3/4/2004

  Carolyn Degnan  1/20/2011
  added capability to read DAPX format input

    
Reads
          read (InputUnit, '(a)', end = 99) ThisLine
Writes
      write (LastLine, '(1024x)')
      write (FirstLine, '(1024x)')
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',FirstLine(1:14),LastLine(1:14),
     *                        FirstLine(37:49)
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',FirstLine(1:14),LastLine(1:14),
     *                        FirstLine(39:51)
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',FirstLine(1:14),
     *                        FirstLine(1:4)//'3662359599',
     *                        FirstLine(37:49)
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',LastLine(1:4)//'0010000001',
     *                        FirstLine(37:49)
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',FirstLine(1:14),
     *                        FirstLine(1:4)//'3662359599',
     *                        FirstLine(39:51)
                          write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                        '1',LastLine(1:4)//'0010000001',
     *                        FirstLine(39:51)
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',FirstLine(1:14),LastLine(1:14),
     *                FirstLine(37:49) 
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',FirstLine(1:14),LastLine(1:14),
     *                FirstLine(39:51)
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',FirstLine(1:14),
     *                FirstLine(1:4)//'3662359599',
     *                FirstLine(37:49)
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',LastLine(1:4)//'0010000001',
     *                FirstLine(37:49)
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',FirstLine(1:14),
     *                FirstLine(1:4)//'3662359599',
     *                FirstLine(39:51)
                  write (OutputUnit, '(a,2x,a,2x,a,2x,a)')
     *                '1',LastLine(1:4)//'0010000001',
     *                FirstLine(39:51)
Opens
Calls
      call system ('/bin/cp '//
     *    '/infobank/programs/time/events/usinglinesmessage.keep '//
     *    OutputFileName//'_timegap')

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