回 帖 发 新 帖 刷新版面

主题:[讨论]命令行debug

由于我程序中有getarg函数,需要在命令行下读入参数,不可以直接使用IDE的调试功能,请问如何在命令行下调试程序呢?
    我试着按照帮助文件中提供的方法,但还是不能读入参数,高手帮帮忙把!
    另外,我使用的是CVF6.6。
--------------------------
integer::n
character(10)::name
n=1
call getarg(n,name)
print *,name
end

回复列表 (共11个回复)

11 楼

看看以下:

C       CHARACTER*20 BUFFER
C       INTEGER*4 NUMARGS,STATUS
C       numargs=nargs()
C       call getarg(1,buffer,status)
C       NAM1=BUFFER
C       numargs=nargs()
C       call getarg(2,buffer,status)
C       NAM2=BUFFER
C       WRITE(*,*)
C       WRITE(*,'(A\)') '-DO YOU SURE YOUR INPUT-FILE NAME IS---!'
C       WRITE(*,'(A)') NAM1
C       WRITE(*,*) '(if it is no please press Ctrl+C   !!! )'
C       read(*,*)
C       OPEN(1,FILE=NAM1,STATUS='unknown')
C       WRITE(*,*)
C       WRITE(*,*)
C       WRITE(*,'(A\)') '-DO YOU SURE YOUR  OUT-FILE NAME IS----!'
C       WRITE(*,'(A)') NAM2
C       OPEN(2,FILE=NAM2,STATUS='unknown')

我来回复

您尚未登录,请登录后再回复。点此登录或注册