put_diag Subroutine

public subroutine put_diag(diagv, mat)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: diagv
real(kind=8), intent(inout), dimension(:,:) :: mat

Calls

proc~~put_diag~~CallsGraph proc~put_diag put_diag proc~assert_eq2 assert_eq2 proc~put_diag->proc~assert_eq2

Called by

proc~~put_diag~~CalledByGraph proc~put_diag put_diag proc~broyden1~2 broyden1 proc~broyden1~2->proc~put_diag

Source Code

  subroutine put_diag(diagv,mat)
    real(8), dimension(:), intent(in)      :: diagv
    real(8), dimension(:,:), intent(inout) :: mat
    integer                                :: j,n
    n=assert_eq2(size(diagv),min(size(mat,1),size(mat,2)),'put_diag_rv')
    do j=1,n
       mat(j,j)=diagv(j)
    end do
  end subroutine put_diag