MAPL_throw_exception Subroutine

public subroutine MAPL_throw_exception(filename, line_number, message)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: line_number
character(len=*), intent(in), optional :: message

Called by

proc~~mapl_throw_exception~~CalledByGraph proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return MAPL_Return proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify MAPL_Verify proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine MAPL_throw_exception(filename, line_number, message)
      character(len=*), intent(in) :: filename
      integer, intent(in) :: line_number
      character(len=*), optional, intent(in) :: message

      if (.not. initialized) then
         call initialize()
      end if

      call throw_method(filename, line_number, message=message)
      
   end subroutine MAPL_throw_exception