Question

求助,fortran固定格式如何换行

RT，式子比较长，所以写成了这样：

DO 20 I=1,N
DO 10 J=1,N
KIJ0(I,J)=-2*((V0**2)+(1/2)*(VF**2)-1)*J*J*PI*PI*JCC(I,J)
* +2*E*I*(J**4)*(PI**4)*JCC(I,J)+(K1+K2)*SIN(I*PI*A)
* *SIN(J*PI*A)+0.5D0*(V0**2)*(E1**2)*J*J*PI*PI*JCC(I,J)
* +0.375D0*(VF**2)*E1*E1*J*J*PI*PI*JCC(I,J)-0.5D0
* *((P*W)**2)*1*ALPHA(I,J)
10 CONTINUE
20 CONTINUE
WRITE(*,*)MIJ0
END

结果无论怎么编译，最后一行都出错，求助啊，急死了。

Answer 1

我这里可以通过编译。
如果您遇到编译出错，请给出错误信息，尽量提供截图。

追问

谢谢。错误信息如下：

追答

由于早期的固定格式可能使用了 TAB，而不同的显示环境，对TAB的处理可能不同。

我复制粘贴你的代码，在我的编译器上是可以通过的。

但这可能不代表你真实的代码样子。

我建议你通过以下方式之一，把源代码文件发给我：

1. 上传到百度网盘并分享。

2. 通过邮箱：geophyman圈vip.163.com
   

追问

源文件在这里。谢谢了，请帮忙看看。http://pan.baidu.com/s/188ybh

ht tp://pa n.bai du.co m/s/188 ybh
之前那个追问被度娘吃了。请务必帮忙看看，多谢。

追答

你的代码超过了固定格式的右侧限制了。

KIJ0(I,J)=-2*((V0**2)+(1/2)*(VF**2)-1)*J*J*PI*PI*JCC(I,J)
* +2*E*I*(J**4)*(PI**4)*JCC(I,J)+(K1+K2)*SIN(I*PI*A) !// 这里
* *SIN(J*PI*A)+0.5D0*(V0**2)*(E1**2)*J*J*PI*PI*JCC(I,J) !//这里
* +0.375D0*(VF**2)*E1*E1*J*J*PI*PI*JCC(I,J)-0.5D0
* *((P*W)**2)*1*ALPHA(I,J)

如上描述的两行，超过了右侧限制。建议你删除几个 * 后面的空格。

实际上，我建议你自己书写代码的话，采用自由格式，而尽量不要使用固定格式。