Overview
Comment:Fixed bug Ny changed to Nx in redidual loop.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 73ee98f2754db308c9ad91b9853e05b183c374cefd8c72435a6e360f07d443f0
User & Date: gawthrop@users.sourceforge.net on 1996-08-16 13:10:53
Other Links: branch diff | manifest | tags
Context
1996-08-16
13:17:57
Changed default args to include nx+nz
Fixed bug with vector outputs. check-in: 55e8a89afe user: gawthrop@users.sourceforge.net tags: origin/master, trunk
13:10:53
Fixed bug Ny changed to Nx in redidual loop. check-in: 73ee98f275 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
13:04:46
Fixed problem with more than one output (y vector). check-in: 57084c7bf1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dae_r2m from [e61e4f7c03] to [e46c3ddf0b].

︙︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996

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



## Revision 1.1  1996/08/15 16:46:06  peter
## Initial revision
##
###############################################################


# WARNING this is experimental!!








>
>
>








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

# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2  1996/08/16 08:57:34  peter
## Reads $1_input.
##
## Revision 1.1  1996/08/15 16:46:06  peter
## Initial revision
##
###############################################################


# WARNING this is experimental!!
︙︙
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154



MTTdx := MTTdx;
MTTGx := MTTGx;

OFF fort;

write "for i=1:", MTTNy, ";;";
write "  residual(i) = MTTdX(i)-MTTdX0(i);";
write "end;";

IF MTTNz>0 THEN
BEGIN
  write "dxz = MTTGx*MTTdx";
  write "for i=1:", MTTNz, ";;";








|








143
144
145
146
147
148
149
150
151
152
153
154
155
156
157



MTTdx := MTTdx;
MTTGx := MTTGx;

OFF fort;

write "for i=1:", MTTNx, ";;";
write "  residual(i) = MTTdX(i)-MTTdX0(i);";
write "end;";

IF MTTNz>0 THEN
BEGIN
  write "dxz = MTTGx*MTTdx";
  write "for i=1:", MTTNz, ";;";
︙︙

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