gracestop.f

Go to the documentation of this file.

!                   ****************
                    MODULE gracestop
!                   ****************
!
!
!***********************************************************************
! SPECIAL
!***********************************************************************
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      IMPLICIT NONE
      LOGICAL :: breaker = .false.
!SGI      INTEGER, PARAMETER :: SIGUSR1=16
!LINUX    INTEGER, PARAMETER :: SIGUSR1=10
!IBM      INTEGER, PARAMETER :: SIGUSR1=30
      INTEGER, PARAMETER :: sigusr1=16
      CONTAINS
!
      SUBROUTINE handler
        IMPLICIT NONE
!!!        WRITE(*,*) 'SIGNAL ',SIGUSR1,' CAUGHT'
        breaker = .true.
      END SUBROUTINE handler
!
      SUBROUTINE grace
        IMPLICIT NONE
        WRITE(*,*) 'I STOP GRACEFULLY'
        stop 0
      END SUBROUTINE grace
!
      SUBROUTINE trapsig
      IMPLICIT NONE
!      INTEGER ISIGNAL, SIGNAL
!
!SGI        ISIGNAL = SIGNAL(SIGUSR1, HANDLER, -1)
!LINUX      ISIGNAL = SIGNAL(SIGUSR1, HANDLER)
!IBM        CALL SIGNAL(SIGUSR1, HANDLER)
!
!  CHOICE HERE : NOTHING
!       ISIGNAL = SIGNAL(SIGUSR1, HANDLER, -1)
!
      END SUBROUTINE trapsig
!
      END MODULE gracestop