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

int firstc = C1;
int lastc  = C1;

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

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

  clrscrn();

  printf(" A[R%d,C%d] : \n",rsize_mR(A),csize_mR(A));
  p_mR(A,4,0,C4);

  p2b_mR(A,C4);

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

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