/* ------------------------------------ */
/*  Save as :   fpe_mz.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A   = rE_mZ(i_mZ(r,c), 99, 1E-3 );
double **B   = rE_mZ(i_mZ(r,c), 99, 1E-3 );
double **AplsB =     i_mZ(r,c);

  clrscrn();

  printf(" See the file \"aamatrix.txt\" \n\n");
  
  fpE_mZ(A,"\n\n\n\nA :", 12,3, 11,3, C3);
  fpE_mZ(B,        "B :", 12,3, 11,3, C3);
  
  fpE_mZ(add_mZ(A,B,AplsB),"AplsB :",12,3, 11,3, C3);
  
  f_mZ(A);
  f_mZ(B);
  f_mZ(AplsB);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
        fun(rp_I(R4),rp_I(C3));
        
    while(stop_w());
        
  return 0;
}

FILE * fp = fopen("aamatrix.txt","a");