Télécharger maxim4.eso

Retour à la liste

Numérotation des lignes :

  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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMCHPOI
  15. REAL*8 COEFP,COEFPI
  16. *
  17. CHARACTER*4 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. SEGDES,MPOVAL
  41. SEGDES,MSOUPO
  42. 100 CONTINUE
  43. *
  44. SEGDES,MCHPOI
  45. RETURN
  46. END
  47.  
  48.  
  49.  
  50.  

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