1 : C PRCHA1 SOURCE PV 09/03/12 21:30:28 6325 2 : SUBROUTINE PRCHA1(IPCHA1,IPCHA2,IPCHA3) 3 : ************************************************************************ 4 : * 5 : * P R C H A 1 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * PRODUIT TERME A TERME DE DEUX SEGMENTS "MELVAL" , 12 : * AYANT MEME SUPPORT GEOMETRIQUE,ON OBTIENT UN SEGMENT MELVAL 13 : * ---------------------------- 14 : * MODULES UTILISES: 15 : * ----------------- 16 : * 17 : IMPLICIT INTEGER(I-N) 18 : -INC SMCHAML 19 : * 20 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 21 : * ----------- 22 : * 23 : * IPCHA1 (E) POINTEUR SUR UN SEGMENT MELVAL 24 : * IPCHA2 (E) POINTEUR SUR UN SEGMENT MELVAL 25 : * IPCHA3 (S) POINTEUR SUR LE SEGMENT MELVAL RESULTAT 26 : * 27 : * VARIABLES: 28 : * ---------- 29 : * 30 : * 31 : * AUTEUR, DATE DE CREATION: 32 : * ------------------------- 33 : * 34 : * DENIS ROBERT,LE 28 AVRIL 1988. 35 : * 36 : * LANGAGE: 37 : * -------- 38 : * 39 : * ESOPE + FORTRAN77 40 : * 41 : ************************************************************************ 42 : * 43 : MELVA1=IPCHA1 44 : MELVA2=IPCHA2 45 : * 46 : SEGACT,MELVA1,MELVA2 47 : N11=MELVA1.VELCHE(/1) 48 : N12=MELVA1.VELCHE(/2) 49 : N21=MELVA2.VELCHE(/1) 50 : N22=MELVA2.VELCHE(/2) 51 : * 52 : N1PTEL=MAX(N11,N21) 53 : N1EL=MAX(N12,N22) 54 : N2PTEL=0 55 : N2EL=0 56 : SEGINI,MELVAL 57 : IPCHA3=MELVAL 58 : * 59 : DO 10 IELE=1,N1EL 60 : DO 20 INOE=1,N1PTEL 61 : IEMN1=MIN(IELE,N12) 62 : INMN1=MIN(INOE,N11) 63 : IEMN2=MIN(IELE,N22) 64 : INMN2=MIN(INOE,N21) 65 : VELCHE(INOE,IELE)=MELVA1.VELCHE(INMN1,IEMN1)* 66 : & MELVA2.VELCHE(INMN2,IEMN2) 67 : 20 CONTINUE 68 : * END DO 69 : 10 CONTINUE 70 : * END DO 71 : SEGDES,MELVA1 72 : SEGDES MELVA2 73 : SEGDES,MELVAL 74 : * 75 : RETURN 76 : END 77 : 78 : 79 : 80 :
© Cast3M 2003 - All rights reserved.
Disclaimer