/[ascend]/trunk/models/johnpye/fprops/water.c
ViewVC logotype

Diff of /trunk/models/johnpye/fprops/water.c

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

revision 2224 by jpye, Mon Jul 26 01:14:48 2010 UTC revision 2225 by jpye, Mon Jul 26 03:40:18 2010 UTC
# Line 318  int main(void){ Line 318  int main(void){
318          fprintf(stderr,"Solved rho_g(p=%f bar, T=%f K) = %f, should be %f, relerr = %e\n", p/1e5, T, rho_g_eval, rho_g, (rho_g_eval-rho_g)/rho_g);          fprintf(stderr,"Solved rho_g(p=%f bar, T=%f K) = %f, should be %f, relerr = %e\n", p/1e5, T, rho_g_eval, rho_g, (rho_g_eval-rho_g)/rho_g);
319            
320  # if 1  # if 1
321          p_eval = fprops_sat_succsubs(T, &rho_f_eval, &rho_g_eval, d, &res);          res = fprops_sat_T(T, &p_eval, &rho_f_eval, &rho_g_eval, d);
322          if(fabs(p_eval - p) > 0.005 * p){          if(fabs(p_eval - p) > 0.005 * p){
323              fprintf(stderr,"FAILED TEST\n");              fprintf(stderr,"FAILED TEST\n");
324              exit(1);              exit(1);

Legend:
Removed from v.2224  
changed lines
  Added in v.2225

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