调用imsl的 DN2QNJ出现错误

vvt

[Fortran] 纯文本查看 复制代码

  subroutine fcn(X,F,N)
    integer, intent(in) :: n    
    real(kind(1d0)), intent(in) :: x(n)  
    real(kind(1d0)), intent(out) :: f(n) 

subroutine lsjac(n,X,fjac)
  integer::i1,j1
  integer, intent(in) :: n                                                         
  real(kind(1d0)), intent(in) :: x(n)                                              
  real(kind(1d0)), intent(out) :: fjac(n,n) 

vvt

这个问题需要精细的单步调试才能找到原因。

vvt

跟操作系统没关系呀，主要是编译器的默认参数不一样。
ivf 用VS编译，会默认检查数组越界，而命令行则不会

命令行可以加选项 -check:bounds 使其增加越界检查。