/[ascend]/trunk/models/johnpye/idakryx.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/idakryx.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 984 by johnpye, Mon Dec 18 05:49:00 2006 UTC revision 985 by johnpye, Thu Dec 21 04:06:02 2006 UTC
# Line 102  METHOD values; Line 102  METHOD values;
102  END values;  END values;
103    
104  METHOD ode_init;  METHOD ode_init;
105      FREE udot[1..M-2][1..M-2];      FREE udot[1..M-2][1..M-2]; (* middle *)
106      FREE udot[0,M-1][0..M-1];      FIX udot[0,M-1][0..M-1]; (* top, bottom *)
107      FREE udot[1..M-2][0,M-1];      FIX udot[1..M-2][0,M-1]; (* sides *)
108    
109      FOR i IN [0..M-1] DO      FOR i IN [0..M-1] DO
110          FOR j IN[0..M-1] DO          FOR j IN[0..M-1] DO
Legend:
Removed from v.984  
changed lines
  Added in v.985
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22