Expanded Description
| Topic |
Description |
| Name |
breakcollection |
| Synopsis |
/infobank/programs/kml/mergekml/collections/breakcollection.for |
| Description |
Program to divide up a collection of pathnames by region ID.
|
| AUTHOR |
Clint Steele 2/13/2008
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = InFile(1:SlashDot-1)//'_'//
* ALine(Dot-2:Dot-1)//'.control')
|
| Calls |
call openem (1,0)
call stringlen (InFile, InFileLength)
|
