[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / d501p2.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:20  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE D501P2(LRP,N,A,B,C,LAMU,PHI,DPHINO,ITER,LFN,MODE,VERS)

************************************************************************
*   LEAMAX, VERSION: 15.03.1993
************************************************************************
*
*   THIS ROUTINE CONTROLS THE PRINTING OF THE PACKAGE LEAMAX.
*
************************************************************************

#include "gen/imp64.inc"
#include "gen/def64.inc"
     +   LAMBDA,LAMU
      LOGICAL LFN,LRP
      CHARACTER VERS*6,TIT(2)*18
      DIMENSION A(*),B(*),C(*),LAMU(*)


      DATA TIT(1),TIT(2) /' ','STANDARD DEVIATION'/

      IF(.NOT.LRP) THEN

       WRITE(6,1030)
       LRP=.TRUE.
      ENDIF

      IF(LFN) THEN
       WRITE(6,1010) 'END:',ITER,PHI,DPHINO
       IF(VERS .EQ. 'DFUNFT') THEN
        WRITE(6,1020) TIT(2)(1:8),TIT(2)(10:18)
       ELSE
        WRITE(6,1020) TIT(1)(1:8),TIT(1)(10:18)
       ENDIF
      ELSE
       WRITE(6,1010) '    ',ITER,PHI,DPHINO
       WRITE(6,1020) TIT(1)(1:8),TIT(1)(10:18)
      ENDIF

      IF(LFN .AND. VERS .EQ. 'DFUNFT') THEN
       WRITE(6,1040) (I,A(I),B(I),LAMU(I),C(I), I=1,N)
      ELSE
       WRITE(6,1050) (I,A(I),B(I),LAMU(I), I=1,N)
      ENDIF

      RETURN

 1010 FORMAT(/6X,A4,' ITERATION',I5,3X,'PHI = ',1PD12.5,6X,
     1       'GNO = ',1PD12.5/)
 1020 FORMAT(12X,'PARAMETER',7X,'PARAMETER',9X,'GRADIENT',
     1       10X,'LAGRANGE',8X,A8/
     2       14X,'NUMBER',10X,'VALUE',28X,'MULTIPLIER',7X,A9/)
 1030 FORMAT(//' ITERATION'//11X,'PHI = VALUE OF OBJECTIVE FUNCTION',
     1        10X,'GNO = NORM OF GRADIENT')
 1040 FORMAT (15X,I3,4X,1PD17.5,1PD17.5,1PD17.5,1PD17.5)
 1050 FORMAT (15X,I3,4X,1PD17.5,1PD17.5,1PD17.5)

      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:20 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE D501P2(LRP,N,A,B,C,LAMU,PHI,DPHINO,ITER,LFN,MODE,VERS)
	11
	12	************************************************************************
	13	* LEAMAX, VERSION: 15.03.1993
	14	************************************************************************
	15	*
	16	* THIS ROUTINE CONTROLS THE PRINTING OF THE PACKAGE LEAMAX.
	17	*
	18	************************************************************************
	19
	20	#include "gen/imp64.inc"
	21	#include "gen/def64.inc"
	22	+ LAMBDA,LAMU
	23	LOGICAL LFN,LRP
	24	CHARACTER VERS6,TIT(2)18
	25	DIMENSION A(),B(),C(),LAMU()
	26
	27
	28	DATA TIT(1),TIT(2) /' ','STANDARD DEVIATION'/
	29
	30	IF(.NOT.LRP) THEN
	31
	32	WRITE(6,1030)
	33	LRP=.TRUE.
	34	ENDIF
	35
	36	IF(LFN) THEN
	37	WRITE(6,1010) 'END:',ITER,PHI,DPHINO
	38	IF(VERS .EQ. 'DFUNFT') THEN
	39	WRITE(6,1020) TIT(2)(1:8),TIT(2)(10:18)
	40	ELSE
	41	WRITE(6,1020) TIT(1)(1:8),TIT(1)(10:18)
	42	ENDIF
	43	ELSE
	44	WRITE(6,1010) ' ',ITER,PHI,DPHINO
	45	WRITE(6,1020) TIT(1)(1:8),TIT(1)(10:18)
	46	ENDIF
	47
	48	IF(LFN .AND. VERS .EQ. 'DFUNFT') THEN
	49	WRITE(6,1040) (I,A(I),B(I),LAMU(I),C(I), I=1,N)
	50	ELSE
	51	WRITE(6,1050) (I,A(I),B(I),LAMU(I), I=1,N)
	52	ENDIF
	53
	54	RETURN
	55
	56	1010 FORMAT(/6X,A4,' ITERATION',I5,3X,'PHI = ',1PD12.5,6X,
	57	1 'GNO = ',1PD12.5/)
	58	1020 FORMAT(12X,'PARAMETER',7X,'PARAMETER',9X,'GRADIENT',
	59	1 10X,'LAGRANGE',8X,A8/
	60	2 14X,'NUMBER',10X,'VALUE',28X,'MULTIPLIER',7X,A9/)
	61	1030 FORMAT(//' ITERATION'//11X,'PHI = VALUE OF OBJECTIVE FUNCTION',
	62	1 10X,'GNO = NORM OF GRADIENT')
	63	1040 FORMAT (15X,I3,4X,1PD17.5,1PD17.5,1PD17.5,1PD17.5)
	64	1050 FORMAT (15X,I3,4X,1PD17.5,1PD17.5,1PD17.5)
65
66	END