搜狗做题网fortran固定格式如何换行
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/04/29 08:30:32
fortran固定格式如何换行
RT,式子比较长,所以写成了这样：
\x05DO 20 I=1,N
\x05\x05DO 10 J=1,N
\x05\x05\x05KIJ0(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\x05\x05\x05CONTINUE
20\x05\x05CONTINUE
\x05WRITE(*,*)MIJ0
\x05END
\x05
结果无论怎么编译,最后一行都出错,急死了.
RT,式子比较长,所以写成了这样：
\x05DO 20 I=1,N
\x05\x05DO 10 J=1,N
\x05\x05\x05KIJ0(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\x05\x05\x05CONTINUE
20\x05\x05CONTINUE
\x05WRITE(*,*)MIJ0
\x05END
\x05
结果无论怎么编译,最后一行都出错,急死了.
我这里可以通过编译.
如果您遇到编译出错,请给出错误信息,尽量提供截图.
再问： 谢谢。错误信息如下：
再答： 由于早期的固定格式可能使用了 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) 如上描述的两行，超过了右侧限制。建议你删除几个 * 后面的空格。 实际上，我建议你自己书写代码的话，采用自由格式，而尽量不要使用固定格式。
如果您遇到编译出错,请给出错误信息,尽量提供截图.
再问： 谢谢。错误信息如下：
再答： 由于早期的固定格式可能使用了 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) 如上描述的两行，超过了右侧限制。建议你删除几个 * 后面的空格。 实际上，我建议你自己书写代码的话，采用自由格式，而尽量不要使用固定格式。