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 Unified 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

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$




## Revision 1.1  1996/08/12 19:09:13  peter
## Initial revision
##
###############################################################

#Inform user
echo Creating $1_dm.m








>
>
>
>








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

  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 "MTTB = zeros(", MTTN, ",", MTTNu, ");";

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";









<









|
>
>
>
|
|

|
>

<
<

<
<

<
<





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;





%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, ");";
write "MTTB = zeros(", MTTN, ",", MTTNu, ");";
write "MTTC = zeros(", MTTNy, ",", MTTN, ");";
write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
write "MTTE = zeros(", MTTN, ",", MTTN, ");";


ON NERO;	% Suppress zero elements.
MTTA := MTTA;
MTTB := MTTB;


MTTC := MTTC;


MTTD := MTTD;


MTTE := MTTE;

SHUT "$1_dm.m";

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