xermsg Subroutine

private subroutine xermsg(librar, subrou, messg, nerr, level)

Error reporter.

A very simplified version of the SLATEC routine.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: librar

name of the library
character(len=*), intent(in) :: subrou

name of the routine that detected the error
character(len=*), intent(in) :: messg

text of the error or warning message
integer, intent(in) :: nerr

error code
integer, intent(in) :: level

value in the range 0 to 2 that indicates the level (severity) of the error.

Called by

proc~~xermsg~~CalledByGraph proc~xermsg pchip_module::xermsg proc~dchfdv pchip_module::dchfdv proc~dchfdv->proc~xermsg proc~dchfev pchip_module::dchfev proc~dchfev->proc~xermsg proc~dpchbs pchip_module::dpchbs proc~dpchbs->proc~xermsg proc~dpchce pchip_module::dpchce proc~dpchce->proc~xermsg proc~dpchdf pchip_module::dpchdf proc~dpchce->proc~dpchdf proc~dpchcm pchip_module::dpchcm proc~dpchcm->proc~xermsg proc~dpchdf->proc~xermsg proc~dpchfd pchip_module::dpchfd proc~dpchfd->proc~xermsg proc~dpchfd->proc~dchfdv proc~dpchfe pchip_module::dpchfe proc~dpchfe->proc~xermsg proc~dpchfe->proc~dchfev proc~dpchia pchip_module::dpchia proc~dpchia->proc~xermsg proc~dpchid pchip_module::dpchid proc~dpchia->proc~dpchid proc~dpchic pchip_module::dpchic proc~dpchic->proc~xermsg proc~dpchic->proc~dpchce proc~dpchcs pchip_module::dpchcs proc~dpchic->proc~dpchcs proc~dpchid->proc~xermsg proc~dpchim pchip_module::dpchim proc~dpchim->proc~xermsg proc~dpchsp pchip_module::dpchsp proc~dpchsp->proc~xermsg proc~dpchsp->proc~dpchdf proc~dpchsw pchip_module::dpchsw proc~dpchsw->proc~xermsg proc~dpchcs->proc~dpchsw

Source Code

    subroutine xermsg(librar,subrou,messg,nerr,level)

    implicit none

    character(len=*),intent(in) :: librar !! name of the library
    character(len=*),intent(in) :: subrou !! name of the routine that detected the error
    character(len=*),intent(in) :: messg  !! text of the error or warning message
    integer,intent(in)          :: nerr   !! error code
    integer,intent(in)          :: level  !! value in the range 0 to 2 that indicates the
                                          !! level (severity) of the error.

    write(error_unit, '(A,I2,A)') 'Error ',nerr,' in '//trim(librar)//&
                                  ' : '//trim(subrou)//' : '//trim(messg)

    end subroutine xermsg