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

[scipy-svn at scipy.org]

Author: oliphant
Date: 2006-07-12 22:11:33 -0500 (Wed, 12 Jul 2006)
New Revision: 2090

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:05:39 UTC (rev 2089)
+++ trunk/Lib/optimize/cobyla/cobyla2.f	2006-07-13 03:11:33 UTC (rev 2090)
@@ -373,6 +373,10 @@
       IVMD=IDXNEW+N
       CALL TRSTLP (N,M,A,CON,RHO,DX,IFULL,IACT,W(IZ),W(IZDOTA),
      1  W(IVMC),W(ISDIRN),W(IDXNEW),W(IVMD))
+      IF (IPRINT .EQ. 3) THEN
+         PRINT *, '  **DX = ', (DX(I),I=1,N)
+         PRINT *, '  **IACT = ', (IACT(I),I=1,M+1)
+      END IF
       IF (IFULL .EQ. 0) THEN
           TEMP=0.0d0
           DO 380 I=1,N