Overview
Comment:Set open-switch states to zero
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: d8a4e84ed677c57be63bafbb06ad57aeb78b168e3f7b3be6a2b69b8bb1664ebe
User & Date: gawthrop@users.sourceforge.net on 1999-04-20 06:13:14
Other Links: branch diff | manifest | tags
Context
1999-04-20
06:14:53
Reorder to make equivalent to .p version check-in: 50fc0a4bcc user: gawthrop@users.sourceforge.net tags: origin/master, trunk
06:13:14
Set open-switch states to zero check-in: d8a4e84ed6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
00:58:22
Set open-switch states to zero check-in: 2865e210b6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/p/mtt_implicit.p from [9617dd391d] to [88346d95ba].

︙︙
37
38
39
40
41
42
43
44
45
46

   ii := 0;
   FOR i := 1 TO Nx DO
      IF open[i]<0.5 THEN
      BEGIN
	 ii := ii+1;
	 xnew[i] := xsub[ii];
      END ELSE
	 xnew[i] := x[i];
END;{mtt_implicit}			  









|



37
38
39
40
41
42
43
44
45
46

   ii := 0;
   FOR i := 1 TO Nx DO
      IF open[i]<0.5 THEN
      BEGIN
	 ii := ii+1;
	 xnew[i] := xsub[ii];
      END ELSE
	 xnew[i] := 0.0;
END;{mtt_implicit}

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