Changeset 63 for trunk/signal-checkpoint/signal_checkpoint.F90
- Timestamp:
- Apr 20, 2012, 2:44:50 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/signal-checkpoint/signal_checkpoint.F90
r62 r63 39 39 !--------------------------------------------------------------! 40 40 subroutine signal_checkpoint_connect (SIG_NUM) 41 41 integer, intent(in) :: SIG_NUM 42 42 43 43 #ifdef __INTEL_COMPILER 44 44 integer :: ERR 45 45 46 46 ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1) 47 47 #endif 48 48 #ifdef __GNUC__ 49 49 call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_) 50 50 #endif 51 51 … … 77 77 78 78 subroutine signal_checkpoint_trap_callback_gfortran_ (SIG_NUM) 79 80 79 use Signal_Checkpoint 80 integer, intent(in) :: SIG_NUM 81 81 82 82 INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1 83 83 end subroutine 84 84 85 85 function signal_checkpoint_trap_callback_intel_ (SIG_NUM) result (ONE) 86 87 88 86 use Signal_Checkpoint 87 integer, intent(in) :: SIG_NUM 88 integer :: ONE 89 89 90 91 90 INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1 91 ONE = 1 92 92 end
Note: See TracChangeset
for help on using the changeset viewer.