C ANCHPO    SOURCE    CB215821  25/04/23    21:15:02     12247          
      SUBROUTINE ANCHPO(IPO1,NOCOM,IRET)
C=======================================================================
C
C     MISE A ZERO DES TERMES SUR UNE COMPOSANTE DONNEE
C          DANS UN CHPOINT
C     LE CHPOINT RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
C  ENTREES
C     IPO1=POINTEUR SUR LE CHPOINT
C     NOCOM=NOM DE COMPOSANTE
C  SORTIES
C     IRET=POINTEUR SUR LE CHAMPS RESULTANT
C
C     J  BROCHARD  NOVEMBRE 85
C
C=======================================================================

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC SMCHPOI
-INC SMCOORD
-INC PPARAM
-INC CCOPTIO
      
      CHARACTER*(*) NOCOM

      MCHPO1=IPO1
      SEGACT MCHPO1
      NSOUPO=MCHPO1.IPCHP(/1)
      NAT=MCHPO1.JATTRI(/1)
      SEGINI MCHPOI
      IRET=MCHPOI
      MTYPOI=MCHPO1.MTYPOI
      MOCHDE=MCHPO1.MOCHDE
      IFOPOI=MCHPO1.IFOPOI
      DO 72 IA=1,NSOUPO
        MSOUP1=MCHPO1.IPCHP(IA)
        SEGACT MSOUP1
        NC=MSOUP1.NOCOMP(/2)
        SEGINI MSOUPO
        IPCHP(IA)=MSOUPO
        IGEOC=MSOUP1.IGEOC
        DO 73 IB=1,NC
          NOCOMP(IB)=MSOUP1.NOCOMP(IB)
          NOHARM(IB)=MSOUP1.NOHARM(IB)
  73    CONTINUE
        MPOVA1=MSOUP1.IPOVAL
        SEGACT MPOVA1
        N=MPOVA1.VPOCHA(/1)
        NC=MPOVA1.VPOCHA(/2)
        SEGINI MPOVAL
        IPOVAL=MPOVAL
        DO 75 IC=1,NC
          IF (NOCOMP(IC).NE.NOCOM) GOTO 755
          DO 751 IB=1,N
            VPOCHA(IB,IC)=0.D0
  751     CONTINUE
          GOTO 75
  755     CONTINUE
          DO 756 IB=1,N
            VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC)
  756     CONTINUE
  75    CONTINUE
  72  CONTINUE
      END