Expanded Description
| Topic |
Description |
| Name |
missing |
| Synopsis |
/infobank/programs/dbase/missing/missing.for |
| Description |
Program to identify Activity IDs with missing metadata.
|
| AUTHOR |
Clint Steele 7/31/2001
|
| Reads |
read (5, '(q,a)') FileTypeLength,
* FileType(1:FileTypeLength)
read (89, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') 'Missing ---'
write (SearchFile, '(255x)')
write (91, '(a)')
* SearchFile(1:SearchFileLength)
|
| Opens |
open (unit = 89,
* form = 'formatted',
* access = 'sequential',
* status = 'old',
* file = '/infobank/programs/keep/cruises.keep')
|
| Calls |
call openem (0,-1)
call stringlen (SearchFile, SearchFileLength)
|
|
