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

[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

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

call INPUT

print *, "Test input passed"

call INPUT1(caa)

print *, "Test input1(caa) passed"