Added.

bgin · Oct 31, 2023 · ffb8040 · ffb8040
1 parent ad28e09
commit ffb8040
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Radiolocation/GMS_rcs_common_ymm8r4.f90 b/Radiolocation/GMS_rcs_common_ymm8r4.f90
@@ -411,7 +411,7 @@ pure function k_ymm8c4(mu,eps,om) result(k)
               !dir$ attributes code_align : 32 :: k_ymm8c4
               !dir$ attributes forceinline :: k_ymm8c4
               !dir$ attributes optimization_parameter:"target_arch=skylake-avx512" :: k_ymm8c4
-              use avx512_cvec8
+              use avx_cvec8
               type(YMM8c4),  intent(in) :: mu
               type(YMM8c4),  intent(in) :: eps
               type(YMM8r4_t),intent(in) :: om
@@ -421,7 +421,7 @@ pure function k_ymm8c4(mu,eps,om) result(k)
               type(YMM8c4), automatic :: sqr
               type(YMM8c4), automatic :: tc0
               tc0 = mu*eps
-              sqr = csqrt_c8(tc0)
+              sqr = csqrt_ymm8c4(tc0)
               k   = sqr*om
         end function k_ymm8c4