Linear Algebra and the C Language/a0ix

/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A     = rE_mR(i_mR(r,c),999,1E-1);
double **B     = rE_mR(i_mR(r,c),999,1E-1);

  clrscrn();

  printf(" See the files \"a.txt\" \n\n");
  
  fpE_mR(A,"a.txt","\n\n\nA:", S5,P4, C6);
  fpE_mR(B,"a.txt",      "B:", S5,P4, C6);
  
  
  f_mR(A);
  f_mR(B);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
        fun(rp_I(R4)+R3,rp_I(C6)+R4);
        
    while(stop_w());
        
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

                                                                                       
 See the files "a.txt" 


 Press   return to continue
 Press X return to stop