..
  Copyright 1988-2021 Free Software Foundation, Inc.
  This is part of the GCC manual.
  For copying conditions, see the GPL license file

.. _co_sum:

CO_SUM --- Sum of values on the current set of images
*****************************************************

.. index:: CO_SUM

.. index:: Collectives, sum of values

.. function:: CO_SUM

  ``CO_SUM`` sums up the values of each element of :samp:`{A}` on all
  images of the current team.  If :samp:`{RESULT_IMAGE}` is present, the summed-up
  values are returned in :samp:`{A}` on the specified image only and the value
  of :samp:`{A}` on the other images become undefined.  If :samp:`{RESULT_IMAGE}` is
  not present, the value is returned on all images.  If the execution was
  successful and :samp:`{STAT}` is present, it is assigned the value zero.  If the
  execution failed, :samp:`{STAT}` gets assigned a nonzero value and, if present,
  :samp:`{ERRMSG}` gets assigned a value describing the occurred error.

  :param A:
    shall be an integer, real or complex variable,
    which has the same type and type parameters on all images of the team.

  :param RESULT_IMAGE:
    (optional) a scalar integer expression; if
    present, it shall have the same value on all images and refer to an
    image of the current team.

  :param STAT:
    (optional) a scalar integer variable

  :param ERRMSG:
    (optional) a scalar character variable

  :samp:`{Standard}:`
    Technical Specification (TS) 18508 or later

  :samp:`{Class}:`
    Collective subroutine

  :samp:`{Syntax}:`

  .. code-block:: fortran

    CALL CO_SUM(A [, RESULT_IMAGE, STAT, ERRMSG])

  :samp:`{Example}:`

    .. code-block:: fortran

      program test
        integer :: val
        val = this_image ()
        call co_sum (val, result_image=1)
        if (this_image() == 1) then
          write(*,*) "The sum is ", val ! prints (n**2 + n)/2,
                                        ! with n = num_images()
        end if
      end program test

  :samp:`{See also}:`
    CO_MAX, 
    CO_MIN, 
    CO_REDUCE, 
    CO_BROADCAST