C XTX1      SOURCE    CHAT      05/01/13    04:15:29     5004           
      SUBROUTINE XTX1(ICH1,XRET)                                                
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
C=======================================================================        
C   APPELE PAR XTX: CALCULE LA NORME XT.X DU CHPOINT ICH1                       
C                 EN ELIMINANT LES TERMES EN LX                                 
C                   RESULTAT MIS DANS XTX                                       
C=======================================================================        
-INC CCOPTIO                                                                    
-INC SMCHPOI                                                                    
      XRET=0.D0                                                                 
      MCHPOI=ICH1                                                               
      SEGACT MCHPOI                                                             
      NSOUPO=IPCHP(/1)                                                          
      DO 1 ISOU=1,NSOUPO                                                        
      MSOUPO=IPCHP(ISOU)                                                        
      SEGACT MSOUPO                                                             
      IF(NOCOMP(1).EQ.'LX  ') GO TO 3                                           
      MPOVAL=IPOVAL                                                             
      SEGACT MPOVAL                                                             
      N=VPOCHA(/1)                                                              
      NC=VPOCHA(/2)                                                             
      DO 2 IC=1,NC                                                              
      DO 2 I2=1,N                                                               
      XRET=XRET + VPOCHA(I2,IC)*VPOCHA(I2,IC)                                   
 2    CONTINUE                                                                  
      SEGDES MPOVAL                                                             
 3    SEGDES MSOUPO                                                             
 1    CONTINUE                                                                  
      SEGDES MCHPOI                                                             
      RETURN                                                                    
      END