[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / usrtrm.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:03:23  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      LOGICAL FUNCTION USRTRM(ITER)
      COMMON /ANSWER/ FINTGL,SPRD,DUMMY(5),NRGN,MAXRGN /FUNN/ NFUN,MO(2)
      COMMON /Z0001/ ERR,NMIN,MCOUNT /PRINT/ IPR /ZEETRM/ ITRMF
      INTEGER COUNT
      SAVE COUNT
      DATA FAC /1.0/
      DATA COUNT /0/
      USRTRM=.FALSE.
      IF(ITRMF.EQ.0) RETURN
      ERROR=ABS(ERR)
      IF(ERR.GT.0.0) ERROR=ERROR*FINTGL
      NPR=SPRD*FAC/ERROR+0.5
      IF(NPR.GT.1999) RETURN
      N=NFUN+NPR*NRGN
      IF(N.GE.NMIN) GOTO 10
      NMIN=N
      COUNT=0
      RETURN
 10   COUNT=COUNT+1
      IF(COUNT.GT.MCOUNT) USRTRM=.TRUE.
      IF(.NOT.(USRTRM).OR.IPR.LE.0) GOTO 30
      WRITE(6,20)
 20   FORMAT('0--- DIVON --- PARTITIONING TERMINATION.')
 30   RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:03:23 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	LOGICAL FUNCTION USRTRM(ITER)
	11	COMMON /ANSWER/ FINTGL,SPRD,DUMMY(5),NRGN,MAXRGN /FUNN/ NFUN,MO(2)
	12	COMMON /Z0001/ ERR,NMIN,MCOUNT /PRINT/ IPR /ZEETRM/ ITRMF
	13	INTEGER COUNT
	14	SAVE COUNT
	15	DATA FAC /1.0/
	16	DATA COUNT /0/
	17	USRTRM=.FALSE.
	18	IF(ITRMF.EQ.0) RETURN
	19	ERROR=ABS(ERR)
	20	IF(ERR.GT.0.0) ERROR=ERROR*FINTGL
	21	NPR=SPRD*FAC/ERROR+0.5
	22	IF(NPR.GT.1999) RETURN
	23	N=NFUN+NPR*NRGN
	24	IF(N.GE.NMIN) GOTO 10
	25	NMIN=N
	26	COUNT=0
	27	RETURN
	28	10 COUNT=COUNT+1
	29	IF(COUNT.GT.MCOUNT) USRTRM=.TRUE.
	30	IF(.NOT.(USRTRM).OR.IPR.LE.0) GOTO 30
	31	WRITE(6,20)
	32	20 FORMAT('0--- DIVON --- PARTITIONING TERMINATION.')
	33	30 RETURN
	34	END