/[ascend]/trunk/models/test/defaultall/test3.a4c
ViewVC logotype

Diff of /trunk/models/test/defaultall/test3.a4c

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

revision 2244 by jpye, Mon Aug 2 01:05:11 2010 UTC revision 2245 by jpye, Mon Aug 2 04:20:18 2010 UTC
# Line 15  END var_default_to_three; Line 15  END var_default_to_three;
15    
16    
17  MODEL sub1;  MODEL sub1;
18      v IS_A var_default_to_three      c IS_A var_default_to_three;
19      a IS_A solver_var;      a IS_A solver_var;
20      b IS_A solver_var;      b IS_A solver_var;
21      v = 5;      c = 5; (* equation, value is not applied until model is solved *)
22  METHODS  METHODS
23  METHOD default_self;  METHOD default;
24      a := 4;      a := 4;
25      b := 8;      b := 8;
26  END default_self;  END default;
27  END sub1;  END sub1;
28    
29  MODEL sub2;  MODEL sub2;
30      s1a IS_A sub1;      s1a IS_A sub1;
31      s1b IS_A sub1;      s1b IS_A sub1;
32      v IS_A var_default_to_3;      c IS_A var_default_to_three;
33        d IS_A var_default_to_three;
34    METHODS
35    METHOD default;
36        d := 5.;
37    END default;
38  END sub2;    END sub2;  
39    
40  MODEL test2;  MODEL test3;
41      s2 IS_A sub2;      s2 IS_A sub2;
42      v IS_A var_default_to_3;      c IS_A var_default_to_three;
43  END test2;  METHODS
44    METHOD mess_up_values;
45        c := 0;
46        s2.c := 0;
47        s2.d := 0;
48        s2.s1a.a := 0;
49        s2.s1a.b := 0;
50        s2.s1a.c := 0;
51        s2.s1b.a := 0;
52        s2.s1b.b := 0;
53        s2.s1b.c := 0;
54    END mess_up_values;
55    END test3;
56    
Legend:
Removed from v.2244  
changed lines
  Added in v.2245
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22