assert Subroutine

private subroutine assert(cond, message)

Arguments

Type IntentOptional 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