Expanded Description
| Topic |
Description |
| Name |
processing |
| Synopsis |
/infobank/programs/html/makefmeta/processing.for |
| Description |
Subroutine to construct PROCESSING_STEPS for formal metadata.
|
| Reads |
read (TempUnit, '(a)') DataFile
read (TempUnit, '(a)', end=99) ALine
read (TempUnit, '(a)', end=99) ALine
read (TempUnit, '(a)') ALine
read (ALine(Position+5:Position+6), '(i2)') Day
read (SystemDateTime(21:24), '(i)') SystemYear
read (ALine(Position+9:Position+12), '(i4)') Year
read (SystemDateTime(9:10), '(i2)') SystemDay
|
| Writes |
write (OutUnit, '(1x)')
write (OutUnit, 237) DataText
write (ALine, '(1024x)')
write (OutUnit, 4) ALine(3:ALineLength)
write (OutUnit, 2) ALine(3:ALineLength)
write (ALine, '(1024x)')
write (OutUnit, 3)
write (OutUnit, 220) Year, Month, Day
write (OutUnit, '(1x)')
|
| Opens |
open (unit = TempUnit,
* file = PathName//'/'//
* DataType//'/'//
* LongID//'.best_'//DataType//'_file',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = TempUnit,
* file = DataFile(1:Length),
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = TempUnit,
* file = '/infobank/tmp/fmeta.filedate.temp',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
|
| Calls |
call stringlen (DataFile, Length)
call head (3, OutUnit,
* 'Process_Step:')
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call system ('ls -l '//DataFile(1:Length)//
* ' > /infobank/tmp/fmeta.filedate.tem
call stringlen (ALine, ALineLength)
call julianday ('JULIAN', CurrentDay,
* SystemYear, SystemMonth, SystemDay)
call julianday ('JULIAN', PastDay,
* SystemYear, Month, Day)
call head (4, OutUnit,
* 'Process_Contact:')
call contact (5, OutUnit)
|
|
