research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** 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
Show stats 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), &