This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / d501p2.F
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 VERS*6,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