Overview
Comment:Fixed bug when some matrices are empty.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 7dbc0b1aab5d0c24ac8fe94060644c237f428dd86f398c6c220619da234e6264
User & Date: gawthrop@users.sourceforge.net on 1996-08-18 12:02:46
Other Links: branch diff | manifest | tags
Context
1996-08-18
12:03:06
Unified format of time responses. check-in: 94c73ad0d8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:02:46
Fixed bug when some matrices are empty. check-in: 7dbc0b1aab user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:00:19
Unified format of responses. check-in: c040d849f9 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dm_r2m from [cf15c07c0d] to [ad3eebbda3].

︙
10
11
12
13
14
15
16




17
18
19
20
21
22
23

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27








+
+
+
+








# Copyright (c) P.J.Gawthrop, 1989, 1990, 1991, 1993,1994.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2  1996/08/12 20:22:20  peter
## Paramaters passed via an internal call to _numpar.
## _args script can overide these parameters - sneaky.
##
## Revision 1.1  1996/08/12 19:09:13  peter
## Initial revision
##
###############################################################

#Inform user
echo Creating $1_dm.m
︙
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85






86
87


88
89
90
91
92
93
94
95
96
97
98
99
100

70
71
72
73
74
75
76

77
78
79
80
81
82
83
84
85



86
87
88
89
90
91
92

93
94
95


96


97


98
99
100
101








-









-
-
-
+
+
+
+
+
+

-
+
+

-
-

-
-

-
-





  END;
  write "% Read in the arguments";
  write "$1_args";
END;



ON NERO;	% Suppress zero elements.

%Fortran switches - one line expressions
OFF echo;
ON fort$
cardno!* := 1$
fortwidth!* := 100$
OFF period$

MTTN := MTTNx + 2*MTTNz + MTTNyz;

write "MTTA = zeros(", MTTN, ",", MTTN, ");";
MTTA := MTTA;
write "MTTA = zeros(", MTTN, ",", MTTN, ");";
write "MTTB = zeros(", MTTN, ",", MTTNu, ");";
write "MTTC = zeros(", MTTNy, ",", MTTN, ");";
write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
write "MTTE = zeros(", MTTN, ",", MTTN, ");";


write "MTTB = zeros(", MTTN, ",", MTTNu, ");";
ON NERO;	% Suppress zero elements.
MTTA := MTTA;
MTTB := MTTB;

write "MTTC = zeros(", MTTNy, ",", MTTN, ");";
MTTC := MTTC;

write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
MTTD := MTTD;

write "MTTE = zeros(", MTTN, ",", MTTN, ");";
MTTE := MTTE;

SHUT "$1_dm.m";

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