Intel Fortran IAPWS-IF97水物性Fortran 源程序 代码

! 编译by 巢飞 2015.12.1 西安交大 !给定压力P(Pa)与温度T(K)，计算物性，程序自己判断所属区域： ! call h2o(P,T,prop) !若想得到给定压力P(Pa)或温度T(K)下的饱和态物性，则可如下调用： !a.给定压力call PsatW(P,T)或给定温度call TsatW(P,T) !b.饱和液态call h2o(P,0.9999999*T,prop(12))或饱和汽态call h2o(P,1.0000001*T,prop(12))