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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:21  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE SCAL (M,ER)
C-----SUBROUTINE SCAL CALCULATES ER=VARIANCE OF THEORETICAL FUNCTION Y
#include "d510pl.inc"
#include "d510si.inc"
      ER=0.
      N=0
      DO 2 J=1,M
      IF (PL(J)) 2,2,1
 1    N=N+1
      DF(N)=DF(J)
 2    CONTINUE
      IF (N.EQ.0) RETURN
      DO 6 I=1,N
      DO 6 L=1,N
      IF (I-L) 3,3,4
 3    K=L*(L-1)/2+I
      GO TO 5
 4    K=I*(I-1)/2+L
 5    ER=ER+Z(K)*DF(I)*DF(L)
 6    CONTINUE
      RETURN
      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 SCAL (M,ER)
	11	C-----SUBROUTINE SCAL CALCULATES ER=VARIANCE OF THEORETICAL FUNCTION Y
	12	#include "d510pl.inc"
	13	#include "d510si.inc"
	14	ER=0.
	15	N=0
	16	DO 2 J=1,M
	17	IF (PL(J)) 2,2,1
	18	1 N=N+1
	19	DF(N)=DF(J)
	20	2 CONTINUE
	21	IF (N.EQ.0) RETURN
	22	DO 6 I=1,N
	23	DO 6 L=1,N
	24	IF (I-L) 3,3,4
	25	3 K=L*(L-1)/2+I
	26	GO TO 5
	27	4 K=I*(I-1)/2+L
	28	5 ER=ER+Z(K)DF(I)DF(L)
	29	6 CONTINUE
	30	RETURN
	31	END