s3o2 = 0. _d 0
s3o2 = SQRT(s1*s1*s1)
& + s3o2*(
& + s3o2*( eosJMDCKSw(6)
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1
s3o2 = 1.5*SQRT(s1)
& + s3o2*( eosJMDCKSw(5)
& + s3o2*p1*eosJMDCKP(8)
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1
& + s3o2 * ( eosS5 +
& + p1*s3o2*eosP8
& + p1*s3o2*eosJMDCKP(8)
_RL t, t2, t3, t4, s, s3o2
s3o2 = s*SQRT(s)
& + s3o2 * ( eosS6 +
_RL t, t2, t3, t4, s, s3o2, p, p2
& + s3o2* ( eosS5 +
& + p*s3o2*eosP8
& + p*s3o2*eosJMDCKP(8)
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1
s3o2 = s1*SQRT(s1)