kill_zombi.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	get_env_variable_zombi (zombi_activation)
subroutine	get_process_pid_zombi (current_process_pid)
subroutine	write_process_pid_zombi (current_process_pid, radflex_process_pid, nspmd, list_process)
subroutine	init_list_process_pid (radflex_process_pid, current_process_pid, nspmd, list_process)
subroutine	walking_dead_mode (radflex_process_pid, ispmd, nspmd)

Function/Subroutine Documentation

get_env_variable_zombi()

subroutine get_env_variable_zombi

(

logical, intent(inout)

zombi_activation

)

Definition at line 32 of file kill_zombi.F.

#include "implicit_f.inc"
        character(len=100) env
        logical, intent(inout) :: zombi_activation
 
        env(1:len(env)) = ''
        call getenv ( 'ENABLE_PID_PRINT', env )
        zombi_activation = .false.
        if ( env(1:2)=='ON' ) then
          zombi_activation = .true.
        endif
 
        return

get_process_pid_zombi()

subroutine get_process_pid_zombi

(

integer, intent(inout)

current_process_pid

)

Definition at line 52 of file kill_zombi.F.

#include "implicit_f.inc"
        integer, intent(inout) :: current_process_pid
        integer :: GETPID
 
        current_process_pid = getpid()
 
        return

init_list_process_pid()

subroutine init_list_process_pid	(	integer, intent(in)	radflex_process_pid,
		integer, intent(in)	current_process_pid,
		integer, intent(in)	nspmd,
		integer, dimension(nspmd+1), intent(inout)	list_process )

Definition at line 91 of file kill_zombi.F.

 
#include "implicit_f.inc"
#ifdef MPI
#include "mpif.h"
#endif
        integer, intent(in) :: radflex_process_pid,nspmd
        integer, dimension(nspmd+1), intent(inout) :: list_process
        integer, intent(in) :: current_process_pid
 
        integer :: ierror
 
        list_process(1:nspmd+1 ) = 0
#ifdef MPI
        call mpi_gather(current_process_pid,1,mpi_integer,
     .      list_process,1,mpi_integer,0,mpi_comm_world,ierror)
        list_process(nspmd+1) = radflex_process_pid
#endif
        if(nspmd==1) then
          list_process(1) = current_process_pid
          list_process(2) = radflex_process_pid
        endif
 
        return

walking_dead_mode()

subroutine walking_dead_mode	(	integer, intent(in)	radflex_process_pid,
		integer, intent(in)	ispmd,
		integer, intent(in)	nspmd )

Definition at line 126 of file kill_zombi.F.

#include "implicit_f.inc"
#ifdef MPI
#include "mpif.h"
#endif
        integer, intent(in) :: radflex_process_pid,nspmd,ispmd
        logical :: zombi_activation
        integer :: current_process_pid
        integer, dimension(nspmd+1) :: list_process
 
 
        call get_env_variable_zombi(zombi_activation)
 
        if(zombi_activation) then
 
          call get_process_pid_zombi(current_process_pid)
          call init_list_process_pid( radflex_process_pid,
     .          current_process_pid,nspmd,list_process )
          if(ispmd==0) call write_process_pid_zombi(
     .    current_process_pid,radflex_process_pid,nspmd,list_process )
        endif
 
        return

write_process_pid_zombi()

subroutine write_process_pid_zombi	(	integer, intent(in)	current_process_pid,
		integer, intent(in)	radflex_process_pid,
		integer, intent(in)	nspmd,
		integer, dimension(nspmd+1), intent(in)	list_process )

Definition at line 67 of file kill_zombi.F.

#include "implicit_f.inc"
        integer, intent(in) :: radflex_process_pid
        integer, intent(in) :: current_process_pid
        integer, intent(in) :: nspmd
        integer, dimension(nspmd+1), intent(in) :: list_process
        integer :: i
 
        open(file="running_pids",unit=666,access="append",
     .       status="unknown",action="readwrite")
        do i=1,nspmd+1
          if(list_process(i)/=0) write(666,*) list_process(i)
        enddo
        close(666)
        return