Fortran Coder

查看: 12750|回复: 2
打印 上一主题 下一主题

[求助] 首次尝试,求助大神:error FOR3093: array bound is not integer scalar

[复制链接]

2015

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1572 元
贡献
676 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2014-11-4 08:38:18 | 显示全部楼层
三个错误:

第一:
J 已经被定义为 J(nT) 了,这是一个数组。
所以
READ(U1,100) N1(n),(SOLVE(n,J),J=1,S2)
这里不能在用 J 作为循环变量了,改为
READ(U1,100) N1(n),SOLVE(n,1:S2)
就行

第二:
[Fortran] 纯文本查看 复制代码
SELECTCASE (SOLVE(I,1))
CASE('1')
Select Case 不能对 real 类型进行。Solve 就是 real 的数组。
原因是,考虑到浮点数的误差,real 类型不能做相等判断,你不能判断它等于 1。

第三:
Case('1') 这里如果加了引号,表示是字符,而 solve 是real类型,如果是数字的 1,请去掉引号。
后面的其他 case 也一样。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-1 06:53

Powered by Tencent X3.4

© 2013-2024 Tencent

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