MINICERN/mathlib/gen/d/monito.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:21  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE MONITO (S,M,NN3,IT,EPS,GT,AKAPPA,ALAMBD)
  11 C-----ITERATION PROGRESS OUTPUT
  12 #include "d510pl.inc"
  13 #include "d510si.inc"
  14 #include "d510ui.inc"
  15 #include "d510uo.inc"
  16       IF (IT) 11,3,1
  17  1    IF (NN3) 4,4,2
  18  2    IF (NM) 3,4,4
  19  3    IF (ENDFLG) 4,12,4
  20 C-----PRINTER CARRIAGE CONTROL
  21  4    I1=6
  22       IF (M.GT.6) I1=5
  23       IF (M.GT.12) I1=4
  24       IF (M.GT.23) I1=1
  25 #if !defined(CERNLIB_CDC)
  26 C   NON-ANSI CARRIAGE CONTROL SUPPRESSED ON IBM
  27       IF(I1.GT.1) I1=0
  28 #endif
  29       WRITE(6,19) I1,NN3,S,GT,AKAPPA,ALAMBD
  30       DO 10 I=1,M
  31       IF (PL0(I)) 9,9,5
  32  5    IF (PL (I)) 8,7,6
  33  6    CONTINUE
  34       WRITE(6,20) I,A(I),SIGMA(I),R(I)
  35       GO TO 10
  36  7    WRITE(6,21) I,A(I),SIGMA(I),R(I)
  37       GO TO 10
  38  8    IF (PL(I).GE.-1.) GO TO 7
  39       WRITE(6,22) I,A(I)
  40       GO TO 10
  41  9    WRITE(6,23) I,A(I)
  42  10   CONTINUE
  43  11   NM=-IT
  44  12   NM=NM+1
  45       IF (ENDFLG) 13,14,14
  46  13   I=-ENDFLG
  47       GO TO (15,16,17,18), I
  48  14   RETURN
  49  15   IF(IT.GE.0) WRITE(6,24)
  50       GO TO 14
  51  16   IF(IT.GE.0) WRITE(6,25)
  52       GO TO 14
  53  17   IF(IT.GE.0) WRITE(6,26)
  54       GO TO 14
  55  18   IF(IT.GE.0) WRITE(6,27)
  56       GO TO 14
  57 C
  58  19   FORMAT(I1,'ITERATION NO.',I3,', S= ',E12.5,', EC = ',E12.5,
  59      +', KAPPA= ',E12.5,', LAMBDA= ',E12.5//1X,2(6X,'PARAMETER'),
  60      +9X,'STANDARD',8X,'CORRELATION'/9X,'NUMBER',9X,'VALUE',11X,
  61      +'DEVIATION',9X,'FACTOR'/)
  62  20   FORMAT(9X,I3,4X,3(5X,E12.5))
  63  21   FORMAT(9X,I3,4X,3(5X,E12.5),' PARAMETER ON BOUNDARY')
  64  22   FORMAT(9X,I3,9X,E12.5,5X,'INFINITE ERROR ESTIMATED')
  65  23   FORMAT(9X,I3,9X,E12.5,5X,'THIS PARAMETER FIXED')
  66  24   FORMAT('0MINIMISATION TERMINATED: NO FURTHER DECREASE IN S',
  67      + ' IS OBTAINABLE'/'1')
  68  25   FORMAT('0MINIMISATION TERMINATED: INFINITE ERRORS ESTIMATED'/'1')
  69  26   FORMAT('0MINIMISATION TERMINATED: ITERATION LIMIT REACHED'/'1')
  70  27   FORMAT('0MINIMISATION TERMINATED: NEGATIVE OR ZERO Y ENCOUNTERED',
  71      + ' AS LOGARITHMIC ARGUMENT',/'1')
  72       END