source: trunk/signal-checkpoint/sgck-test1.f90 @ 62

Last change on this file since 62 was 62, checked in by g7moreau, 12 years ago
  • Add Signal_Checkpoint Fortran90 module project
File size: 839 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.