IMSL库函数DCBJNS调用出错，求解

wanglu

在调用IMSL库函数DCBJNS时出错，如下图。

其中的CBJNS实际上是DCBJNS。
我已经使用了ERSET[0,0,0]函数关闭所有警告并要求不退出程序，但程序仍出错退出了。
我希望出错时不停止程序，该如何实现？
另外，CBJNS(800,800,2,aaa)为什么会出错呢？其中传入的复数是(800,800)，aaa是一个数组。

相当于Fortran的：CALL DCBJNS ((800,800), 2, aaa)

我用的是Compaq Fortran 6.0中的imsl。

这是个Fortran例子：

1. 
   
2. USE Numerical_Libraries
   
3. INTEGER(4) N
   
4. PARAMETER (N=11)
   
5. INTEGER(4) K, NOUT
   
6. COMPLEX*16 CBS(N), Z
   
7. Z = (800.0, 800.0)
   
8. CALL DCBJNS (Z, N, CBS)
   
9. CALL UMACH (2, NOUT)
   
10. DO 10 K=1, N
    
11. WRITE (NOUT,99999) K-1, Z, CBS(K)
    
12. 10 CONTINUE
    
13. 99999 FORMAT (' J sub ', I2, ' ((', F6.3,',', F6.3, ')) = (', F9.3,',', F9.3,')')
    
14. END
    

复制代码

结果：

可见在运行时与Forcal出现的错误相同，这是个什么类型的运行错误？该如何自己控制错误输出，而不终止程序呢？