[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Including Steam-Types

Hi,

I'm writing a new type in which I need the thermodynamic properties of
steam. I include like the following fortran shows:

REAL PROP(7)
CHARACTER*2 UNITS
...

UNITS='SI'
ITYPE=12
PROP(1)=50
PROP(2)=1
write(6,*) UNITS, ITYPE, PROP(1),PROP(2)

CALL Steam(UNITS,PROP,ITYPE,IERR,*98)
97  write(6,*) 'ERROR'
STOP
98  CONTINUE
ENTH=PROP(3)
WRITE (6,*) 'Property',ENTH
...

The program stops without any comment. I am using Trnsys 14.2. The
type works without this addition. The Type Steam is build in '93 by
Tim McDowell.

Does anyone have an idea?

Thanks a lot

Daniel West