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*

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/03 10:41:14
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*
xN@_%񱓌])J\aL)lK]ti@®$*TBH`vgb @c͜|SO/Uh:mvHB~#8ٚ+*\Ro?m}~)٬Q6~6tK_xn61*7c]yPLi2B @d&5 {nU L lVCL@ 0Ƃ7~U9Ϫ#,3daH_<bݣ*$K 3HWtSx7e/(|,J"Ata*s[Twdga}ЅKÏ\X3:q$VntA{~?GE;ޮBmRÍ.qZ~M)h;Nt0exlЮ}'" ~9Ľ\Cw=h"#<B<\uCB+Uנ9iϥ4G5

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*
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
结果无论怎么编译,最后一行都出错,急死了.

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*
我这里可以通过编译.
如果您遇到编译出错,请给出错误信息,尽量提供截图.