#include "omp.h"
#define alpha( i,j ) A[ (j)*ldA + (i) ] // map alpha( i,j ) to array A
#define min( x, y ) ( (x) < (y) ? (x) : (y) )
void PackMicroPanelA_MRxKC( int m, int k, double *A, int ldA, double *Atilde )
/* Pack a micro-panel of A into buffer pointed to by Atilde.
This is an unoptimized implementation for general MR and KC. */
{
/* March through A in column-major order, packing into Atilde as we go. */
if ( m == MR ) /* Full row size micro-panel.*/
for ( int p=0; p