[Math-atlas-commits] CVS: AtlasBase/Clint atlas-tst.base, 1.14, 1.15 atlconf.base, 1.134, 1.135

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

Update of /cvsroot/math-atlas/AtlasBase/Clint
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv7218/Clint

Modified Files:
	atlas-tst.base atlconf.base 
Log Message:


Index: atlas-tst.base
===================================================================
RCS file: /cvsroot/math-atlas/AtlasBase/Clint/atlas-tst.base,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** atlas-tst.base	7 May 2007 17:10:19 -0000	1.14
--- atlas-tst.base	5 Jul 2007 22:34:55 -0000	1.15
***************
*** 1716,1736 ****
  
     #if defined(StringSunStyle)
!       F77GEMM(&cta, &ctb, &F77M, &F77N, &F77K, SADD alpha, A, &lda, B, &F77ldb, 
!               SADD beta, C, &F77ldc, ONE, ONE);
     #elif defined(StringCrayStyle)
        fta = ATL_C2F_TransChar(cta);
        ftb = ATL_C2F_TransChar(ctb);
!       F77GEMM(fta, ftb, &F77M, &F77N, &F77K, SADD alpha, A, &lda, B, &F77ldb, 
                SADD beta, C, &F77ldc);
     #elif defined(StringStructVal)
        fta.len = ftb.len = 1;
        fta.cp = &cta; ftb.cp = &ctb;
!       F77GEMM(fta, ftb, &F77M, &F77N, &F77K, SADD alpha, A, &lda, B, &F77ldb, 
                SADD beta, C, &F77ldc);
     #elif defined(StringStructPtr)
        fta.len = ftb.len = 1;
        fta.cp = &cta; ftb.cp = &ctb;
!       F77GEMM(&fta, &ftb, &F77M, &F77N, &F77K, SADD alpha, A, &lda, B, &F77ldb, 
!               SADD beta, C, &F77ldc);
     #else
        fprintf(stderr, "\n\nF77/C interface not defined!!\n\n");
--- 1716,1736 ----
  
     #if defined(StringSunStyle)
!       F77GEMM(&cta, &ctb, &F77M, &F77N, &F77K, SADD alpha, A, &F77lda, 
!               B, &F77ldb, SADD beta, C, &F77ldc, ONE, ONE);
     #elif defined(StringCrayStyle)
        fta = ATL_C2F_TransChar(cta);
        ftb = ATL_C2F_TransChar(ctb);
!       F77GEMM(fta, ftb, &F77M, &F77N, &F77K, SADD alpha, A, &F77lda, B, &F77ldb,
                SADD beta, C, &F77ldc);
     #elif defined(StringStructVal)
        fta.len = ftb.len = 1;
        fta.cp = &cta; ftb.cp = &ctb;
!       F77GEMM(fta, ftb, &F77M, &F77N, &F77K, SADD alpha, A, &F77lda, B, &F77ldb,
                SADD beta, C, &F77ldc);
     #elif defined(StringStructPtr)
        fta.len = ftb.len = 1;
        fta.cp = &cta; ftb.cp = &ctb;
!       F77GEMM(&fta, &ftb, &F77M, &F77N, &F77K, SADD alpha, A, &F77lda, 
!               B, &F77ldb, SADD beta, C, &F77ldc);
     #else
        fprintf(stderr, "\n\nF77/C interface not defined!!\n\n");

Index: atlconf.base
===================================================================
RCS file: /cvsroot/math-atlas/AtlasBase/Clint/atlconf.base,v
retrieving revision 1.134
retrieving revision 1.135
diff -C2 -d -r1.134 -r1.135
*** atlconf.base	3 Jul 2007 16:32:12 -0000	1.134
--- atlconf.base	5 Jul 2007 22:34:55 -0000	1.135
***************
*** 3042,3048 ****
     i += sprintf(ln+i, "| fgrep SUCCESS");
     iret = CmndOneLine(NULL, ln, res);
     if (!iret)
        iret = !strstr(res, "SUCCESS");
!    if (verb > 1)
        fprintf(stderr, "   %s %s : %s!\n", comp, flag, 
                iret ? "FAILURE":"SUCCESS");
--- 3042,3050 ----
     i += sprintf(ln+i, "| fgrep SUCCESS");
     iret = CmndOneLine(NULL, ln, res);
+    if (verb > 1)
+       fprintf(stderr, "cmnd=%s\n", ln);
     if (!iret)
        iret = !strstr(res, "SUCCESS");
!    if (verb)
        fprintf(stderr, "   %s %s : %s!\n", comp, flag, 
                iret ? "FAILURE":"SUCCESS");