1C> \brief Implementation for use with GA-4-3
2C>
3C> An implementation of ga_zgop to be used only in the case of compiling
4C> NWChem with GA-4-3 (i.e. the environment variable OLD_GA is set). In
5C> GA-5-1 and later the routine ga_zgop is part of the global array
6C> distribution. In GA-4-3 this routine did not exist causing
7C> linking problems. However, this routine is used in only one place
8C> to sum complex numbers across processors. We can easily reproduce
9C> this particular behavior using real numbers instead of complex
10C> numbers. So as a fallback we will use that approach.
11C>
12      subroutine ga_zgop(itype,x,n,op)
13      implicit none
14#include "errquit.fh"
15      integer itype       !< [Input] MA data type of x
16      integer n           !< [Input] length of array x
17      double complex x(n) !< [In/Output] the data array
18      character*(*) op    !< [Input] the operation to perform
19c
20      if (op.eq."+") then
21        call ga_dgop(itype,x,2*n,op)
22      else
23        call errquit("ga_zgop: invalid operation",0,UERR)
24      endif
25c
26      end
27c $Id$
28