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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMCHPOI
  14. XRET=0.D0
  15. MCHPOI=ICH1
  16. SEGACT MCHPOI
  17. NSOUPO=IPCHP(/1)
  18. DO 1 ISOU=1,NSOUPO
  19. MSOUPO=IPCHP(ISOU)
  20. SEGACT MSOUPO
  21. MPOVAL=IPOVAL
  22. SEGACT MPOVAL
  23. N=VPOCHA(/1)
  24. NC=VPOCHA(/2)
  25. DO 2 IC=1,NC
  26. IF(NOCOMP(IC).EQ.'LX ') GOTO 2
  27. IF(NOCOMP(IC).EQ.'FLX ') GOTO 2
  28. DO 5 I2=1,N
  29. XRET=XRET + (VPOCHA(I2,IC)**2)
  30. 5 CONTINUE
  31. 2 CONTINUE
  32. 1 CONTINUE
  33. END
  34.  
  35.  
  36.  
  37.  

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