subroutinefailprivate

subroutine fail(c, message)

Record the first problem.

Arguments

Name	Type	Intent	Attributes	Description
c	type(fypp_t)	inout		the state
message	character(len=*)	in		what went wrong

Source

Show the code

subroutine fail(c, message)
    type(fypp_t), intent(inout) :: c            !! the state
    character(len=*), intent(in) :: message     !! what went wrong

    if (.not. allocated(c%error)) c%error = message
end subroutine fail

subroutinefailprivate

Arguments

Source

Graphs

Called by