Fortran Coder

查看: 14065|回复: 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 币
110 元
贡献
47 点
发表于 2020-11-14 14:45:11 | 显示全部楼层
这个是Fortran代码么?
菜鸟一枚,请多多指教!

790

帖子

2

主题

0

精华

大宗师

F 币
3765 元
贡献
2255 点
发表于 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 | 显示全部楼层

感谢,解决啦

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

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

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

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

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

本版积分规则

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

GMT+8, 2024-3-29 22:26

Powered by Tencent X3.4

© 2013-2024 Tencent

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