if97 0.3.0

The high-speed IAPWS-IF97 package
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

//!     
//! Region 1 - (p,T),(p,h), (p,s),(h,s)
//! 

use crate::common::constant::*;
use crate::common::propertry_id::*;

use crate::r1::region1_T_phps::*;
use crate::r1::region1_pT::*;
use crate::r1::region1_p_hs::*;

pub fn pT_reg1(p: f64, T: f64, o_id: i32) -> f64
{
    match o_id {
        OV => pT2v_reg1(p, T),
        OD => 1.0 / pT2v_reg1(p, T),
        OH => pT2h_reg1(p, T),
        OS => pT2s_reg1(p, T),
        OU => pT2u_reg1(p, T),
        OCV => pT2cv_reg1(p, T),
        OCP => pT2cp_reg1(p, T),
        OW => pT2w_reg1(p, T),
        _ => INVALID_OUTID as f64,
    }
}

pub fn pt_reg1(p:f64,t:f64,o_id:i32) -> f64 {
    let T:f64=t+K;
    pT_reg1(p,T,o_id)
}


pub fn ph_reg1(p: f64, h: f64, o_id: i32) -> f64
{
    let T: f64 = ph2T_reg1(p, h);
    if o_id == OT {
        return T-273.15;
    };
    return pT_reg1(p, T, o_id);
}

pub fn ps_reg1(p: f64, s: f64, o_id: i32) -> f64
{
    let T: f64 = ps2T_reg1(p, s);
    if o_id == OT {
        return T-273.15;
    };
    return pT_reg1(p, T, o_id);
}

pub fn hs_reg1(h: f64, s: f64, o_id: i32) -> f64
{
    let p: f64 = hs2p_reg1(h, s);
    if o_id==OP
    {
        return p;
    }
    return ph_reg1(p, h, o_id);
}