/* ------------------------------------ */
/*  Save as :   cof_r.c                 */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mR(i_mR(r,r),99.);

int minor_r = rp_I(r);
int minor_c = rp_I(r);

  clrscrn();
  printf(" A :");
  p_mR(A,5,0,6);

  printf(" cofactor(%d,%d) = %+.3f\n",
               minor_r,
               minor_c,
               cofactor_R(A, minor_r, minor_c));

  f_mR(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
do
{
  fun(rp_I(5)+1);

 } while(stop_w());

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */