Question

我正在尝试在Fortran90（用ifort编译）中创建一个代码，其中我乘以两个矩阵。我正在为此编写代码，因为其中一个矩阵是稀疏的，所以你可以在不为整个矩阵分配内存的情况下进行乘法。

我有两个子程序。第一个，将稀疏矩阵（对角线k和对角线两侧的l）与矢量（b）相乘。结果通过指针r传递给main函数。我选择使用子程序而不使用函数，因为这样，我不需要在子程序中再次分配内存。

    subroutine matSparXVec(k, l, b, r)

    implicit none
    real, intent(in)        ::k, l
    real, intent(in), dimension(:)  ::b
    real, intent(out), dimension(:) ::r
    integer             ::ierr, i

    r = (/&
        k*b(1)+l*b(2), &
        (l*b(i-1)+k*b(i)+l*b(i+1),i=2,size(b)-1),& 
        l*b(size(b)-1)+k*b(size(b))&
        /)

end subroutine matSparXVec

第二个子程序使用第一个子程序将稀疏矩阵（k，l）与另一个矩阵（B）相乘：

subroutine matSparXMat(k, l, B, R)
    implicit none
    real, intent(in)            ::k, l
    real, intent(in), dimension(:,:)    ::B
    real, intent(out), dimension(:,:)   ::R

    call  matsparXVec(k, l, B(1, :), R(1, :))
    R(1, :) = R(1, :) + l * B(1, :)

    do i = 2, (size(R)-2)
        call matsparXVec(k,l,B(i,:),R(i,:))
        R(i,:)=R(i-1,:)+R(i,:)
    enddo 

    call matsparXVec(k,l,B(size(B),:),R(size(R),:))
    R(size(R),:) = R(size(R),:) + l * B(size(B)-1,:)


end subroutine matSparXmat

现在的问题是，在子例程matSparXmat的某个位置，我正在修改B(:,:)指向的数据。例如，使用代码：

    implicit none
    real, dimension(:,:), allocatable   ::BB, RR
    integer                 ::i, j, ierr, n, m
    real, parameter             ::k = 4.0, l = 1.0

    n=3 !Dimension vector
    m=3 !Dimension del segundo orden

    allocate(RR(n,m), stat=ierr)
    allocate(BB(n,m), stat=ierr)

    forall(i = 1:size(BB(:,1)), j=1:size(BB(1,:)))
        BB(i,j)=i+j
        RR(i,j) = 0 
    endforall

    do i=1,size(BB(:,1))
        print *, BB(:,i)
    enddo

    call matSparXMat(k, l, BB, RR)

    do i=1,size(BB(:,1))
        print *, BB(:,i)
    enddo

我得到了输出：

 2.000000       3.000000       4.000000    
   3.000000       4.000000       5.000000    
   4.000000       5.000000       6.000000  

  4.6526092E+33   3.000000      1.9366391E+31
   3.000000       4.000000       5.000000    
   4.000000       5.000000       6.000000

您可以在其中看到BB的值已被修改。

Answer 1

看起来这里出错：

do i = 2, (size(R)-2)                      !<---- here
   call matsparXVec(k,l,B(i,:),R(i,:))
   R(i,:)=R(i-1,:)+R(i,:)
enddo

size(R)=9但size(R(:,1))=3。但是，使用gfortran我会得到正确的输出并带有错误

*** glibc detected *** ./sparse_mults: free(): invalid next size (fast): 0x00000000014e4010 ***

但是当我使用ifort 2013时，我得到右上角的值1.93...E+31，否则它是正确的。不确定发生了什么，但如果我拿出一些东西，我会告诉你。

参考传递正在改变矩阵的值

1 个答案: