Remove spurious USE JPRB, suffixize duplicated symbols from algor dir…

…ectory
ecmwf-ifs · Nov 13, 2023 · cc37221 · cc37221
1 parent 1b11f84
commit cc37221
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 2 deletions.
diff --git a/src/trans/algor/interpol_decomp_mod.F90 b/src/trans/algor/interpol_decomp_mod.F90
@@ -24,7 +24,7 @@ MODULE INTERPOL_DECOMP_MOD
 ! Author: Mats Hamrud
 
 
-USE PARKIND1, ONLY : JPRB, JPIM, JPRD, JPIB
+USE PARKIND1, ONLY : JPIM, JPRD, JPIB
 IMPLICIT NONE
 CONTAINS
 !===========================================================================

diff --git a/src/trans/include/ectrans/renames.inc b/src/trans/include/ectrans/renames.inc
@@ -132,6 +132,18 @@
 #define transform_driver_mod SUFFIXIZE(transform_driver_mod)
 #define SPECNORM SUFFIXIZE(SPECNORM)
 #define specnorm SUFFIXIZE(specnorm)
+#define SET99B SUFFIXIZE(SET99B)
+#define SET99 SUFFIXIZE(SET99)
+#define FFT992_CC SUFFIXIZE(FFT992_CC)
+#define FFT992 SUFFIXIZE(FFT992)
+#define seefmm_mix SUFFIXIZE(seefmm_mix)
+#define SEEFMM_MIX SUFFIXIZE(SEEFMM_MIX)
+#define WTS500_MOD SUFFIXIZE(WTS500_MOD)
+#define wts500_mod SUFFIXIZE(wts500_mod)
+#define BUTTERFLY_ALG_MOD  SUFFIXIZE(BUTTERFLY_ALG_MOD)
+#define FFTB_PLAN SUFFIXIZE(FFTB_PLAN)
+#define FFTB_TYPE SUFFIXIZE(FFTB_TYPE)
+#define BLUESTEIN_FFT SUFFIXIZE(BLUESTEIN_FFT)
 !Pure replacements below
 #define parkind1 ec_parkind
 #define PARKIND1 EC_PARKIND

diff --git a/src/trans/sharedmem/sharedmem_mod.F90 b/src/trans/sharedmem/sharedmem_mod.F90
@@ -17,7 +17,7 @@ MODULE SHAREDMEM_MOD
 
 
 USE, INTRINSIC :: ISO_C_BINDING, ONLY:  C_PTR, C_INT, C_NULL_PTR,C_SIZE_T
-USE PARKIND1  ,ONLY : JPIM, JPRB ,JPRD
+USE PARKIND1  ,ONLY : JPIM, JPRD
 
 #ifdef __NEC__
 #define C_SIZEOF(x) INT(KIND(x),C_SIZE_T)