1 : C XTX1 SOURCE CHAT 05/01/13 04:15:29 5004 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 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 : MPOVAL=IPOVAL 21 : SEGACT MPOVAL 22 : N=VPOCHA(/1) 23 : NC=VPOCHA(/2) 24 : DO 2 IC=1,NC 25 : DO 2 I2=1,N 26 : XRET=XRET + VPOCHA(I2,IC)*VPOCHA(I2,IC) 27 : 2 CONTINUE 28 : SEGDES MPOVAL 29 : 3 SEGDES MSOUPO 30 : 1 CONTINUE 31 : SEGDES MCHPOI 32 : RETURN 33 : END 34 :
© Cast3M 2003 - All rights reserved.
Disclaimer