Expanded description
| Topic |
Description |
| Name |
samponoff2details |
| Synopsis |
/infobank/programs/refmt/samponoff2details/samponoff2details.for |
| Description |
Program to subdivide .onoff. files into "---" detailed files.
|
| Author |
Clint Steele 5/11/01
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/samponoff2details.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'new',
* name = OutFile(1:OutFileLength)//'.'//
* SampleID(1:SampleIDLength))
|
| Reads |
read (5, '(q,a)', end = 99) IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 98)
* InFileLength, InFile(1:InFileLength)
read (91, '(q,a)', end = 96)
* ALineLength, ALine(1:ALineLength)
read (5, '(a1)', end = 99) Column
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (OutFile, '(1024x)')
write (SampleID, '(9x)')
write (92, '(a,a)') 'Sample ID --- ',ALine(80:88)
write (92, '(a,a)') 'Sample ID --- ',ALine(90:98)
write (92, '(a,a)') 'Sample ID --- ',
* ALine(100:108)
write (92, '(a,a)') ' Activity ID --- ',
* ALine(37:43)
write (92, '(a,a)') ' Sampling Equipment --- ',
* ALine(45:68)
write (92, '(a,a,a)') ' Time --- ',
* ALine(1:14), ' (yyyydddhhmmsst)'
write (92, '(a,a)') ' Latitude --- ',
* ALine(16:24)
write (92, '(a,a)') ' Longitude --- ',
* ALine(26:35)
write (92, '(a,a)') ' Water Depth --- ',
* ALine(70:78)
write (92, '(a,a)') ' Comment --- ',
* ALine(90:ALineLength)
write (92, '(a,a)') ' Comment --- ',
* ALine(100:ALineLength)
write (92, '(a,a)') ' Line --- ',
* ALine(80:88)
write (92, '(a,a)') ' Station --- ',
* ALine(90:98)
write (92, '(a,a)') ' Comment --- ',
* ALine(110:ALineLength)
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
call system ('ls -1 /infobank/'//
* ID(1:1)//
* '/'//ID(1:IDLength)//
* '/samp/*.onoff.* > '//
* '/tmp/samponoff2details.temp')
call stringlen (OutFile, OutFileLength)
call stringlen (SampleID, SampleIDLength)
call changecase ('SMALLS', SampleID)
call changecase ('CAPS', ALine(1:ALineLength))
|
|
