[Math-atlas-commits] CVS: AtlasBase/Clint atlas-lvl2.base, 1.49, 1.50

[R. C. W. <rw...@us...>]

Update of /cvsroot/math-atlas/AtlasBase/Clint
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22736/Clint

Modified Files:
	atlas-lvl2.base 
Log Message:


Index: atlas-lvl2.base
===================================================================
RCS file: /cvsroot/math-atlas/AtlasBase/Clint/atlas-lvl2.base,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** atlas-lvl2.base	22 May 2009 17:18:47 -0000	1.49
--- atlas-lvl2.base	22 May 2009 22:54:41 -0000	1.50
***************
*** 11826,11829 ****
--- 11826,11844 ----
   * on rest of NU-wide column panel.
   */
+ void GenKernelSelect(ATL_r1node_t *rest, ATL_r1node_t *def)
+ {
+    if (!rest || rest->ID == def->ID)
+    {
+ #if 0
+       fprintf(fpout, "
+ #define GetKernel(kptr_, M_, N_, A_, lda_) (kptr_) = ATL_UGERK;
+ { \
+    if (lda%ATL_LDAMUL == 0)
+       kptr = ATL_%cgerk_
+ 
+ }
+ #endif
+    }
+ }
  enum R1H_ACTION {R1H_ALL, R1H_GER}
  void PrintUsage(char *name, int ierr, char *flag)