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

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

  printf(" Adjoint :");
  p_mR(adjoint_mR(A,Adjoint),6,0,6);

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

  srand(time(&t));
do
{
  fun(rp_I(4)+C1);

} while(stop_w());

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