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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:21  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE MONITO (S,M,NN3,IT,EPS,GT,AKAPPA,ALAMBD)
C-----ITERATION PROGRESS OUTPUT
#include "d510pl.inc"
#include "d510si.inc"
#include "d510ui.inc"
#include "d510uo.inc"
      IF (IT) 11,3,1
 1    IF (NN3) 4,4,2
 2    IF (NM) 3,4,4
 3    IF (ENDFLG) 4,12,4
C-----PRINTER CARRIAGE CONTROL
 4    I1=6
      IF (M.GT.6) I1=5
      IF (M.GT.12) I1=4
      IF (M.GT.23) I1=1
#if !defined(CERNLIB_CDC)
C   NON-ANSI CARRIAGE CONTROL SUPPRESSED ON IBM
      IF(I1.GT.1) I1=0
#endif
      WRITE(6,19) I1,NN3,S,GT,AKAPPA,ALAMBD
      DO 10 I=1,M
      IF (PL0(I)) 9,9,5
 5    IF (PL (I)) 8,7,6
 6    CONTINUE
      WRITE(6,20) I,A(I),SIGMA(I),R(I)
      GO TO 10
 7    WRITE(6,21) I,A(I),SIGMA(I),R(I)
      GO TO 10
 8    IF (PL(I).GE.-1.) GO TO 7
      WRITE(6,22) I,A(I)
      GO TO 10
 9    WRITE(6,23) I,A(I)
 10   CONTINUE
 11   NM=-IT
 12   NM=NM+1
      IF (ENDFLG) 13,14,14
 13   I=-ENDFLG
      GO TO (15,16,17,18), I
 14   RETURN
 15   IF(IT.GE.0) WRITE(6,24)
      GO TO 14
 16   IF(IT.GE.0) WRITE(6,25)
      GO TO 14
 17   IF(IT.GE.0) WRITE(6,26)
      GO TO 14
 18   IF(IT.GE.0) WRITE(6,27)
      GO TO 14
C
 19   FORMAT(I1,'ITERATION NO.',I3,', S= ',E12.5,', EC = ',E12.5,
     +', KAPPA= ',E12.5,', LAMBDA= ',E12.5//1X,2(6X,'PARAMETER'),
     +9X,'STANDARD',8X,'CORRELATION'/9X,'NUMBER',9X,'VALUE',11X,
     +'DEVIATION',9X,'FACTOR'/)
 20   FORMAT(9X,I3,4X,3(5X,E12.5))
 21   FORMAT(9X,I3,4X,3(5X,E12.5),' PARAMETER ON BOUNDARY')
 22   FORMAT(9X,I3,9X,E12.5,5X,'INFINITE ERROR ESTIMATED')
 23   FORMAT(9X,I3,9X,E12.5,5X,'THIS PARAMETER FIXED')
 24   FORMAT('0MINIMISATION TERMINATED: NO FURTHER DECREASE IN S',
     + ' IS OBTAINABLE'/'1')
 25   FORMAT('0MINIMISATION TERMINATED: INFINITE ERRORS ESTIMATED'/'1')
 26   FORMAT('0MINIMISATION TERMINATED: ITERATION LIMIT REACHED'/'1')
 27   FORMAT('0MINIMISATION TERMINATED: NEGATIVE OR ZERO Y ENCOUNTERED',
     + ' AS LOGARITHMIC ARGUMENT',/'1')
      END
Commit	Line	Data
fe4da5cc	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