/* ------------------------------------ */
/*  Save as :   ca_a.c                 */
/* ------------------------------------ */
#include      "w_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R2*(C3*C2)] ={ 1, 2,  3, 4,  5, 6,
                       10,20, 30,40, 50,60};
                     
double **A = ca_A_mZ(a,i_mZ(R2,C3));
double **B =           i_mZ(R2,C3);
double **C =           i_mZ(R2,C3);

  printf(" A : ");
  p_mZ(A,S4,P0,S3,P0,C6);

  ca_A_mZ(a,B);  
  printf(" B : ");
  p_mZ(B,S4,P0,S3,P0,C6);  
  
  printf(" C : ");
  p_mZ(C,S4,P0,S3,P0,C6);
  
  printf(" C : ");
  p_mZ(ca_A_mZ(a,C),S4,P0,S3,P0,C6);

  printf(" C : ");
  p_mZ(C,S4,P0,S3,P0,C6);
  
  f_mZ(A);
  f_mZ(B);
  f_mZ(C);
  
  stop();

  return 0;
}