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.

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().

     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