Expanded description
| Topic |
Description |
| Name |
geo2html |
| Synopsis |
/infobank/programs/html/geo2html/geo2html.for |
| Description |
Program to convert geodetic surveying text summary files
to .htmls.
|
| Author |
Clint Steele 3/25/99
|
| Opens |
open (unit = 89,
* file = '/tmp/geo2html.temp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 90,
* file = InFile(1:InFileLength),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.header',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.synopsis',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.location',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 93,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//
* '.navarea',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//
* '.crew',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.conditions',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.geo_equipment',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.procedure',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.observations',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.post-processing',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.precision',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.notes',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.data_files',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 91,
* file = '/infobank/'//ID(1:1)//'/'//
* ID(1:IDLength)//'/geo/'//
* LongID(1:IDLength+3)//
* '.image_files',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
|
| Reads |
read (5, '(q,a)', end = 99) IDLength, ID(1:IDLength)
read (89, '(q,a)') InFileLength, InFile(1:InFileLength)
read (ALine(Colon:ALineLength-1),
* '(2x,a1,1x,i2,4x,i2,2x,f)')
* NS, LatDeg, LatMin, LatSec
read (ALine(Colon:ALineLength-1),
* '(2x,a1,1x,i3,4x,i2,2x,f)')
* EW, LongDeg, LongMin, LongSec
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (InFile, '(80x)')
write (InFile, '(80x)')
write (Section, '(1024x)')
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, 10) ALine(1:Colon-1),
* Dash, Latitude, ALine(Colon+2:ALineLength)
write (91, 11) ALine(1:Colon-1),
* Dash, Longitude, ALine(Colon+2:ALineLength)
write (93, 110) CapID(1:IDLength),
* Latitude, Latitude, Longitude, Longitude
write (91, '(a,t9,a)') CapID(1:IDLength),
* ALine(1:ALineLength)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(2x,a)') ALine(1:ALineLength)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:Colon-1)
write (ALine, '(1024x)')
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (91, '(a,1x,a)') CapID(1:IDLength),
* Section(1:SectionLength-1)
write (ALine, '(1024x)')
write (92, '(a)') ALine(1:ALineLength)
write (92, '(i4.4,1x,i4.4)')
* (Loop2, ichar(ALine(Loop2:Loop2)),
* Loop2 = 1, ALineLength)
write (Space, '(80x)')
write (TempLine, '(1024x)')
write (91, '(2x,a,a,1x,a,a)')
* TempLine(1:Colon-1),
* Space(Colon:Offset-4),
* Dash,
* TempLine(Colon+2:Blank)
write (91, '(a,a)') Space(1:Offset+3),
* TempLine(1:Blank)
write (91, '(a,a)') Space(1:Offset),
* TempLine(1:Blank)
write (91, '(2x,a,a,1x,a,a)')
* TempLine(1:Colon-1),
* Space(Colon:Offset-4),
* Dash,
* TempLine(Colon+2:TempLength)
write (91, '(a,a)') Space(1:Offset+3),
* TempLine(1:TempLength)
write (91, '(a,a,/)') Space(1:Offset),
* TempLine(1:TempLength)
|
| Calls |
call changecase ('SMALL', ID(1:IDLength))
call stringlen (InFile, InFileLength)
call system ('ls '//InFile(1:InfIleLength)//
* ' > /tmp/geo2html.temp')
call stringlen (InFile, InFileLength)
call system ('dos2unix -ascii '//
* InFile(1:InFileLength)//' /tmp/geo2html.tempfile')
call system ('/bin/cp /tmp/geo2html.tempfile '//
* InFile(1:InFileLength))
call system ('/bin/rm /tmp/geo2html.tempfile')
call changecase ('CAPITAL', CapID)
call stringlen (Section, SectionLength)
call getnfix (ALine, ALineLength)
call stringlen (ALine(1:ALineLength), ALineLength)
call getnfix (Section, SectionLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine(1:ALineLength), 26)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call changecase ('CAPITAL', ALine(1:ALineLength))
call stringlen (ALine, ALineLength)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine(1:ALineLength), 23)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine(1:ALineLength), 34)
call getnfix (ALine,ALineLength)
call stringlen (ALine, ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine(1:ALineLength), 2)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine(1:ALineLength), 33)
call getnfix (ALine,ALineLength)
call getnfix (ALine,ALineLength)
call pretty (ALine, 15)
call getnfix (ALine,ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
|
|
