Expanded Description
| Topic |
Description |
| Name |
therack |
| Synopsis |
/infobank/programs/filt/misc/therack.for |
| Description |
Program to stretch out data at start and end for filtering.
|
| AUTHOR |
Carolyn Degnan, 08/23/90
|
| Reads |
read (InputUnit, '(q,a<iLen>)', iostat = Erro
* iLen, cData
read (cData, '(i3,3i2,i1)') iDa, iHr, iMin, iSec, iTen
read (InputUnit, '(i3,3i2,i1)') iDa, iHr, iMin, iSec, iTen
read (*, '(i3,3i2,i1)') iDa, iHr, iMin, iSec, iTen
read (InputUnit, '(i3,3i2,i1,a<iLen>)', iostat = Erro
* iDa, iHr, iMin, iSec, iTen, cData
|
| Writes |
write (OutputUnit, '(i3.3,3i2.2,i1.1,a<iLen&
* iDa, iHr, iMin, iSec, iTen, cData(11:iLen)
write (OutputUnit, '(i3.3,3i2.2,i1.1,a<iLen&
* iDa, iHr, iMin, iSec, iTen, cData(1:iLen)
write (OutputUnit, '(i3.3,3i2.2,i1.1,a<iLen&
* iDa, iHr, iMin, iSec, iTen, cData(1:iLen)
|
| Opens |
|
| Calls |
call openem (1, 1)
call converttime ('COMPRESS', iDa, iHr, iMin, iSec, iTen,
* iTime1, cErr)
call converttime ('COMPRESS', iDa, iHr, iMin, iSec, iTen,
* iTime2, cErr)
call converttime ('EXPAND', iDa, iHr, iMin, iSec, iTen,
* iTimeDiff, cErr)
call converttime ('COMPRESS', iDa, iHr, iMin, iSec, iTen,
* iTime, cErr)
call showcoef (flow, fhigh, gibbs, iorder, percent)
call converttime ('EXPAND', iDa, iHr, iMin, iSec, iTen,
* iTime, cErr)
call percentage (InputUnit)
call forerror (ErrorFlag)
call converttime ('COMPRESS', iDa, iHr, iMin, iSec, iTen,
* iTime, cErr)
call converttime ('EXPAND', iDa, iHr, iMin, iSec, iTen,
* iTime, cErr)
call percentage (0)
|
|
