Expanded description
| Topic |
Description |
| Name |
geoutm2utm |
| Synopsis |
/infobank/programs/html/geo2html/geoutm2utm.for |
| Description |
Program to convert line/x/y/z format to x/y/z/line format.
|
| Author |
Clint Steele 4/2/99
|
| Reads |
read (90, '(q,a,/,f,/,f,/,f)', end = 99)
* Length, Line(1:Length), UTMX, UTMY, UTMZ
read (90, '(a)', end = 99) Junk
|
| Writes |
write (LineType, '(30x)')
write (91, '(f12.3,t15,f12.3,t30,f12.3,t45,
* a,t60,a)')
* UTMX, UTMY, UTMZ,
* Line(1:Length),
* LineType(1:TypeLength)
|
| Calls |
call openem (1,-1)
call stringlen (LineType, TypeLength)
|
|