invert_symmetric_matrix_int32 Module Subroutine

module subroutine invert_symmetric_matrix_int32(matrix_)

invert a symmetric matrix using DSYTRI method (integer version)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(inout) :: matrix_(:,:)

Calls

proc~~invert_symmetric_matrix_int32~~CallsGraph proc~invert_symmetric_matrix_int32 invert_symmetric_matrix_int32 proc~write_error write_error proc~invert_symmetric_matrix_int32->proc~write_error proc~write_message write_message proc~write_error->proc~write_message

Contents

Source Code

invert_symmetric_matrix_int32

Source Code

      module subroutine invert_symmetric_matrix_int32(matrix_)
         !! invert a symmetric matrix using DSYTRI method (integer version)
         integer(int32), intent(inout) :: matrix_(:,:)
         !---------------------------------------------------------------------!
         call write_error("Integer version of Lapack inversion procedures " // &
            "does not exist: convert the integer arrays to real")
         !---------------------------------------------------------------------!
      end subroutine invert_symmetric_matrix_int32