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: 2c4e0338e4da0034ac3dcb4d19e48eab59a378f83e9cca1c34d3be7c365e6645
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
67
68
69
70
71
72
73
74
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;







|







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;


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]