MINICERN/mathlib/gen/d/scal.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 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