/* ------------------------------------ */
/*  Save as :   cof_z.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mZ(i_mZ(r,r),9.);

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

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

  printf(" cofactor(%d,%d) = ", minor_r, minor_c);

  minor_c = minor_c*C2-C1;
  /* col*C2 : a number has two columns    */                         
  /*    -C1 : The real part of the number */

  p_Z(cofactor_Z(A,minor_r,minor_c),5,0,5,0);printf("\n\n");
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(5)+1);

} while(stop_w());

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