Fortran Coder

查看: 14079|回复: 6
打印 上一主题 下一主题

[子程序] fortran函数返回多个值

[复制链接]

8

帖子

3

主题

0

精华

入门

F 币
49 元
贡献
28 点
跳转到指定楼层
楼主
发表于 2017-3-20 11:42:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大家帮我看一下,谢谢啦!
[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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2017-3-20 13:06:15 | 只看该作者
(v8,h8,s8)=ptsteam(p8,t8)

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

8

帖子

3

主题

0

精华

入门

F 币
49 元
贡献
28 点
板凳
 楼主| 发表于 2017-3-20 14:16:18 | 只看该作者
vvt 发表于 2017-3-20 13:06
(v8,h8,s8)=ptsteam(p8,t8)

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

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

8

帖子

3

主题

0

精华

入门

F 币
49 元
贡献
28 点
地板
 楼主| 发表于 2017-3-20 14:41:17 | 只看该作者
vvt 发表于 2017-3-20 13:06
(v8,h8,s8)=ptsteam(p8,t8)

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

可以了。非常感谢!

1

帖子

0

主题

0

精华

新人

F 币
15 元
贡献
3 点
5#
发表于 2019-1-23 14:06:59 | 只看该作者
请问怎么让fortran的函数返回多个值?有没有什么资料?

178

帖子

15

主题

0

精华

大宗师

F 币
4973 元
贡献
1152 点
6#
发表于 2019-1-23 20:25:36 | 只看该作者
本帖最后由 liudy02 于 2019-1-23 20:27 编辑
chenxl 发表于 2019-1-23 14:06
请问怎么让fortran的函数返回多个值?有没有什么资料?

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

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

7#
发表于 2019-1-29 09:12:22 | 只看该作者
参考C的做法,用结构体
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-28 01:17

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表