source: trunk/signal-checkpoint/sgck_test1.f90 @ 65

Last change on this file since 65 was 65, checked in by g7moreau, 12 years ago
  • Rename sgck-test1 to sgck_test1
File size: 872 bytes
Line 
1! 2012/04/20 (C) Gabriel Moreau
2!
3! rm sgck_test1 *.o *.mod
4! gfortran -c signal_checkpoint.F90 && gfortran -o sgck_test1 sgck_test1.f90 signal_checkpoint.o
5! ./sgck_test1
6!
7! ps fux | grep ./sgck_test1 | grep -v grep | awk '{print $2}' | xargs kill -USR2
8!
9! ifort -c signal_checkpoint.F90 && ifort -o sgck_test1 sgck_test1.f90 signal_checkpoint.o
10
11program sgck_test1
12
13   use Signal_Checkpoint, only: &
14      signal_checkpoint_connect, &
15      signal_checkpoint_is_received, &
16      signal_checkpoint_received_times, &
17      SIGUSR2
18
19   integer :: I
20
21   call signal_checkpoint_connect(SIGUSR2)
22
23   print *, "initialising phase"
24
25   do while (.not. signal_checkpoint_is_received())
26      do I = 1, 15
27         print *, "runnning in the loop ", I, signal_checkpoint_received_times()
28         call sleep (1)
29      end do
30   end do
31
32   print *, "finishing phase"
33end program
Note: See TracBrowser for help on using the repository browser.