[Scipy-svn] r2091 - trunk/Lib/optimize/cobyla

[scipy-svn at scipy.org]

Author: oliphant
Date: 2006-07-12 22:22:34 -0500 (Wed, 12 Jul 2006)
New Revision: 2091

Modified:
   trunk/Lib/optimize/cobyla/cobyla2.f
Log:
More printing...

Modified: trunk/Lib/optimize/cobyla/cobyla2.f
===================================================================
--- trunk/Lib/optimize/cobyla/cobyla2.f	2006-07-13 03:11:33 UTC (rev 2090)
+++ trunk/Lib/optimize/cobyla/cobyla2.f	2006-07-13 03:22:34 UTC (rev 2091)
@@ -287,12 +287,10 @@
       IF (VSIG(J) .LT. PARSIG .OR. VETA(J) .GT. PARETA) IFLAG=0
   260 CONTINUE
       IF (IPRINT .EQ. 3) THEN
+         print *, '  SIMI = ', ((SIMI(I,J),I=1,N),J=1,N)
+         print *, '   SIM = ', ((SIM(I,J),I=1,N),J=1,N)
          PRINT *, '  VSIG = ', (VSIG(J),J=1,N), ' -- ', PARSIG
-      END IF
-      IF (IPRINT .EQ. 3) THEN
          PRINT *, '  VETA = ', (VETA(J),J=1,N), ' -- ', PARETA
-      END IF
-      IF (IPRINT .EQ. 3) THEN
          PRINT *, '  IBRNCH, IFLAG = ', IBRNCH, IFLAG
       END IF
 C