accumulate Subroutine

public subroutine accumulate(Mat2add, Mx)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: Mat2add(:,:)
type(dbl_pointer_t), intent(inout) :: Mx(:)

Called by

proc~~accumulate~~CalledByGraph proc~accumulate accumulate proc~links_ffsrclink_update links_FFsrcLink_update proc~links_ffsrclink_update->proc~accumulate proc~main_loop main_loop proc~main_loop->proc~links_ffsrclink_update program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine accumulate(Mat2add,Mx)
    real(dp), intent(in) :: Mat2add(:,:)
    type(dbl_pointer_t), intent(inout) :: Mx(:)
    integer :: i,j,k

    k=1
    do i = 1,size(Mat2add,2)
        do j = 1,size(Mat2add,1)
            Mx(k)%p = Mx(k)%p + Mat2add(j,i)
            k=k+1
        enddo
    enddo
end subroutine accumulate