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
结果无论怎么编译，最后一行都出错，求助啊，急死了。
如果您遇到编译出错，请给出错误信息，尽量提供截图。追问
谢谢。错误信息如下：
由于早期的固定格式可能使用了 TAB，而不同的显示环境，对TAB的处理可能不同。
我复制粘贴你的代码，在我的编译器上是可以通过的。
但这可能不代表你真实的代码样子。
我建议你通过以下方式之一，把源代码文件发给我：
上传到百度网盘并分享。
通过邮箱：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)
如上描述的两行，超过了右侧限制。建议你删除几个 * 后面的空格。
实际上，我建议你自己书写代码的话，采用自由格式，而尽量不要使用固定格式。
