Overview
| Comment: | Now zaps comments (lines starting with #) |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d1439881e3394731af01b64e3e0cde09 |
| User & Date: | gawthrop@users.sourceforge.net on 2000-05-15 08:51:55.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-05-16
| ||
| 11:41:23 | *** empty log message *** check-in: 1a9de51a75 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-05-15
| ||
| 08:51:55 | Now zaps comments (lines starting with #) check-in: d1439881e3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-05-13
| ||
| 13:16:52 | Matrix initialisation for smxa check-in: d875314a8e user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/make_stdin
from [a651c6c513]
to [1fe38150b6].
| ︙ | ︙ | |||
19 20 21 22 23 24 25 |
PROCEDURE $1_input(VAR mttu : InputVector;
mttt : REAL;
mttx : StateVector;
mtty : OutputVector);
{Created by MTT on $date for standard input to simulation}
| | > > > > > > > > | > | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
PROCEDURE $1_input(VAR mttu : InputVector;
mttt : REAL;
mttx : StateVector;
mtty : OutputVector);
{Created by MTT on $date for standard input to simulation}
VAR t : REAL; ch: char;
BEGIN{$1_input}
{Zap comments}
REPEAT
read(ch);
IF ch="#" THEN
readln;
UNTIL NOT (ch="#");
read(t); { Read, and discard, first column (time) }
FOR mtti:=1 TO $Nu DO {Read the inputs}
read(mttu[mtti]);
readln; {Next line}
END{$1_input};
EOF
|