finalize_BLACS Subroutine

public subroutine finalize_BLACS(blacs_end)

Arguments

Type IntentOptional Attributes Name
integer, optional :: blacs_end

Calls

proc~~finalize_blacs~~CallsGraph proc~finalize_blacs finalize_BLACS blacs_exit blacs_exit proc~finalize_blacs->blacs_exit blacs_gridexit blacs_gridexit proc~finalize_blacs->blacs_gridexit

Source Code

  subroutine finalize_BLACS(blacs_end)
    integer,optional :: blacs_end
    integer :: blacs_end_
    blacs_end_=0;if(present(blacs_end))blacs_end_=blacs_end
    call blacs_gridexit(p_context)
    call blacs_exit(blacs_end_)
    blacs_status=.false.
  end subroutine finalize_BLACS