diff --git a/include/language-support.F90 b/include/language-support.F90 new file mode 100644 index 000000000..559bf8fcc --- /dev/null +++ b/include/language-support.F90 @@ -0,0 +1,14 @@ +! Copyright (c), The Regents of the University of California +! Terms of use are as specified in LICENSE.txt + +#ifndef F2023_LOCALITY +#if defined(__INTEL_COMPILER) && (__INTEL_COMPILER >= 202400) +# define F2023_LOCALITY 1 +#endif +#endif + +#ifndef F2018_LOCALITY +#if defined(_CRAYFTN) +# define F2018_LOCALITY 1 +#endif +#endif diff --git a/src/inference_engine/trainable_engine_s.F90 b/src/inference_engine/trainable_engine_s.F90 index ba208b398..35ce74390 100644 --- a/src/inference_engine/trainable_engine_s.F90 +++ b/src/inference_engine/trainable_engine_s.F90 @@ -1,17 +1,7 @@ ! Copyright (c), The Regents of the University of California ! Terms of use are as specified in LICENSE.txt -#ifndef F2023_LOCALITY -#if defined(__INTEL_COMPILER) && (__INTEL_COMPILER >= 202400) -# define F2023_LOCALITY 1 -#endif -#endif - -#ifndef F2018_LOCALITY -#if defined(_CRAYFTN) -# define F2018_LOCALITY 1 -#endif -#endif +#include "language-support.F90" submodule(trainable_engine_m) trainable_engine_s use assert_m, only : assert