回 帖 发 新 帖 刷新版面

主题:这是什么错误?

c +++
c +++ erro handle function
c +++
        subroutine ercerr(n)

    write(6,110) n+110
    stop
110    format('esc-lib error, number=',i3)
    end 

        function nercind(n)
        integer nercind

        include 'erc.i'
       
        go to (10,20,30,40,50,60,70,80,90,100,110) n 
10      nercind=ishell
        return
20      nercind=imco
        return
30      nercind=ikh
        return
40      nercind=irt
        return
50      nercind=isheet
        return
60      nercind=idf
        return
70      nercind=isoot
        return
80      nercind=idsf
        return
90      nercind=icr
        return
100     nercind=isic
        return
110     nercind=ikin
        return
        end
有这样的一个子程序,在主程序中进行运行后,出现这样的错误:“esc-lib error,number=118"
请问这里的118是什么意思?也就是上面的i3是什么意思?指哪一行有问题呢?

回复列表 (共1个回复)

沙发

根据您提供的这点代码来看,程序是当n值为8时激发的这个错误。

我来回复

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