stop_error Subroutine

public subroutine stop_error(msg, module, procedure)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: msg

The name of the procedure in which the call happens
character(len=*), intent(in), optional :: module

The name of the module in which the call happens
character(len=*), intent(in), optional :: procedure

The name of the procedure in which the call happens

Source Code

   subroutine stop_error(msg, module, procedure)
      character(len=*), intent(in)  :: msg
      !! The name of the procedure in which the call happens
      character(len=*), optional, intent(in)  :: module
      !! The name of the module in which the call happens
      character(len=*), optional, intent(in)  :: procedure
      !! The name of the procedure in which the call happens
      call check_info(-1, origin="STOP_ERROR", module=module, procedure=procedure, info_msg=msg)
      return
   end subroutine stop_error