Parent Directory | Revision Log

Revision **2275** -
(**show annotations**)
(**download**)
(**as text**)

*Wed Aug 11 13:58:25 2010 UTC*
(13 years, 10 months ago)
by *jpye*

File MIME type: text/x-chdr

File size: 1845 byte(s)

File MIME type: text/x-chdr

File size: 1845 byte(s)

Fixing error return from asc_helmholtz function. The bug with 'defaultall' functionality is still here... see boiler_simple_test mode in models/johnpye/fprops/rankine_fprops.a4c.

1 | /* ASCEND modelling environment |

2 | Copyright (C) 2009 Carnegie Mellon University |

3 | |

4 | This program is free software; you can redistribute it and/or modify |

5 | it under the terms of the GNU General Public License as published by |

6 | the Free Software Foundation; either version 2, or (at your option) |

7 | any later version. |

8 | |

9 | This program is distributed in the hope that it will be useful, |

10 | but WITHOUT ANY WARRANTY; without even the implied warranty of |

11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |

12 | GNU General Public License for more details. |

13 | |

14 | You should have received a copy of the GNU General Public License |

15 | along with this program; if not, write to the Free Software |

16 | Foundation, Inc., 59 Temple Place - Suite 330, |

17 | Boston, MA 02111-1307, USA. |

18 | */ |

19 | |

20 | #ifndef FPROPS_HELM_IMPL_H |

21 | #define FPROPS_HELM_IMPL_H |

22 | |

23 | #include "helmholtz.h" |

24 | |

25 | /* |

26 | This file contains the headers for the private code definedin 'helmholtz.c'. |

27 | You shouldn't include this file in your programs, because the implementation |

28 | of the helmholtz curves is 'secret business' of the fprops code. |

29 | |

30 | We provide this header file just the purpose of diagnostic testing. |

31 | */ |

32 | |

33 | double helm_resid(double tau, double delta, const HelmholtzData *data); |

34 | double helm_resid_del(double tau, double delta, const HelmholtzData *data); |

35 | double helm_resid_tau(double tau, double delta, const HelmholtzData *data); |

36 | double helm_resid_deltau(double tau, double delta, const HelmholtzData *data); |

37 | double helm_resid_deldel(double tau, double delta, const HelmholtzData *data); |

38 | double helm_resid_tautau(double tau, double delta, const HelmholtzData *data); |

39 | |

40 | #if 0 |

41 | double helm_resid_deldeldel(double tau, double delta, const HelmholtzData *data); |

42 | #endif |

43 | |

44 | /* |

45 | Note: the cross partial derivative with respect to delta and tau is |

46 | identically zero |

47 | */ |

48 | #define HELM_IDEAL_DELTAU(TAU, DELTA, DATA) (0) |

49 | |

50 | |

51 | #endif |

52 |

john.pye@anu.edu.au | ViewVC Help |

Powered by ViewVC 1.1.22 |