*=*=*=*= moy2.html =*=*=*=*
SUBROUTINE moy2

SUBROUTINE moy2


      SUBROUTINE moy2(np,px,py,pwx,pwy,pz)

c=======================================================================
c
c   calcul de la moyenne ponderee de deux champs
c   z (i) = [ wx*x(i) + wy*y(i) ] / [ wx + wy ]
c
c=======================================================================

      IMPLICIT NONE
      INTEGER np
      REAL px(np),py(np),pz(np)
      REAL pwx,pwy

      REAL zwx,zwy
      INTEGER i

      zwx=pwx/(pwx+pwy)
      zwy=pwy/(pwx+pwy)

      DO i=1,np
       pz(i)=px(i)*zwx+py(i)*zwy
      ENDDO

      RETURN
      END