Changeset 63

Timestamp:

Apr 20, 2012, 2:44:50 PM (12 years ago)

Author:

g7moreau

Message:

• Samll format change...

Location:

trunk/signal-checkpoint

Files:

• sgck-test1.f90 (modified) (1 diff)
• signal_checkpoint.F90 (modified) (2 diffs)

trunk/signal-checkpoint/sgck-test1.f90

@@ -11 +11 @@
 program sgck-test1
 
-  use Signal_Checkpoint, only: &
-        signal_checkpoint_connect, &
-        signal_checkpoint_is_received, &
-        signal_checkpoint_received_times, &
-        SIGUSR2
+   use Signal_Checkpoint, only: &
+      signal_checkpoint_connect, &
+      signal_checkpoint_is_received, &
+      signal_checkpoint_received_times, &
+      SIGUSR2
 
-  integer :: I
+   integer :: I
 
-  call signal_checkpoint_connect(SIGUSR2)
+   call signal_checkpoint_connect(SIGUSR2)
 
-  print *, "initialising phase"
+   print *, "initialising phase"
 
-  do while (.not. signal_checkpoint_is_received())
-     do I = 1, 15
-          print *, "runnning in the loop ", I, signal_checkpoint_received_times()
-          call sleep (1)
-     end do
-  end do
+   do while (.not. signal_checkpoint_is_received())
+      do I = 1, 15
+         print *, "runnning in the loop ", I, signal_checkpoint_received_times()
+         call sleep (1)
+      end do
+   end do
 
-  print *, "finishing phase"
+   print *, "finishing phase"
 end program

trunk/signal-checkpoint/signal_checkpoint.F90

@@ -39 +39 @@
 !--------------------------------------------------------------!
 subroutine signal_checkpoint_connect (SIG_NUM)
-        integer, intent(in) :: SIG_NUM
+   integer, intent(in) :: SIG_NUM
 
 #ifdef __INTEL_COMPILER
-        integer :: ERR
+   integer :: ERR
       
-        ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
+   ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
 #endif
 #ifdef __GNUC__
-        call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
+   call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
 #endif
 
@@ -77 +77 @@
 
 subroutine signal_checkpoint_trap_callback_gfortran_ (SIG_NUM)
-        use Signal_Checkpoint
-        integer, intent(in) :: SIG_NUM
+   use Signal_Checkpoint
+   integer, intent(in) :: SIG_NUM
 
-        INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
+   INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
 end subroutine
 
 function signal_checkpoint_trap_callback_intel_ (SIG_NUM) result (ONE)
-        use Signal_Checkpoint
-        integer, intent(in) :: SIG_NUM
-        integer :: ONE
+   use Signal_Checkpoint
+   integer, intent(in) :: SIG_NUM
+   integer :: ONE
 
-        INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
-        ONE = 1
+   INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
+   ONE = 1
 end