cfaerr Subroutine

private subroutine cfaerr(ierr, mess)

To print an error number and an error message or just an error message.

The message is writen to output_unit.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ierr

The error number (printed only if non-zero).
character(len=*), intent(in) :: mess

Message to be printed.

Called by

proc~~cfaerr~~CalledByGraph proc~cfaerr splpak_module::cfaerr proc~splcw splpak_module::splpak_type%splcw proc~splcw->proc~cfaerr proc~suprls splpak_module::splpak_type%suprls proc~splcw->proc~suprls proc~splde splpak_module::splpak_type%splde proc~splde->proc~cfaerr proc~suprls->proc~cfaerr proc~splcc splpak_module::splpak_type%splcc proc~splcc->proc~splcw proc~splfe splpak_module::splpak_type%splfe proc~splfe->proc~splde

Source Code

subroutine cfaerr (ierr,mess)

    integer,intent(in) :: ierr !! The error number (printed only if non-zero).
    character(len=*), intent(in) :: mess !! Message to be printed.

    if (ierr /= 0) write (output_unit,'(A,I5)') ' IERR=', ierr
    write (output_unit,'(A)') trim(mess)

end subroutine cfaerr