Changeset 63 for trunk/signal-checkpoint/sgck-test1.f90

Timestamp:

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

Author:

g7moreau

Message:

• Samll format change...

File:

• trunk/signal-checkpoint/sgck-test1.f90 (modified) (1 diff)

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