Fortran Coder

查看: 14440|回复: 5
打印 上一主题 下一主题

[求助] PSCAD编程出错,求帮助!

[复制链接]

4

帖子

2

主题

0

精华

新人

F 币
23 元
贡献
13 点
跳转到指定楼层
楼主
发表于 2020-11-14 10:45:37 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
Fortran编程出错!急求大神帮助,麻烦看看怎么改,源程序和提示都在图里,感谢感谢!
源程序:
      #LOCAL REAL Rline,Xline,Psref,
      REAL PARAMETER : Qsref=($Qsref)
      REAL PARAMETER : Psref=($Psref)
      IF(TIME.LT.0.03)THEN
         $Qsref=0
      END IF
      IF(TIME.GE.0.03)THEN
         IF(($Usarm.LE.$Ea1).AND.($Usarm.GE.$Ea2))THEN
          $Qsref=0
         END IF
         IF(($Usarm.LT.$Ea2).AND.($Usarm.GE.$Ea3))THEN
          $Qsref=($Psref*$Rline-($DELTU)**2-$Usarm*$DELTU)/$Xline
         END IF
      END IF

无功报错.png (18.07 KB, 下载次数: 410)

无功报错.png

无功原程序.png (7.94 KB, 下载次数: 423)

无功原程序.png
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

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

QQ
6#
发表于 2020-11-19 07:17:49 | 只看该作者
本帖最后由 vvt 于 2020-11-19 07:19 编辑

PSCAD里边自定义模块,严格来说不是标准 Fortran。属于派生出去的“方言”。PSCAD会对它进行“预处理”,得到处理后的Fortran代码,再交给现成的标准Fortran编译器编译。

就好像 PHP/ASP 之于 HTML,Qt 之于 C++ 一样。

4

帖子

2

主题

0

精华

新人

F 币
23 元
贡献
13 点
5#
 楼主| 发表于 2020-11-16 10:51:42 | 只看该作者

感谢,解决啦

4

帖子

2

主题

0

精华

新人

F 币
23 元
贡献
13 点
地板
 楼主| 发表于 2020-11-14 19:38:27 | 只看该作者
watermelon818 发表于 2020-11-14 14:45
这个是Fortran代码么?

是Fortran代码 这是在PSCAD里边自定义模块编程的代码

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
板凳
发表于 2020-11-14 15:39:21 | 只看该作者
real, parameter::

3

帖子

1

主题

0

精华

入门

F 币
110 元
贡献
47 点
沙发
发表于 2020-11-14 14:45:11 | 只看该作者
这个是Fortran代码么?
菜鸟一枚,请多多指教!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-27 11:41

Powered by Tencent X3.4

© 2013-2024 Tencent

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