C MAXIM4    SOURCE    PV        07/11/23    21:17:50     5978           
      SUBROUTINE MAXIM4 (MCHPOI,COEFP,COEFPI)
* ---------------------------------------------------------------------
*   enleve sur un chpoint la normalisation des composantes p et pi
*   farvacque. juin 1986
*   les valeurs du chpoint sont modifiees
*
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (a-h,o-z)
-INC CCOPTIO
-INC SMCHPOI
      REAL*8 COEFP,COEFPI
*
      CHARACTER*4 ICOMP
*
      SEGACT MCHPOI
      DO 100 IB100=1,IPCHP(/1)
          MSOUPO = IPCHP(IB100)
          SEGACT,MSOUPO
          NC = NOCOMP(/2)
          MPOVAL = IPOVAL
          SEGACT,MPOVAL*MOD
          N = VPOCHA(/1)
          DO 120 IB120=1,NC
              ICOMP=NOCOMP(IB120)
              IF(ICOMP.EQ.'P   ') THEN
                  COEF= COEFP
              ELSE IF (ICOMP.EQ.'PI  ') THEN
                  COEF= COEFPI
              ELSE
                  GOTO 120
              ENDIF
              DO 130 IB130=1,N
                  VPOCHA(IB130,IB120)=VPOCHA(IB130,IB120)*COEF
  130         CONTINUE
  120     CONTINUE
          SEGDES,MPOVAL
          SEGDES,MSOUPO
  100 CONTINUE
*
      SEGDES,MCHPOI
      RETURN
      END