diff --git a/src/trans/algor/interpol_decomp_mod.F90 b/src/trans/algor/interpol_decomp_mod.F90 index 4e05950d..c89a8201 100644 --- 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 index fc12ed65..da819f9f 100644 --- 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 index 16bb0fca..248f7f60 100644 --- 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)