Changeset 63


Ignore:
Timestamp:
Apr 20, 2012, 2:44:50 PM (8 years ago)
Author:
g7moreau
Message:
  • Samll format change...
Location:
trunk/signal-checkpoint
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/signal-checkpoint/sgck-test1.f90

    r62 r63  
    1111program sgck-test1
    1212
    13   use Signal_Checkpoint, only: &
    14         signal_checkpoint_connect, &
    15         signal_checkpoint_is_received, &
    16         signal_checkpoint_received_times, &
    17         SIGUSR2
     13   use Signal_Checkpoint, only: &
     14      signal_checkpoint_connect, &
     15      signal_checkpoint_is_received, &
     16      signal_checkpoint_received_times, &
     17      SIGUSR2
    1818
    19   integer :: I
     19   integer :: I
    2020
    21   call signal_checkpoint_connect(SIGUSR2)
     21   call signal_checkpoint_connect(SIGUSR2)
    2222
    23   print *, "initialising phase"
     23   print *, "initialising phase"
    2424
    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
     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
    3131
    32   print *, "finishing phase"
     32   print *, "finishing phase"
    3333end program
  • trunk/signal-checkpoint/signal_checkpoint.F90

    r62 r63  
    3939!--------------------------------------------------------------!
    4040subroutine signal_checkpoint_connect (SIG_NUM)
    41         integer, intent(in) :: SIG_NUM
     41   integer, intent(in) :: SIG_NUM
    4242
    4343#ifdef __INTEL_COMPILER
    44         integer :: ERR
     44   integer :: ERR
    4545     
    46         ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
     46   ERR = signal(SIG_NUM, signal_checkpoint_trap_callback_intel_, -1)
    4747#endif
    4848#ifdef __GNUC__
    49         call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
     49   call signal(SIG_NUM, signal_checkpoint_trap_callback_gfortran_)
    5050#endif
    5151
     
    7777
    7878subroutine signal_checkpoint_trap_callback_gfortran_ (SIG_NUM)
    79         use Signal_Checkpoint
    80         integer, intent(in) :: SIG_NUM
     79   use Signal_Checkpoint
     80   integer, intent(in) :: SIG_NUM
    8181
    82         INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
     82   INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
    8383end subroutine
    8484
    8585function signal_checkpoint_trap_callback_intel_ (SIG_NUM) result (ONE)
    86         use Signal_Checkpoint
    87         integer, intent(in) :: SIG_NUM
    88         integer :: ONE
     86   use Signal_Checkpoint
     87   integer, intent(in) :: SIG_NUM
     88   integer :: ONE
    8989
    90         INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
    91         ONE = 1
     90   INTERNAL_RECEIVED_COUNT_ = INTERNAL_RECEIVED_COUNT_ + 1
     91   ONE = 1
    9292end
Note: See TracChangeset for help on using the changeset viewer.