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

fcode

三个错误：

第一：
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 也一样。