fixed RankKInfo ordering prob in basefile

math-atlas · Sep 8, 2016 · 30f6de0 · 30f6de0
1 parent bec03e5
commit 30f6de0
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/AtlasBase/Clint/atlas-ammm.base b/AtlasBase/Clint/atlas-ammm.base
@@ -21065,22 +21065,6 @@ int main(int nargs, char **args)
 #include Mstr(Mjoin(ATLAS_PRE,rkamm_cm2am_an.h))
 #include Mstr(Mjoin(ATLAS_PRE,rkamm_cm2am_aX.h))
 #include Mstr(Mjoin(ATLAS_PRE,rkamm_ablk2cmat.h))
-
-int Mjoin(PATL,GetRankKInfo)
-(
-   amminfo_t *out,
-   enum ATLAS_TRANS TA,
-   enum ATLAS_TRANS TB,
-   ATL_CSZT M,
-   ATL_CSZT N,
-   ATL_CSZT K,
-   const SCALAR alpha,
-   const SCALAR beta
-)
-{
-   const int ik = K-3;
-   int appAl;  /* 0:A, 1:B */
-   ATL_assert(K > 2 && K <= ATL_rkAMM_LASTKB);
 @ROUT ATL_GetAmmmInfoSQ
 #include "atlas_misc.h"
 #include Mstr(Mjoin(ATLAS_PRE,sqamm_blk.h))
@@ -21773,6 +21757,22 @@ ablk2cmat_t Mjoin(PATL,tGetSyammInfo_K)
    return(ATL_AMM_BLK2C_a1_b0[ik]);
 }
 #endif
+@ROUT ATL_GetRankKInfo
+int Mjoin(PATL,GetRankKInfo)
+(
+   amminfo_t *out,
+   enum ATLAS_TRANS TA,
+   enum ATLAS_TRANS TB,
+   ATL_CSZT M,
+   ATL_CSZT N,
+   ATL_CSZT K,
+   const SCALAR alpha,
+   const SCALAR beta
+)
+{
+   const int ik = K-3;
+   int appAl;  /* 0:A, 1:B */
+   ATL_assert(K > 2 && K <= ATL_rkAMM_LASTKB);
 @ROUT ATL_GetAmmmInfo
 int Mjoin(PATL,GetAmmmInfo)
 (