程序运行直接跑完 无法逐句调试
主程序如下：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, 如下：
call INPUT
print *, "Test input passed"
call INPUT1(caa)
print *, "Test input1(caa) passed"
页:
[1]