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

(v8,h8,s8)=ptsteam(p8,t8)

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

汤晨瑾

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不允许函数返回多个值。

可以了。非常感谢！

chenxl

请问怎么让fortran的函数返回多个值？有没有什么资料？

liudy02

chenxl 发表于 2019-1-23 14:06
请问怎么让fortran的函数返回多个值？有没有什么资料？

Fortran 形式上是不允许函数返回多个值的，然而其实这并没有什么实质上的限制
完全可以在函数的形参列表里加上多个专用于返回值的参数就是了
其实做成这样也没有什么必要啊，写成子程序不就行了……

pasuka

参考C的做法，用结构体