Changeset 64 for trunk/signal-checkpoint

Timestamp:

Apr 20, 2012, 2:54:52 PM (13 years ago)

Author:

g7moreau

Message:

• Move intrinsic call
• Small format change

File:

• trunk/signal-checkpoint/signal_checkpoint.F90 (modified) (8 diffs)

trunk/signal-checkpoint/signal_checkpoint.F90

@@ -3 +3 @@
 ! Licence LGPLv2 or letter
 !--------------------------------------------------------------!
-
-
 
 module Signal_Checkpoint
@@ -18 +16 @@
 external          :: signal_checkpoint_trap_callback_gfortran_
 
-#ifdef __GNUC__
-intrinsic signal
-#endif
+integer, parameter :: SIGUSR2 = 12  ! Signal USR2
 
-integer, parameter :: SIGUSR2 = 12    ! Signal USR2
-
+! False public, only for trap procedure
 integer, public :: INTERNAL_RECEIVED_COUNT_ = 0  ! Global Counter
-
-!public :: INTERNAL_RECEIVED_COUNT_  ! Public only for trap procedure
 
 public :: SIGUSR2
@@ -37 +30 @@
 !--------------------------------------------------------------!
 
-!--------------------------------------------------------------!
 subroutine signal_checkpoint_connect (SIG_NUM)
    integer, intent(in) :: SIG_NUM
@@ -46 +38 @@
    ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
 #endif
+
 #ifdef __GNUC__
+   intrinsic signal
+
    call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
 #endif
@@ -53 +48 @@
 
 !--------------------------------------------------------------!
+
 function signal_checkpoint_is_received () result (IS_RECEIVED)
    logical :: IS_RECEIVED
@@ -60 +56 @@
 
 !--------------------------------------------------------------!
+
 function signal_checkpoint_received_times () result (RECEIVED_TIMES)
    integer :: RECEIVED_TIMES
@@ -83 +80 @@
 end subroutine
 
+!--------------------------------------------------------------!
+
 function signal_checkpoint_trap_callback_intel_ (SIG_NUM) result (ONE)
    use Signal_Checkpoint
@@ -91 +90 @@
    ONE = 1
 end
+
+!--------------------------------------------------------------!
+!--------------------------------------------------------------!