get_master_BLACS Function

public function get_master_BLACS() result(master)

Arguments

None

Return Value logical


Source Code

  function get_master_BLACS() result(master)
    logical :: master
    if(.not.blacs_status)stop "get_master_BLACS error: blacs_status=F. call init_BLACS"
    master = p_rank==0
  end function get_master_BLACS