Expanded description
| Topic |
Description |
| Name |
metamucil |
| Synopsis |
/infobank/programs/dsmpl/metamucil/metamucil.for |
| Description |
Program to create a file of evenly spaced times.
|
| Process |
All times will be
multiples of the user supplied time rate. Gaps greater than the user
supplied acceptable time jump are preserved.
|
| Prompts |
Enter input file name:
Enter output file name:
Enter your desired record frequency in D/H/M/S/T format:
DDDHHMMSST
Enter the maximum acceptable time jump in D/H/M/S/T format:
DDDHHMMSST
|
| Subroutines |
converttime (Shared image)
openem (Shared image)
|
| Author |
Ed Maple 12/4/89 Redesigned from the old version by Barb Blubaugh.
Improvements include:
Better design, more readable code. Eliminated bug in which some
gaps that were less than the maximum acceptable time gap
wouldn't be filled.
|
| Reads |
read (*, '(i4,i3,3i2,i1)') Year, Day, Hour, Minute,
* Second, Tenth
read (*, '(i4,i3,3i2,i1)') Year, Day, Hour, Minute,
* Second, Tenth
read (InputUnit, '(i4,i3,3i2,i1)')
* Year, Day, Hour, Minute, Second, Tenth
read (InputUnit, '(i4,i3,3i2,i1)', end = 900,
* iostat = ErrorFlag)
* Year, Day, Hour, Minute, Second, Tenth
|
| Writes |
write (OutputUnit, '(i4.4,i3.3,3i2.2,i1)')
* Year, Day, Hour, Minute, Second, Tenth
write (OutputUnit, '(i4.4,i3.3,3i2.2,i1)')
* Year, Day, Hour, Minute, Second, Tenth
write (OutputUnit, '(i4.4,i3.3,3i2.2,i1)')
* Year, Day, Hour, Minute, Second, Tenth
|
| Calls |
call openem (1, -1)
call converttime ('COMPRESS', Day, Hour, Minute, Second,
* Tenth, Frequency, TimeError)
call converttime ('COMPRESS', Day, Hour, Minute, Second,
* Tenth, MaxJump, TimeError)
call converttime ('COMPRESS', Day, Hour, Minute, Second, Tenth,
* FirstTime, TimeError)
call converttime ('COMPRESS', Day, Hour, Minute, Second,
* Tenth, EndTime, TimeError)
call converttime ('EXPAND', Day, Hour, Minute, Second,
* Tenth, OutputTime, TimeError)
call converttime ('EXPAND', Day, Hour, Minute, Second,
* Tenth, StartTime, TimeError)
call converttime ('EXPAND', Day, Hour, Minute, Second,
* Tenth, OutputTime, TimeError)
|
|
