diff --git a/AtlasBase/Clint/atlas-ammm.base b/AtlasBase/Clint/atlas-ammm.base index 2723ecf76..cc3c578d9 100644 --- a/AtlasBase/Clint/atlas-ammm.base +++ b/AtlasBase/Clint/atlas-ammm.base @@ -668,7 +668,7 @@ void Mjoin(PATL,@(sh)ComputeIPInfo) size_t M, size_t N, size_t K, size_t lda, size_t ldb, size_t ldc, const SCALAR alpha, const SCALAR beta); @endwhile -@whiledef rt iploopsNK iploopsMK iploopsK +@whiledef rt iploopsNK iploopsMK iploopsK iploopsNMK iploopsNMK void Mjoin(PATL,@(rt)) (ipinfo_t *ip, size_t i, size_t j, const TYPE *A, const TYPE *B, TYPE *C, const int MVS, TYPE *a, TYPE *b, TYPE *rC, TYPE *iC, diff --git a/AtlasBase/Clint/atlas-thr.base b/AtlasBase/Clint/atlas-thr.base index 4a8bc8f11..6cb8b3ef1 100644 --- a/AtlasBase/Clint/atlas-thr.base +++ b/AtlasBase/Clint/atlas-thr.base @@ -8815,9 +8815,9 @@ void Mjoin(PATL,bcLaswp_amm) while(KeepOn); } @ROUT ATL_tgetf2 +#include "atlas_cbc.h" #include "atlas_tlapack.h" #include "atlas_level2.h" -#include "atlas_cbc.h" #ifdef TCPLX #define GER Mjoin(PATL,geru) #else