yomerrtrap.F90

Go to the documentation of this file.

MODULE yomerrtrap
USE parkind1  ,ONLY : jpim     ,jprb
IMPLICIT NONE
CONTAINS

SUBROUTINE set_err_trap()
#ifdef RS6K
INTEGER(KIND=JPIM) SIGNAL_TRAP, SIGS(1),IRES

sigs(1)  = 0
ires     = signal_trap(0, sigs)
#endif
END SUBROUTINE set_err_trap

END MODULE yomerrtrap