assert Subroutine

private subroutine assert(cond, message)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	cond
character(len=*)				::	message

Contents

Source Code

assert

Source Code

   subroutine assert(cond,message)
     logical, intent(in) :: cond
     character(len=*) message

     if (.not. cond) call die(message)
   end subroutine assert