Télécharger xtx1.eso

Retour à la liste

Numérotation des lignes :

  1. C XTX1 SOURCE PV 19/08/20 21:23:08 10288
  2. SUBROUTINE XTX1(ICH1,XRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C=======================================================================
  6. C APPELE PAR XTX: CALCULE LA NORME XT.X DU CHPOINT ICH1
  7. C EN ELIMINANT LES TERMES EN LX OU EN FLX
  8. C RESULTAT MIS DANS XTX
  9. C=======================================================================
  10. -INC CCOPTIO
  11. -INC SMCHPOI
  12. XRET=0.D0
  13. MCHPOI=ICH1
  14. SEGACT MCHPOI
  15. NSOUPO=IPCHP(/1)
  16. DO 1 ISOU=1,NSOUPO
  17. MSOUPO=IPCHP(ISOU)
  18. SEGACT MSOUPO
  19. MPOVAL=IPOVAL
  20. SEGACT MPOVAL
  21. N=VPOCHA(/1)
  22. NC=VPOCHA(/2)
  23. DO 2 IC=1,NC
  24. IF(NOCOMP(IC).EQ.'LX ') GOTO 2
  25. IF(NOCOMP(IC).EQ.'FLX ') GOTO 2
  26. DO 5 I2=1,N
  27. XRET=XRET + (VPOCHA(I2,IC)**2)
  28. 5 CONTINUE
  29. 2 CONTINUE
  30. 1 CONTINUE
  31. END
  32.  
  33.  
  34.  
  35.  

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