Fortran Coder

查看: 270|回复: 1

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

[复制链接]

6

帖子

4

主题

0

精华

入门

F 币
50 元
贡献
23 点
发表于 2020-10-19 11:01:09 | 显示全部楼层 |阅读模式
主程序如下:
[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

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


回复

使用道具 举报

74

帖子

2

主题

0

精华

专家

F 币
578 元
贡献
271 点

规矩勋章

发表于 2020-10-20 00:16:53 | 显示全部楼层
在每一个call语句后加一个print, 如下:
[Fortran] 纯文本查看 复制代码
call INPUT
print *, "Test input passed"
call INPUT1(caa)
print *, "Test input1(caa) passed"
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-12-5 10:11

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表