Changeset 72 for trunk/signal-checkpoint

Timestamp:

May 29, 2012, 11:20:54 AM (12 years ago)

Author:

g7moreau

Message:

• Replace integer flag by a logical variable

File:

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

trunk/signal-checkpoint/signal_checkpoint.F90

@@ -22 +22 @@
 integer, parameter :: SIGTERM = 15  ! Signal TERM
 
-! False public, only for trap procedure
-integer :: INTERNAL_RECEIVED_COUNT_ = 0  ! Global Counter
-integer :: INTERNAL_ERROR_ON_EXIT_  = 0
+! Internal counter
+integer :: INTERNAL_RECEIVED_COUNT_ = 0       ! Global Signal Counter
+logical :: INTERNAL_ERROR_ON_EXIT_  = .false. ! Global State
 
 public :: SIGHUP
@@ -89 +89 @@
    logical :: EXIT
    
-   EXIT = ( INTERNAL_ERROR_ON_EXIT_ /= 0 )
+   EXIT = INTERNAL_ERROR_ON_EXIT_
 end function
 
@@ -106 +106 @@
    !integer, intent(in) :: SIG_NUM
 
-   INTERNAL_ERROR_ON_EXIT_ = 1
+   INTERNAL_ERROR_ON_EXIT_ = .true.
    call trap_callback_count_
 end subroutine