程序运行直接跑完 无法逐句调试

顶顶⁵²⁰�

主程序如下：

[Fortran] 纯文本查看 复制代码

Program MAIN
    Implicit Real*8 (A-H,O-Z)

    Character NAME*15,NAME1*15,NAME2*15,NAMEOUT*15
    Character(len=512) :: sFN1,sFN2,sFN3,sFN4,sFN5

    Dimension::sFN1(20),sFN2(20),sFN3(20),sFN4(20),sFN5(20)
    Dimension::CAA(10,10),E(30),NSTE(30)
    Common/NAM1/NAME,NAME1,NAME2,NAMEOUT
    Common/NAM2/NAM2(9)
    Common/NAM3/NAM3(10)
    Common/NAM4/ICAN,ICAN1,ICAN2,ICAN3
    Common/NAM5/strain
    Common/LOGI/LO1
    Common/STEEL/STEEL(14)

    Call INPUT
    Call INPUT1(CAA)

    Call System('JHG.EXE<CANSHU.TXT>AAA.txt')
    Call System('del AAA.txt')
    Call SUB1

    Call XIANXINWRITE     
    If(ICAN==0)Stop        

    Call CHANGELINE     
    Call XIANXINREAD(N1,N2,N3,N4,N5,sFN1,sFN2,sFN3,sFN4,sFN5,LB0)
    nALL=N1+N2+N3            

    Call SUB9(nALL,N1,N2,E)
    If(ICAN==1)Stop          
    Call CHANGENUM             
    Call NUMREAD(nALL,N1,N2,NSTE)
    Call TEMP1(nALL,N1,N2,N3,NSTE)
    Call SUB11(nALL,NN4,NN5,NSTE)

End Program

主程序运行直接就跑完了 设置的断点也没有用 无法逐句调试
有什么办法可以解决

风平老涡

在每一个call语句后加一个print, 如下：

[Fortran] 纯文本查看 复制代码

call INPUT
print *, "Test input passed"
call INPUT1(caa)
print *, "Test input1(caa) passed"