GreenPolyProducts/cantera
5
0
Fork 0
mirror of https://github.com/Cantera/cantera.git synced 2025-02-25 18:55:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Dave Goodwin
2007-02-11 17:08:36 +00:00
parent 69a9a20eb8
commit 7952863967
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tools/templates/f90/demo.f90
View File

@@ -67,7 +67,7 @@ subroutine demo(gas, MAXSP, MAXRXNS)
! compute the equilibrium state holding the specific
! enthalpy and pressure constant
call equilibrate(gas, HP)
call equilibrate(gas, 'HP')
write(*,*) 'Equilibrium state properties:'
write(*,10) temperature(gas), pressure(gas), density(gas), &