check_dense_lu Module Subroutine

module subroutine check_dense_lu(self, status, time)

Arguments

Type IntentOptional Attributes Name
class(type_solver_dense_lu), intent(inout) :: self
integer(kind=int32), intent(in) :: status
real(kind=real64), intent(in) :: time

Source Code

    module subroutine check_dense_lu(self, status, time)
        implicit none
        class(type_solver_dense_lu), intent(inout) :: self
        integer(int32), intent(in) :: status
        real(real64), intent(in) :: time

        if (status /= 0) then
            print *, 'LU 解法エラー'
            stop
        end if

    end subroutine check_dense_lu