/[ascend]/trunk/models/steam/iapwssat.a4c
ViewVC logotype

Diff of /trunk/models/steam/iapwssat.a4c

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

revision 1051 by johnpye, Sat Jan 6 04:08:29 2007 UTC revision 1052 by johnpye, Sat Jan 6 04:28:44 2007 UTC
# Line 29  METHODS Line 29  METHODS
29  METHOD values;  METHOD values;
30      RUN iapwssatprops::values;      RUN iapwssatprops::values;
31      x := 1.01;      x := 1.01;
32        x.upper_bound := 1.0;
33        x.lower_bound := 0.0;
34  END values;  END values;
35  METHOD self_test;  METHOD self_test;
36      ASSERT x == 1.0;      ASSERT x <= x.upper_bound;
37        ASSERT x >= x.lower_bound;
38  END self_test;  END self_test;
39  END testiapwssat1;  END testiapwssat1;
Legend:
Removed from v.1051  
changed lines
  Added in v.1052
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22