Differences From Artifact [9617dd391d]:

• Executable file mttroot/mtt/bin/trans/p/mtt_implicit.p — part of check-in [2a3c57d776] at 1999-04-02 06:22:53 on branch origin/master — Handles switches by deleting, not zeroing appropriate matrix
  entries. Avoids problem with rounding error. (user: gawthrop@users.sourceforge.net, size: 987) [annotate] [blame] [check-ins using]

To Artifact [88346d95ba]:

• Executable file mttroot/mtt/bin/trans/p/mtt_implicit.p — part of check-in [d8a4e84ed6] at 1999-04-20 06:13:14 on branch origin/master — Set open-switch states to zero (user: gawthrop@users.sourceforge.net, size: 986) [annotate] [blame] [check-ins using]

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}