MAPL_Deprecated Subroutine

public subroutine MAPL_Deprecated(file_name, module_name, procedure_name, rc)

Uses

  • proc~~mapl_deprecated~~UsesGraph proc~mapl_deprecated MAPL_Deprecated iso_fortran_env iso_fortran_env proc~mapl_deprecated->iso_fortran_env

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file_name
character(len=*), intent(in) :: module_name
character(len=*), intent(in) :: procedure_name
integer, intent(out), optional :: rc

Calls

proc~~mapl_deprecated~~CallsGraph proc~mapl_deprecated MAPL_Deprecated interface~mapl_assert MAPL_Assert proc~mapl_deprecated->interface~mapl_assert proc~mapl_return MAPL_Return proc~mapl_deprecated->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_deprecated->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine MAPL_Deprecated(file_name, module_name, procedure_name, rc)
      use, intrinsic :: iso_fortran_env, only: ERROR_UNIT
      character(*), intent(in) :: file_name
      character(*), intent(in) :: module_name
      character(*), intent(in) :: procedure_name
      integer, optional, intent(out) :: rc

      integer :: status

      write(ERROR_UNIT,*,iostat=status) "Invoking deprecated procedure: ", procedure_name
      _VERIFY(status)
      write(ERROR_UNIT,*,iostat=status) "    ...             in module: ", module_name
      _VERIFY(status)
      write(ERROR_UNIT,*,iostat=status) "    ...               in file: ", file_name
      _VERIFY(status)

      _ASSERT(.not. FAIL_ON_DEPRECATED, "    ... aborting.")
      _RETURN(_SUCCESS)
   end subroutine MAPL_Deprecated