Télécharger la plaquette Cast3M


fr en

Télécharger maxim4.eso

Retour à la liste

Numérotation des lignes : 

maxim4

  1. C MAXIM4    SOURCE    CB215821  20/11/25    13:34:09     10792          
  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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMCHPOI
  15.       REAL*8 COEFP,COEFPI
  16. *
  17.       CHARACTER*(LOCOMP) ICOMP
  18. *
  19.       SEGACT MCHPOI
  20.       DO 100 IB100=1,IPCHP(/1)
  21.           MSOUPO = IPCHP(IB100)
  22.           SEGACT,MSOUPO
  23.           NC = NOCOMP(/2)
  24.           MPOVAL = IPOVAL
  25.           SEGACT,MPOVAL*MOD
  26.           N = VPOCHA(/1)
  27.           DO 120 IB120=1,NC
  28.               ICOMP=NOCOMP(IB120)
  29.               IF(ICOMP.EQ.'P   ') THEN
  30.                   COEF= COEFP
  31.               ELSE IF (ICOMP.EQ.'PI  ') THEN
  32.                   COEF= COEFPI
  33.               ELSE
  34.                   GOTO 120
  35.               ENDIF
  36.               DO 130 IB130=1,N
  37.                   VPOCHA(IB130,IB120)=VPOCHA(IB130,IB120)*COEF
  38.   130         CONTINUE
  39.   120     CONTINUE
  40.   100 CONTINUE
  41.       RETURN
  42.       END
  43.  
  44.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales