/* ------------------------------------ */
/*  Save as :   mulr.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R3*(C3*C2)] ={  1,1,   2,1,   3,1,
                         1,1,   2,1,   3,1,
                         1,1,   2,1,   3,1};
                     
double **A = ca_A_mZ(a,i_mZ(R3,C3));
	
nb_Z z = i_Z(10,0);

int r = R2;

 clrscrn();
 
 printf(" A : \n");
 p_mZ(A,5,0,3,0,6);
 
 printf(" multiply row R%d by ",r); 
 p_Z(z,1,0,1,0); 
 printf("\n\n\n");
 
 printf("A : \n");
 p_mZ(mulR_mZ(A,z,r), 5,0, 3,0,C6);

 f_mZ(A);

 stop();

 return 0;
}