Changeset 64


Ignore:
Timestamp:
Apr 20, 2012, 2:54:52 PM (8 years ago)
Author:
g7moreau
Message:
  • Move intrinsic call
  • Small format change
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/signal-checkpoint/signal_checkpoint.F90

    r63 r64  
    33! Licence LGPLv2 or letter
    44!--------------------------------------------------------------!
    5 
    6 
    75
    86module Signal_Checkpoint
     
    1816external          :: signal_checkpoint_trap_callback_gfortran_
    1917
    20 #ifdef __GNUC__
    21 intrinsic signal
    22 #endif
     18integer, parameter :: SIGUSR2 = 12  ! Signal USR2
    2319
    24 integer, parameter :: SIGUSR2 = 12    ! Signal USR2
    25 
     20! False public, only for trap procedure
    2621integer, public :: INTERNAL_RECEIVED_COUNT_ = 0  ! Global Counter
    27 
    28 !public :: INTERNAL_RECEIVED_COUNT_  ! Public only for trap procedure
    2922
    3023public :: SIGUSR2
     
    3730!--------------------------------------------------------------!
    3831
    39 !--------------------------------------------------------------!
    4032subroutine signal_checkpoint_connect (SIG_NUM)
    4133   integer, intent(in) :: SIG_NUM
     
    4638   ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
    4739#endif
     40
    4841#ifdef __GNUC__
     42   intrinsic signal
     43
    4944   call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
    5045#endif
     
    5348
    5449!--------------------------------------------------------------!
     50
    5551function signal_checkpoint_is_received () result (IS_RECEIVED)
    5652   logical :: IS_RECEIVED
     
    6056
    6157!--------------------------------------------------------------!
     58
    6259function signal_checkpoint_received_times () result (RECEIVED_TIMES)
    6360   integer :: RECEIVED_TIMES
     
    8380end subroutine
    8481
     82!--------------------------------------------------------------!
     83
    8584function signal_checkpoint_trap_callback_intel_ (SIG_NUM) result (ONE)
    8685   use Signal_Checkpoint
     
    9190   ONE = 1
    9291end
     92
     93!--------------------------------------------------------------!
     94!--------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.