Expanded Description
| Topic |
Description |
| Name |
mergeseis |
| Synopsis |
/infobank/programs/kml/mergeseis/mergeseis.for |
| Description |
Program to create a merged seismic .kml file.
|
| AUTHOR |
Clint Steele 3/6/2008
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (ALine, '(1024x)')
write (Command, '(1024x)')
write (Command, '(a)')
* '/bin/cat '//ALine(1:ALineLength)//' >&g
* '/infobank/programs/kml/mergeseis/'//Type//'/'//
* ALine(Dot(1)+1:Dot(2)-1)//
* '.'//Type//'.kmlinc'
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name =
* '/infobank/programs/kml/mergeseis/'//Type//'.list')
|
| Calls |
call divideseis ('seisendpoints')
call divideseis ('seisids')
call divideseis ('seisnav')
call system ('/bin/find /infobank/?/*/kml/*kmlinc | '//
* ' grep '//Type//' >
* '/infobank/programs/kml/mergeseis/'//Type//'.list')
call system ('/bin/rm '//
* '/infobank/programs/kml/mergeseis/'//
* Type//'/*.'//Type//'.kmlinc')
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
|
