Expanded description
| Topic |
Description |
| Name |
chevron |
| Synopsis |
/infobank/programs/refmt/chevron/chevron.for |
| Description |
Program to reformat Chevron UKOOA files to DAPS format.
|
| Author |
Clint Steele 1/17/2007 besed on westerngeco.for
|
| Opens |
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.dates')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.050')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.notes')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.infospecialist')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.activitytype')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.organization')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.ids')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.operationarea')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.best_nav_file')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = LongID(1:IDLength+3)//'.best_seis_file')
|
| Reads |
read (5, '(q,a)', end = 99)
* InLength, InFile(1:InLength)
read (5, '(q,a)', end = 99)
* IDLength, ID(1:IDLength)
read (ID(3:4), '(i2)') Year
read (ID(4:5), '(i2)') Year
read (90, '(q,a)', end=99)
* ALineLength, ALine(1:ALineLength)
read (ALine(26:34), '(i2,i2,f5.2)')
* LatDeg, LatMin, LatSec
read (ALine(36:45), '(i3,i2,f5.2)')
* LongDeg, LongMin, LongSec
|
| Writes |
write (93, '(a,t10,a)') BigID, '00/00/'//
* ID(IDLength-3:IDLength-2)//
* ' (JD 000) --> 00/00/'//
* ID(IDLength-3:IDLength-2)//
* ' (JD 000)'
write (93, '(a,t10,a)') BigID, 'Jon Childs'
write (93, '(a,t10,a)') BigID, 'geophysical survey'
write (93, '(a,t10,a)') BigID, 'Chevron'
write (LastJDay, '(15x)')
write (91, '(i4.4,i3.3,i7.7,t16,f9.5,t26,f10.5,1x,a)')
* Year,JDay,Count,Latitude, Longitude,
* ALine(6:25)//' '//ALine(47:ALineLength)
write (92, '(a,t10,a)') BigID,
* ALine(1:ALineLength-1)//'<br>'
write (93, '(a,t10,a,t30,a)') BigID(1:IDLength),
* BigLongID(1:IDLength+3),
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html">'//
* BigLongID(1:IDLength+3)//'</a>'
write (93, '(a,t10,a,t30,a)') BigID(1:IDLength),
* ALine(33:Colon-1),
* '<a href="http://walrus.wr.usgs.gov/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html">'//
* ALine(33:Colon-1)//'</a>'
write (93, '(a,t10,a)')
* BigID, ALine(Colon+1:ALineLength)
write (92, '(a)') ALine(1:ALineLength-1)//'<br>'
write (93, '(a)')
* '/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength)//'/nav/'//
* LongID(1:IDLength+3)//'.050'
write (93, '(a)')
* '/infobank/'//
* ID(1:1)//'/'//ID(1:IDLength)//'/seis/'//
* LongID(1:IDLength+3)//'.420_050'
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
call changecase ('CAPITALS', BigID(1:IDLength))
call changecase ('CAPITALS', BigLongID(1:IDLength+3))
|
|
