Steam Table Calculator (IAPWS-IF97)

Standalone, self-contained numerical routine. Verify algorithms, inspect boundary condition equations, or compile locally for batch parametric runs.

📦 Download Complete ZIP 📥 Download .f90 Code 📄 Download input.txt

🔬

Solver Purpose & Physical Scope

Calculate high-precision thermodynamic and transport properties of water and steam (liquid, vapor, mixture, supercritical) using the IAPWS-IF97 standard.

📂 Discipline: Tools ⚡ Precision: IEEE-754 64-bit Real(`real(8)`) 📥 Total Downloads: 356 times 📄 Source File: steam.f90, steam_calc.f90

📁 calcul/Tools / steam.f90, steam_calc.f90

! =========================================================================
! Source File: steam.f90 (calcul/calcul/Tools)
! =========================================================================

! [Fortran 90/2008 Double-Precision Solver]
! Ready for offline compilation with gfortran.
! =========================================================================
! Source File: steam_calc.f90 (calcul/calcul/Tools)
! =========================================================================

! [Fortran 90/2008 Double-Precision Solver]
! Ready for offline compilation with gfortran.

💻 How to Compile & Run Locally

1. Compilation (GNU Fortran / Intel oneAPI):

gfortran -O3 steam.f90 steam_calc.f90 -o steam_calc

2. Execution with input.txt redirection:

steam_calc < input.txt

📄 Sample input.txt File Structure

Sample Data:

1
100.0
0.1

Parameter Description:

Input parameter type (1=T/P, 2=T/x, 3=P/x, 4=T/h, 5=P/h, 6=P/s, 7=h/s)\nFirst input value (T [C] or P [MPa] or h [kJ/kg])\nSecond input value (P [MPa] or x [0-1] or h [kJ/kg] or s [kJ/kg-K])