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. -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.  
  48.  

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