1 : C ANCHPO SOURCE CHAT 05/01/12 21:22:13 5004 2 : SUBROUTINE ANCHPO(IPO1,NOCOM,IRET) 3 : C======================================================================= 4 : C 5 : C MISE A ZERO DES TERMES SUR UNE COMPOSANTE DONNEE 6 : C DANS UN CHPS PAR POINT 7 : C LE CHPS RESULTANT VOIT SON POINTEUR STOCKE DANS IRET 8 : C ENTREES 9 : C IPO1=POINTEUR SUR LE CHAMPOINT 10 : C NOCOM=NOM DE COMPOSANTE 11 : C SORTIES 12 : C IRET=POINTEUR SUR LE CHAMPS RESULTANT 13 : C 14 : C J BROCHARD NOVEMBRE 85 15 : C 16 : C======================================================================= 17 : IMPLICIT INTEGER(I-N) 18 : IMPLICIT REAL*8(A-H,O-Z) 19 : CHARACTER*4 NOCOM 20 : -INC SMCHPOI 21 : -INC CCOPTIO 22 : MCHPO1=IPO1 23 : SEGACT MCHPO1 24 : NSOUPO=MCHPO1.IPCHP(/1) 25 : NAT=MCHPO1.JATTRI(/1) 26 : SEGINI MCHPOI 27 : IRET=MCHPOI 28 : MTYPOI=MCHPO1.MTYPOI 29 : MOCHDE=MCHPO1.MOCHDE 30 : IFOPOI=MCHPO1.IFOPOI 31 : DO 72 IA=1,NSOUPO 32 : MSOUP1=MCHPO1.IPCHP(IA) 33 : SEGACT MSOUP1 34 : NC=MSOUP1.NOCOMP(/2) 35 : SEGINI MSOUPO 36 : IPCHP(IA)=MSOUPO 37 : IGEOC=MSOUP1.IGEOC 38 : DO 73 IB=1,NC 39 : NOCOMP(IB)=MSOUP1.NOCOMP(IB) 40 : NOHARM(IB)=MSOUP1.NOHARM(IB) 41 : 73 CONTINUE 42 : MPOVA1=MSOUP1.IPOVAL 43 : SEGACT MPOVA1 44 : N=MPOVA1.VPOCHA(/1) 45 : NC=MPOVA1.VPOCHA(/2) 46 : SEGINI MPOVAL 47 : IPOVAL=MPOVAL 48 : DO 75 IC=1,NC 49 : IF (NOCOMP(IC).NE.NOCOM) GOTO 755 50 : DO 751 IB=1,N 51 : VPOCHA(IB,IC)=0.D0 52 : 751 CONTINUE 53 : GOTO 75 54 : 755 CONTINUE 55 : DO 756 IB=1,N 56 : VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC) 57 : 756 CONTINUE 58 : 75 CONTINUE 59 : SEGDES MPOVAL,MPOVA1 60 : SEGDES MSOUPO,MSOUP1 61 : 72 CONTINUE 62 : SEGDES MCHPOI,MCHPO1 63 : RETURN 64 : END 65 :
© Cast3M 2003 - All rights reserved.
Disclaimer