[Scipy-svn] r2090 - trunk/Lib/optimize/cobyla
scipy-svn at scipy.org
scipy-svn at scipy.org
Wed Jul 12 23:11:35 EDT 2006
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
More information about the Scipy-svn
mailing list