Télécharger la plaquette Cast3M


fr en

Télécharger xtx1.eso

Retour à la liste

Numérotation des lignes : 

xtx1

  1. C XTX1      SOURCE    CB215821  20/11/25    13:43:33     10792          
  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.  
  38.  

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