scale_sigvars Module Reference

module sigvars More...

Functions/Subroutines
subroutine, public	sigvars_get_all (master)
	Get signal values. More...

Variables
integer(c_int), public	sigint = -1
integer(c_int), public	sigquit = -1
integer(c_int), public	sigabrt = -1
integer(c_int), public	sigfpe = -1
integer(c_int), public	sigsegv = -1
integer(c_int), public	sigterm = -1

Detailed Description

module sigvars

Description

get SIGNAL values via C Language.

Author

Team SCALE

History

• 2016-06-30 (R.Yoshida) [new]

Function/Subroutine Documentation

sigvars_get_all()

subroutine, public scale_sigvars::sigvars_get_all

(

logical, intent(in)

master

)

Get signal values.

Definition at line 104 of file scale_sigvars.F90.

    implicit none
    logical, intent(in) :: master   ! master flag
    integer(c_int) :: ierr
    !---------------------------------------------------------------------------
 
    if( master ) write(*,*) ''
    if( master ) write(*,*) 'Get system signals'
 
    sigint = get_sigint(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGINT  = ', sigint
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGINT'
    endif
 
    sigquit = get_sigquit(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGQUIT = ', sigquit
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGQUIT'
    endif
 
    sigabrt = get_sigabrt(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGABRT = ', sigabrt
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGABRT'
    endif
 
    sigfpe = get_sigfpe(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGFPE  = ', sigfpe
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGFPE'
    endif
 
    sigsegv = get_sigsegv(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGSEGV = ', sigsegv
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGSEGV'
    endif
 
    sigterm = get_sigterm(ierr)
    if ( ierr == 0 ) then
       if( master ) write(*,*) '*** signal: SIGTERM = ', sigterm
    else
       if( master ) write(*,*) 'xxx [WARNING] Not Exist: SIGTERM'
    endif
 
    return

References get_sigabrt(), get_sigfpe(), get_sigint(), get_sigquit(), get_sigsegv(), get_sigterm(), sigabrt, sigfpe, sigint, sigquit, sigsegv, and sigterm.

Referenced by scale_prc::prc_errhandler_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

sigint

integer(c_int), public scale_sigvars::sigint = -1

Definition at line 33 of file scale_sigvars.F90.

  integer(c_int), public :: SIGINT  = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().

sigquit

integer(c_int), public scale_sigvars::sigquit = -1

Definition at line 34 of file scale_sigvars.F90.

  integer(c_int), public :: SIGQUIT = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().

sigabrt

integer(c_int), public scale_sigvars::sigabrt = -1

Definition at line 35 of file scale_sigvars.F90.

  integer(c_int), public :: SIGABRT = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().

sigfpe

integer(c_int), public scale_sigvars::sigfpe = -1

Definition at line 36 of file scale_sigvars.F90.

  integer(c_int), public :: SIGFPE  = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().

sigsegv

integer(c_int), public scale_sigvars::sigsegv = -1

Definition at line 37 of file scale_sigvars.F90.

  integer(c_int), public :: SIGSEGV = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().

sigterm

integer(c_int), public scale_sigvars::sigterm = -1

Definition at line 38 of file scale_sigvars.F90.

  integer(c_int), public :: SIGTERM = -1

Referenced by scale_prc::prc_errhandler_setup(), and sigvars_get_all().