Changeset 73 for trunk/signal-checkpoint

Timestamp:

May 29, 2012, 2:04:47 PM (12 years ago)

Author:

g7moreau

Message:

• Cleaning code
• Rename internal variable

File:

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

trunk/signal-checkpoint/signal_checkpoint.F90

@@ -15 +15 @@
 private
 
-integer, parameter :: SIGHUP  =  1  ! Signal HUP
-integer, parameter :: SIGINT  =  2  ! Signal INT
-integer, parameter :: SIGQUIT =  3  ! Signal QUIT
-integer, parameter :: SIGUSR1 = 10  ! Signal USR1
-integer, parameter :: SIGUSR2 = 12  ! Signal USR2
-integer, parameter :: SIGTERM = 15  ! Signal TERM
+! Signal list
+integer,parameter :: SIGHUP  =  1  ! Signal HUP
+integer,parameter :: SIGINT  =  2  ! Signal INT
+integer,parameter :: SIGQUIT =  3  ! Signal QUIT
+integer,parameter :: SIGUSR1 = 10  ! Signal USR1
+integer,parameter :: SIGUSR2 = 12  ! Signal USR2
+integer,parameter :: SIGTERM = 15  ! Signal TERM
 
 ! Internal counter
-integer :: INTERNAL_RECEIVED_COUNT_ = 0       ! Global Signal Counter
-logical :: INTERNAL_ERROR_ON_EXIT_  = .false. ! Global State
+integer :: SIGNAL_RECEIVED_COUNT_ = 0       ! Global signal counter
+logical :: CODE_ERROR_ON_EXIT_    = .false. ! Global return state
 
+! Public interface
 public :: SIGHUP
 public :: SIGINT
@@ -42 +44 @@
 
 subroutine signal_checkpoint_connect (SIG_NUM, EXIT)
-   integer, intent(in) :: SIG_NUM
-   logical, intent(in), optional :: EXIT
+   integer,intent(in)          :: SIG_NUM
+   logical,intent(in),optional :: EXIT
 
 #ifdef __INTEL_COMPILER
@@ -61 +63 @@
       call signal(SIG_NUM, trap_callback_exit_)
    else
-
       call signal(SIG_NUM, trap_callback_count_)
    end if
@@ -73 +74 @@
    logical :: IS_RECEIVED
 
-   IS_RECEIVED = ( INTERNAL_RECEIVED_COUNT_ > 0 )
+   IS_RECEIVED = ( SIGNAL_RECEIVED_COUNT_ > 0 )
 end function
 
@@ -81 +82 @@
    integer :: RECEIVED_TIMES
 
-   RECEIVED_TIMES = INTERNAL_RECEIVED_COUNT_
+   RECEIVED_TIMES = SIGNAL_RECEIVED_COUNT_
 end function
 
@@ -89 +90 @@
    logical :: EXIT
    
-   EXIT = INTERNAL_ERROR_ON_EXIT_
+   EXIT = CODE_ERROR_ON_EXIT_
 end function
 
@@ -95 +96 @@
 !--------------------------------------------------------------!
 
-subroutine trap_callback_count_ !(SIG_NUM)
-   !integer, intent(in) :: SIG_NUM
+subroutine trap_callback_count_
 
-   INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
+   SIGNAL_RECEIVED_COUNT_ = SIGNAL_RECEIVED_COUNT_ + 1
 end subroutine
 
 !--------------------------------------------------------------!
 
-subroutine trap_callback_exit_ !(SIG_NUM)
-   !integer, intent(in) :: SIG_NUM
+subroutine trap_callback_exit_
 
-   INTERNAL_ERROR_ON_EXIT_ = .true.
+   CODE_ERROR_ON_EXIT_ = .true.
    call trap_callback_count_
 end subroutine
@@ -113 +112 @@
 
 function trap_callback_intel_exit_ (SIG_NUM) result (ONE)
-   integer, intent(in) :: SIG_NUM
-   integer :: ONE
+   integer,intent(in) :: SIG_NUM
+   integer            :: ONE
 
    call trap_callback_exit_
@@ -123 +122 @@
 
 function trap_callback_intel_count_ (SIG_NUM) result (ONE)
-   integer, intent(in) :: SIG_NUM
-   integer :: ONE
+   integer,intent(in) :: SIG_NUM
+   integer            :: ONE
 
    call trap_callback_count_