Fortran Coder

查看: 142|回复: 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
无功原程序.png
回复

使用道具 举报

3

帖子

1

主题

0

精华

入门

F 币
81 元
贡献
35 点
发表于 2020-11-14 14:45:11 | 显示全部楼层
这个是Fortran代码么?
菜鸟一枚,请多多指教!

572

帖子

1

主题

0

精华

大宗师

F 币
2836 元
贡献
1799 点
发表于 2020-11-14 15:39:21 | 显示全部楼层
real, parameter::

4

帖子

2

主题

0

精华

新人

F 币
23 元
贡献
13 点
 楼主| 发表于 2020-11-14 19:38:27 | 显示全部楼层
watermelon818 发表于 2020-11-14 14:45
这个是Fortran代码么?

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

4

帖子

2

主题

0

精华

新人

F 币
23 元
贡献
13 点
 楼主| 发表于 2020-11-16 10:51:42 | 显示全部楼层

感谢,解决啦

841

帖子

0

主题

0

精华

宗师

F 币
1385 元
贡献
771 点

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

QQ
发表于 2020-11-19 07:17:49 | 显示全部楼层
本帖最后由 vvt 于 2020-11-19 07:19 编辑

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

就好像 PHP/ASP 之于 HTML,Qt 之于 C++ 一样。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-12-5 10:48

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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