/[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 985 by johnpye, Thu Dec 21 04:06:02 2006 UTC revision 990 by johnpye, Thu Dec 21 07:12:58 2006 UTC
# Line 30  REQUIRE "atoms.a4l"; Line 30  REQUIRE "atoms.a4l";
30  MODEL idakryx;  MODEL idakryx;
31    
32      M IS_A integer_constant;      M IS_A integer_constant;
33      M :== 4;      M :== 5;
34    
35      dx IS_A real_constant;      dx IS_A real_constant;
36      dx :== 1.0 / (M - 1);      dx :== 1.0 / (M - 1);
# Line 116  METHOD ode_init; Line 116  METHOD ode_init;
116          END FOR;          END FOR;
117      END FOR;      END FOR;
118    
119        t.obs_id := 1;
120        udot[M/2][M/2].obs_id := 2;
121    
122      t.ode_type := -1;      t.ode_type := -1;
123            
124  END ode_init;  END ode_init;

Legend:
Removed from v.985  
changed lines
  Added in v.990

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22