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