check_status Subroutine

public subroutine check_status(status, modulename, subroutinename, tag, abort)

Uses

  • proc~~check_status~~UsesGraph proc~check_status check_status module~messages messages proc~check_status->module~messages comm_IOFILE comm_IOFILE module~messages->comm_IOFILE comm_PAR comm_PAR module~messages->comm_PAR module~io_constants io_constants module~messages->module~io_constants module~precision precision module~messages->module~precision iso_fortran_env iso_fortran_env module~precision->iso_fortran_env

Arguments

Type IntentOptional Attributes Name
integer(kind=c_int32_t), intent(in) :: status
character(len=*), intent(in) :: modulename
character(len=*), intent(in) :: subroutinename
character(len=*), intent(in) :: tag
logical, intent(in), optional :: abort

Calls

proc~~check_status~~CallsGraph proc~check_status check_status get_status_message get_status_message proc~check_status->get_status_message interface~show_message show_message proc~check_status->interface~show_message

Called by

proc~~check_status~~CalledByGraph proc~check_status check_status proc~dftder dftder proc~dftder->proc~check_status proc~electric_moments electric_moments proc~electric_moments->proc~check_status proc~hf_energy hf_energy proc~hf_energy->proc~check_status proc~hf_gradient hf_gradient proc~hf_gradient->proc~check_status proc~hf_gradient->proc~dftder

Source Code

  subroutine check_status(status, modulename, subroutinename, tag, abort)
    use messages, only: show_message, WITHOUT_ABORT
    integer(c_int32_t), intent(in) :: status
    character(len=*), intent(in) :: modulename, subroutinename, tag
    logical, optional, intent(in) :: abort
    logical :: abort_
    abort_ = WITHOUT_ABORT
    if (present(abort)) abort_ = abort
    if (status /= TA_OK) call show_message( &
        modulename // "::" // subroutinename // ": " // get_status_message(status, trim(tag)), &
        abort_)
  end subroutine check_status