Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | this | |||
integer(kind=ilp), | intent(in) | :: | info | |||
integer(kind=ilp), | intent(in) | :: | lda | |||
integer(kind=ilp), | intent(in) | :: | n | |||
type(linalg_state_type), | intent(out) | :: | err |
elemental subroutine handle_getri_info(this,info,lda,n,err) character(len=*), intent(in) :: this integer(ilp), intent(in) :: info,lda,n type(linalg_state_type), intent(out) :: err ! Process output select case (info) case (0) ! Success case (:-1) err = linalg_state_type(this,LINALG_ERROR,'invalid matrix size a=',[lda,n]) case (1:) ! Matrix is singular err = linalg_state_type(this,LINALG_ERROR,'singular matrix') case default err = linalg_state_type(this,LINALG_INTERNAL_ERROR,'catastrophic error') end select end subroutine handle_getri_info