c@64: #ifndef ATLAS_ZR1_H
c@64: #define ATLAS_ZR1_H
c@64: 
c@64: #define ATL_L1r1elts 2048
c@64: #define ATL_r1MU 16
c@64: #define ATL_r1NU 1
c@64: 
c@64: #define ATL_GetPartR1(A_, lda_, mb_, nb_) \
c@64: { \
c@64:    (mb_) = (ATL_L1r1elts - (ATL_r1NU+ATL_r1NU)) / (ATL_r1NU+ATL_r1NU+1); \
c@64:    if ((mb_) > ATL_r1MU) (mb_) = ATL_r1MU*((mb_)/ATL_r1MU); \
c@64:    else (mb_) = ATL_r1MU; \
c@64:    (nb_) = ATL_r1NU; \
c@64: }
c@64: 
c@64: #endif