Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- fixzerotime

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
fixzerotime
Synopsis
/infobank/programs/time/fixzerotime/fixzerotime.for
Description
  Program to add time to duplicate records by a specific amount.

       
AUTHOR
  Carolyn Degnan                        11/2/04

  from fudgetime.for by Clint Steele   11/15/96
  edited for additional dups, C Degnan   2/5/07

    
Reads
      read (5, '(i)') Adjustment
      read (90, '(q,a)', end = 99) Length, ALine1(1:Length)
      read (ALine1(1:Length), '(i4,i3,3i2,i1)')
     *    AYear, ADay, AHour, AMin, ASec, ATen
      read (90, '(q,a)', end = 99) Length, ALine2(1:Length)
      read (ALine2(1:Length), '(i4,i3,3i2,i1)')
     *    AYear, ADay, AHour, AMin, ASec, ATen
      read (90, '(q,a)', end = 99) Length, ALine3(1:Length)
      read (ALine3(1:Length), '(i4,i3,3i2,i1)')
     *    AYear, ADay, AHour, AMin, ASec, ATen
          read (90, '(q,a)', end = 99) Length, ALine3(1:Length)
          read (ALine3(1:Length), '(i4,i3,3i2,i1)')
     *        AYear, ADay, AHour, AMin, ASec, ATen
Writes
      write (91, '(i4.4,i3.3,3i2.2,i1.1,a)') 
     *    AYear, ADay, AHour, AMin, ASec, ATen,
     *    ALine1(15:Length)
              write (91, '(i4.4,i3.3,3i2.2,i1.1,a)') 
     *            AYear, ADay, AHour, AMin, ASec, ATen, 
     *            ALine2(15:Length)
                  write (91, '(i4.4,i3.3,3i2.2,i1.1,a)') 
     *                AYear, ADay, AHour, AMin, ASec, ATen, 
     *                ALine2(15:Length)
Opens
Calls
      call openem (1,-1)
      call converttime ('COMPRESS',
     *    ADay, AHour, AMin, ASec, ATen, Time1In, ErrorFlag)
      call converttime ('COMPRESS',
     *    ADay, AHour, AMin, ASec, ATen, Time2In, ErrorFlag)
      call converttime ('COMPRESS',
     *    ADay, AHour, AMin, ASec, ATen, Time3In, ErrorFlag)
              call converttime ('EXPAND  ',
     *            ADay, AHour, AMin, ASec, ATen, 
     *            Time2In, ErrorFlag)
                  call converttime ('EXPAND  ',
     *                ADay, AHour, AMin, ASec, ATen, 
     *                Time2Out, ErrorFlag)
          call converttime ('COMPRESS',
     *        ADay, AHour, AMin, ASec, ATen, 
     *        Time3In, ErrorFlag)

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