--- MITgcm/eesupp/inc/CPP_EEMACROS.h	2009/04/28 17:51:11	1.17
+++ MITgcm/eesupp/inc/CPP_EEMACROS.h	2009/05/24 16:57:49	1.18
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/CPP_EEMACROS.h,v 1.17 2009/04/28 17:51:11 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/CPP_EEMACROS.h,v 1.18 2009/05/24 16:57:49 heimbach Exp $
 C $Name:  $
 
 CBOP
@@ -140,6 +140,11 @@
 #define RL_IS_REAL8
 #define _GLOBAL_SUM_RL(a,b) CALL GLOBAL_SUM_R8 ( a, b )
 #define _GLOBAL_MAX_RL(a,b) CALL GLOBAL_MAX_R8 ( a, b )
+cph(
+cph Needed for some backward compatibility with broken packages
+#define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )
+#define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )
+cph)
 #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION
 
 #define _MPI_TYPE_R4 MPI_REAL
@@ -156,12 +161,15 @@
 C           will directly call the corrresponding S/R.
 #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )
 #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )
-c#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R4 ( a, b )
-c#define _EXCH_XY_R8(a,b) CALL EXCH_XY_R8 ( a, b )
 #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )
 #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )
-c#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R4 ( a, b )
-c#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_R8 ( a, b )
+cph(
+cph Needed for some backward compatibility with broken packages
+#define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b )
+#define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )
+#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b )
+#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )
+cph)
 
 C--   Control use of JAM routines for Artic network (no longer supported)
 C     These invoke optimized versions of "exchange" and "sum" that