Overview
| Comment: | Error handling added. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
8d9b71b3b17523d64566db9492422009 |
| User & Date: | gawthrop@users.sourceforge.net on 1996-08-25 09:53:35.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-08-25
| ||
| 10:07:05 |
Remove a du state ment causaing touble - but needs more work. check-in: fc06d98918 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:53:35 | Error handling added. check-in: 8d9b71b3b1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:52:20 | Initial revision check-in: d56a1e85e7 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/dae2dm_r
from [0ed3b9f9ff]
to [73cd3789ce].
| ︙ | ︙ | |||
10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # Copyright (c) P.J.Gawthrop, 1991, 1994. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ############################################################### #Inform user echo Creating $1_dm.r # Remove the old log file rm -f dae2dm_r.log | > > > | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | # Copyright (c) P.J.Gawthrop, 1991, 1994. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.1 1996/08/18 20:03:51 peter ## Initial revision ## ############################################################### #Inform user echo Creating $1_dm.r # Remove the old log file rm -f dae2dm_r.log |
| ︙ | ︙ | |||
283 284 285 286 287 288 289 290 291 292 293 294 |
IF MTTNy>0 THEN IF MTTNu>0 THEN
BEGIN
write "matrix MTTD(", MTTNy, ",", MTTNu, ");";
FOR i := 1:MTTNy DO
FOR j := 1:MTTNu DO IF MTTD(i,j) NEQ 0 THEN
write "MTTD(", i, ",", j, ") := ", MTTD(i,j);
END;
SHUT "$1_dm.r";
quit;
EOF
| > > > > > | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
IF MTTNy>0 THEN IF MTTNu>0 THEN
BEGIN
write "matrix MTTD(", MTTNy, ",", MTTNu, ");";
FOR i := 1:MTTNy DO
FOR j := 1:MTTNu DO IF MTTD(i,j) NEQ 0 THEN
write "MTTD(", i, ",", j, ") := ", MTTD(i,j);
END;
write "END;";
SHUT "$1_dm.r";
quit;
EOF
# Now invoke the standard error handling.
mtt_error_r dae2dm_r.log
|