Télécharger xtx1.eso

Retour à la liste

Numérotation des lignes :

  1. C XTX1 SOURCE PV 18/01/24 21:15:12 9711
  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. IF(NOCOMP(1).EQ.'LX ') GO TO 3
  20. IF(NOCOMP(1).EQ.'FLX ') GO TO 3
  21. MPOVAL=IPOVAL
  22. SEGACT MPOVAL
  23. N=VPOCHA(/1)
  24. NC=VPOCHA(/2)
  25. DO 2 IC=1,NC
  26. DO 2 I2=1,N
  27. XRET=XRET + VPOCHA(I2,IC)*VPOCHA(I2,IC)
  28. 2 CONTINUE
  29. SEGDES MPOVAL
  30. 3 SEGDES MSOUPO
  31. 1 CONTINUE
  32. SEGDES MCHPOI
  33. RETURN
  34. END
  35.  
  36.  
  37.  

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