fortran函数返回多个值

汤晨瑾

大家帮我看一下，谢谢啦！

[Fortran] 纯文本查看 复制代码

 do j=1,n
       (texh(j),vexh(j),hexh(j),xexh(j))=ps(pexh(j),sexh(j))
 end do
(v8,h8,s8)=ptsteam(p8,t8)
(thp,vhp,hhp,shp)=px(php,xhp)
(tc,vc,hc,sc)=px(pc,xc)
(vqp,hqp,sqp)=ptsteam(pqp,tqp)

error #5082: Syntax error, found '(' when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM MODULE TYPE INTEGER REAL ...
microsoft visual studio 2010

汤晨瑾

vvt 发表于 2017-3-20 13:06
(v8,h8,s8)=ptsteam(p8,t8)

这是什么意思？fortran不允许函数返回多个值。

已知压力和温度查得比容，焓还有熵。那我分开写试一试。谢谢啦！

汤晨瑾

vvt 发表于 2017-3-20 13:06
(v8,h8,s8)=ptsteam(p8,t8)

这是什么意思？fortran不允许函数返回多个值。

可以了。非常感谢！