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
|
Rev | Line | |
---|
[62] | 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.