Automatically Tuned Linear Algebra Soft.

Update of /cvsroot/math-atlas/AtlasBase/Antoine
In directory usw-pr-cvs1:/tmp/cvs-serv13879/Antoine

Modified Files:
	atlbinblas.base atlpt3blas.base 
Log Message:
bug fixes

Index: atlbinblas.base
===================================================================
RCS file: /cvsroot/math-atlas/AtlasBase/Antoine/atlbinblas.base,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** atlbinblas.base	2001/09/26 21:01:38	1.3
--- atlbinblas.base	2001/12/03 17:33:19	1.4
***************
*** 50,54 ****
  #endif
   
! #define    ATLAS_DEBUG
  /*
   * =====================================================================
--- 50,54 ----
  #endif
   
! /* #define    ATLAS_DEBUG */
  /*
   * =====================================================================
***************
*** 4519,4522 ****
--- 4519,4525 ----
     *NALPHA   = -1;
     *NINCX    = *NINCY = -1;
+    fprintf(stdout, "\n\n");
+    for (i=0; i < NARGS; i++) fprintf(stdout, "%s ", ARGS[i]);
+    fprintf(stdout, "\n\n");
   
     for( i = 1; i < NARGS; )
***************
*** 4810,4814 ****
  #endif
  
! #define    ATLAS_DEBUG
  /*
   * =====================================================================
--- 4813,4817 ----
  #endif
  
! /* #define    ATLAS_DEBUG */
  /*
   * =====================================================================
***************
*** 9901,9904 ****
--- 9904,9910 ----
     *NINCX    = *NINCY = -1;
  
+    fprintf(stdout, "\n\n");
+    for (i=0; i < NARGS; i++) fprintf(stdout, "%s ", ARGS[i]);
+    fprintf(stdout, "\n\n");
     for( i = 1; i < NARGS; )
     {
***************
*** 10369,10373 ****
  #endif
   
! #define    ATLAS_DEBUG
  /*
   * =====================================================================
--- 10375,10379 ----
  #endif
   
! /* #define    ATLAS_DEBUG */
  /*
   * =====================================================================
***************
*** 13679,13682 ****
--- 13685,13691 ----
     *NALPHA = *NBETA = -1;
  
+    fprintf(stdout, "\n\n");
+    for (i=0; i < NARGS; i++) fprintf(stdout, "%s ", ARGS[i]);
+    fprintf(stdout, "\n\n");
     for( i = 1; i < NARGS; )
     {
***************
*** 14068,14072 ****
  #endif
   
! #define    ATLAS_DEBUG
  /*
   * =====================================================================
--- 14077,14081 ----
  #endif
   
! /* #define    ATLAS_DEBUG */
  /*
   * =====================================================================
***************
*** 16070,16073 ****
--- 16079,16085 ----
     *LDA_IS_M = 0;
  
+    fprintf(stdout, "\n\n");
+    for (i=0; i < NARGS; i++) fprintf(stdout, "%s ", ARGS[i]);
+    fprintf(stdout, "\n\n");
     for (i=1; i < nargs ; )
     {

Index: atlpt3blas.base
===================================================================
RCS file: /cvsroot/math-atlas/AtlasBase/Antoine/atlpt3blas.base,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** atlpt3blas.base	2001/08/30 21:54:54	1.1.1.1
--- atlpt3blas.base	2001/12/03 17:33:19	1.2
***************
*** 444,448 ****
     else
     {
!       splitM = ATL_1dsplit( NTHREADS, N, NB, &ntm1, &ntm2, &m1, &m2, &rm );
  
        if( splitM == Atlas1dSplit )
--- 444,448 ----
     else
     {
!       splitM = ATL_1dsplit( NTHREADS, M, NB, &ntm1, &ntm2, &m1, &m2, &rm );
  
        if( splitM == Atlas1dSplit )