field_abort_module.F90

MODULE FIELD_ABORT_MODULE

IMPLICIT NONE

ABSTRACT INTERFACE
SUBROUTINE FIELD_ABORT_INTF (CDMESS)
CHARACTER (LEN=*), INTENT (IN) :: CDMESS
END SUBROUTINE
END INTERFACE

PROCEDURE (FIELD_ABORT_INTF), POINTER :: FIELD_ABORT_FUNC => NULL ()

PRIVATE

PUBLIC :: FIELD_ABORT, FIELD_ABORT_FUNC

CONTAINS

SUBROUTINE FIELD_ABORT (CDMESS)

CHARACTER (LEN=*), INTENT (IN) :: CDMESS

#include "abor1.intfb.h"

IF (ASSOCIATED (FIELD_ABORT_FUNC)) THEN
  CALL FIELD_ABORT_FUNC (CDMESS)
ELSE
  CALL ABOR1 (CDMESS)
ENDIF

END SUBROUTINE

END MODULE