dbcsr_norm_r8_vec Subroutine

private subroutine dbcsr_norm_r8_vec(matrix, which_norm, norm_vector)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(inout), TARGET :: matrix
integer, intent(in) :: which_norm
real(kind=dp), intent(out), DIMENSION(:) :: norm_vector

Source Code

   SUBROUTINE dbcsr_norm_r8_vec(matrix, which_norm, norm_vector)

      TYPE(dbcsr_type), INTENT(INOUT), TARGET            :: matrix
      INTEGER, INTENT(IN)                                :: which_norm
      REAL(dp), DIMENSION(:), INTENT(OUT)                :: norm_vector

      CALL dbcsr_norm_r8_vec_prv(matrix%prv, which_norm, norm_vector)
   END SUBROUTINE dbcsr_norm_r8_vec