Esope source files

   1 : C MAXIM4    SOURCE    PV        07/11/23    21:17:50     5978           
   2 :       SUBROUTINE MAXIM4 (MCHPOI,COEFP,COEFPI)
   3 : * ---------------------------------------------------------------------
   4 : *   enleve sur un chpoint la normalisation des composantes p et pi
   5 : *   farvacque. juin 1986
   6 : *   les valeurs du chpoint sont modifiees
   7 : *
   8 : *----------------------------------------------------------------------
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8 (a-h,o-z)
  11 : -INC CCOPTIO
  12 : -INC SMCHPOI
  13 :       REAL*8 COEFP,COEFPI
  14 : *
  15 :       CHARACTER*4 ICOMP
  16 : *
  17 :       SEGACT MCHPOI
  18 :       DO 100 IB100=1,IPCHP(/1)
  19 :           MSOUPO = IPCHP(IB100)
  20 :           SEGACT,MSOUPO
  21 :           NC = NOCOMP(/2)
  22 :           MPOVAL = IPOVAL
  23 :           SEGACT,MPOVAL*MOD
  24 :           N = VPOCHA(/1)
  25 :           DO 120 IB120=1,NC
  26 :               ICOMP=NOCOMP(IB120)
  27 :               IF(ICOMP.EQ.'P   ') THEN
  28 :                   COEF= COEFP
  29 :               ELSE IF (ICOMP.EQ.'PI  ') THEN
  30 :                   COEF= COEFPI
  31 :               ELSE
  32 :                   GOTO 120
  33 :               ENDIF
  34 :               DO 130 IB130=1,N
  35 :                   VPOCHA(IB130,IB120)=VPOCHA(IB130,IB120)*COEF
  36 :   130         CONTINUE
  37 :   120     CONTINUE
  38 :           SEGDES,MPOVAL
  39 :           SEGDES,MSOUPO
  40 :   100 CONTINUE
  41 : *
  42 :       SEGDES,MCHPOI
  43 :       RETURN
  44 :       END
  45 :  
  46 :  
  47 :