sub prnt.for

来自「非线性回归问题SQP解法」· FOR 代码 · 共 20 行

	SUBROUTINE PRNT(N,ME,MI,M,X,U,OFUN,CFUN,PPRA,PFUN,IT)
	DOUBLE PRECISION X(N),U(M),OFUN,CFUN(M),PPRA,PFUN
	WRITE(6,100) IT
100	FORMAT(/'* ITERATION',I5,'*')
	WRITE(6,110)PFUN,PPRA
110	FORMAT('PENALTY FUNCTION =',F12.5
     *		' (PENALTY PARAMETER =',F10.3,')')
      WRITE (6,120) OFUN
120	FORMAT('OBJECTIVE FUNCTION =',F12.5)
	WRITE(6,130) (CFUN(I),I=1,ME)
130	FORMAT('EQUALITY CONSTRAINTS:'/(5('',F12.5)))
	WRITE(6,140) (CFUN(I),I=ME+1,ME+MI)
140	FORMAT('INEQUALITY CONSTRAINTS:'/(5('',F12.5)))
	WRITE(6,150) (X(J),J=1,N)
150	FORMAT('VARIABLES:'/(5('',F12.5)))
	WRITE (6,160) (U(I),I=1,ME+MI)		
160	FORMAT('LAGRANGE MULTIPLIERS:'/(5('',F12.5)))
	RETURN
	END