Overview
Comment: | Back under rcs. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
2c4e0338e4da0034ac3dcb4d19e48eab |
User & Date: | gawthrop@users.sourceforge.net on 1996-09-12 18:34:44 |
Other Links: | branch diff | manifest | tags |
Context
1996-09-12
| ||
18:41:48 | Standard error handling added. check-in: 01389eac04 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
18:34:44 | Back under rcs. check-in: 2c4e0338e4 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
18:33:32 | Put back under rcs check-in: e22ff1d36f user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/sm_r2m from [eff748b620] to [152acdf403].
︙ | ︙ | |||
10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # Copyright (c) P.J.Gawthrop, 1989, 1990, 1991, 1993, 1994, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.3 1996/08/19 18:38:43 peter ## Read in the numerical params etc ... ## ## Revision 1.2 1996/08/19 16:25:18 peter ## Fixed bug when Nx=0. ## ## Revision 1.1 1996/08/19 15:14:51 peter | > > > | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | # Copyright (c) P.J.Gawthrop, 1989, 1990, 1991, 1993, 1994, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ # Revision 1.4 1996/08/24 14:12:26 peter # Global parameter passing. # ## Revision 1.3 1996/08/19 18:38:43 peter ## Read in the numerical params etc ... ## ## Revision 1.2 1996/08/19 16:25:18 peter ## Fixed bug when Nx=0. ## ## Revision 1.1 1996/08/19 15:14:51 peter |
︙ | ︙ | |||
60 61 62 63 64 65 66 | write "%Generated by MTT"; IF MTTNvar>0 THEN BEGIN write "% Set the parameters"; write "global ...;;"; FOR i := 1:MTTNvar DO BEGIN | | | 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | write "%Generated by MTT"; IF MTTNvar>0 THEN BEGIN write "% Set the parameters"; write "global ...;;"; FOR i := 1:MTTNvar DO BEGIN IF i<MTTNvar THEN write MTTVar(i,1), " ..." ELSE write MTTVar(i,1), ";" END; END; %Fortran switches - one line expressions OFF echo; |
︙ | ︙ |