Last change
on this file since 66 was
66,
checked in by g7moreau, 12 years ago
|
- Rename sgck_test1.f90 to test_sgck1.f90
- Add bash script test_sgck1.sh to launch the test
|
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 | |
---|
11 | program 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" |
---|
33 | end program |
---|
Note: See
TracBrowser
for help on using the repository browser.