gracestop.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\special\gracestop.f
00002 !
00020                      MODULE GRACESTOP
00021 !                    ****************
00022 !
00023 !
00024 !***********************************************************************
00025 ! SPECIAL
00026 !***********************************************************************
00027 !
00028 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00029 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00030 !
00031       IMPLICIT NONE
00032       LOGICAL :: BREAKER = .FALSE.
00033 !SGI      INTEGER, PARAMETER :: SIGUSR1=16
00034 !LINUX    INTEGER, PARAMETER :: SIGUSR1=10
00035 !IBM      INTEGER, PARAMETER :: SIGUSR1=30
00036       INTEGER, PARAMETER :: SIGUSR1=16
00037       CONTAINS
00038 !
00039       SUBROUTINE HANDLER
00040         IMPLICIT NONE
00041 !!!        WRITE(*,*) 'SIGNAL ',SIGUSR1,' CAUGHT'
00042         BREAKER = .TRUE.
00043       END SUBROUTINE HANDLER
00044 !
00045       SUBROUTINE GRACE
00046         IMPLICIT NONE
00047         WRITE(*,*) 'I STOP GRACEFULLY'
00048         STOP 0
00049       END SUBROUTINE GRACE
00050 !
00051       SUBROUTINE TRAPSIG
00052       IMPLICIT NONE
00053 !      INTEGER ISIGNAL, SIGNAL
00054 !
00055 !SGI        ISIGNAL = SIGNAL(SIGUSR1, HANDLER, -1)
00056 !LINUX      ISIGNAL = SIGNAL(SIGUSR1, HANDLER)
00057 !IBM        CALL SIGNAL(SIGUSR1, HANDLER)
00058 !
00059 !  CHOICE HERE : NOTHING
00060 !       ISIGNAL = SIGNAL(SIGUSR1, HANDLER, -1)
00061 !
00062       END SUBROUTINE TRAPSIG
00063 !
00064       END MODULE GRACESTOP

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0