C QUELCH    SOURCE    PV        09/03/12    21:32:09     6325
      SUBROUTINE QUELCH(IPMELV,IRR)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*______________________________________________________________________
*
*  ON EXAMINE LE CHAMP POUR VOIR S'IL EST CONSTANT /ELEMENT OU PAS
*
*   ENTREES :
*    IPMELV = POINTEUR SUR UN SEGMENT MELVAL
*
*   SORTIES :
*   IRR     = 0 SI LE CHAMP EST CONSTANT ,=1 SINON
*
*   P DOWLATYARI JUIN 92
*
****************************************************************************
-INC SMCHAML
-INC CCREEL
*
      IRR=0
      IF(IPMELV.NE.0)THEN
       MELVAL=IPMELV
       NBPTE1=VELCHE(/1)
       NBPTE2=IELCHE(/1)
       IF(NBPTE2.NE.0)THEN
         IF(NBPTE2.EQ.1)THEN
            IRR=0
         ELSE
            IRR=1
         ENDIF
       ELSEIF(NBPTE1.NE.0)THEN
         IF(NBPTE1.EQ.1)THEN
             IRR=0
         ELSE
             NEL=VELCHE(/2)
             DO 10 IB=1,NEL
               VAL=0.D0
               DO 20 IGAU=1,NBPTE1
                  VAL=VAL+VELCHE(IGAU,IB)
  20           CONTINUE
               VALM=VAL/NBPTE1
               xtest=abs(valm * xzprec)
               DO 30  IGAU=1,NBPTE1
                  DELTA=ABS(VELCHE(IGAU,IB)-VALM)
                  IF(DELTA.GT.xtest)THEN
                     IRR=1
                     RETURN
                  ENDIF
  30           CONTINUE
  10       CONTINUE
           IRR=0
         ENDIF
       ENDIF
      ENDIF
      RETURN
      END