/* ------------------------------------ */
/*  Save as : p03a.c                    */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void p2_mR(
double **A,
int     Cx
)
{
int r;
int c;

int firstc;
int lastc;

int tempc  = C0;

while(tempc<A[C_SIZE][C0])
     {
		 
/*   Select the last column  to draw  */
	
	  firstc = tempc;
	  
      tempc += Cx;       
      
      if(tempc<A[C_SIZE][C0])
      
           lastc  = tempc;
      else                 
           lastc  = A[C_SIZE][C0];

/*          Draw the Cx columns         */

 	  for(r=R0; r<A[R_SIZE][C0]; r++)
         {        
          
 	      for (c=firstc; c<lastc; c++)
 	      
               printf("%+4.0f ",A[r][c]); 
               
           printf("\n");           
          }
          
/* A line between each part of the matrix  */     
     
      printf("\n");
     }
}
/* ------------------------------------ */
void fun(int r,int c)
{
double **A     = r_mR(i_mR(r,c),9);

  clrscrn();

  printf(" A1[R%d,C%d] : \n",rsize_mR(A),csize_mR(A));
  pall_mR(A,4,0,C9);
  
  printf(" A2[R%d,C%d] : \n",rsize_mR(A),csize_mR(A));
  p2_mR(A,C9);

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

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