请教一个问题,用mkl中mkl_sdnscsr将dense矩阵转化为CSR格式,出现错误如下图,这里的parameter1指的是什么?
[Fortran] 纯文本查看 复制代码 program converters
implicit none
! Definition arrays for sparse matrix formats
integer,parameter :: m=2400, n=2400, lda=2400, nzmax=11820
integer :: ia, ja
real :: adns(m,n) , acsr(nzmax)
! Declairation of local variables:
integer :: job(8), i, j, info, ibase1, ibase2, locat
info = 0
locat = 2
ibase1 = 1
ibase2 = 2
job(2) = ibase1
job(3) = ibase2
job(4) = locat
job(5) = nzmax
! Task1: densly matrix to crs
open(11,file="1.txt")
read(11,*) adns
job(1) = 0
job(6) = 1
call mkl_sdnscsr(job, m, n, adns, lda, acsr, ja, ia ,info)
print*, acsr, ia, ja
pause
end program converters
|