C PRCHA1 SOURCE CB215821 21/02/11 21:15:25 10886 SUBROUTINE PRCHA1(IPCHA1,IPCHA2,IPCHA3) ************************************************************************ * * P R C H A 1 * ----------- * * FONCTION: * --------- * * PRODUIT TERME A TERME DE DEUX SEGMENTS "MELVAL" , * AYANT MEME SUPPORT GEOMETRIQUE,ON OBTIENT UN SEGMENT MELVAL * ---------------------------- * MODULES UTILISES: * ----------------- * IMPLICIT INTEGER(I-N) -INC SMCHAML * * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) * ----------- * * IPCHA1 (E) POINTEUR SUR UN SEGMENT MELVAL * IPCHA2 (E) POINTEUR SUR UN SEGMENT MELVAL * IPCHA3 (S) POINTEUR SUR LE SEGMENT MELVAL RESULTAT * * VARIABLES: * ---------- * * * AUTEUR, DATE DE CREATION: * ------------------------- * * DENIS ROBERT,LE 28 AVRIL 1988. * * LANGAGE: * -------- * * ESOPE + FORTRAN77 * ************************************************************************ * MELVA1=IPCHA1 MELVA2=IPCHA2 * N11=MELVA1.VELCHE(/1) N12=MELVA1.VELCHE(/2) N21=MELVA2.VELCHE(/1) N22=MELVA2.VELCHE(/2) * N1PTEL=MAX(N11,N21) N1EL =MAX(N12,N22) N2PTEL=0 N2EL =0 SEGINI,MELVAL IPCHA3=MELVAL * DO 10 IELE=1,N1EL DO 20 INOE=1,N1PTEL IEMN1=MIN(IELE,N12) INMN1=MIN(INOE,N11) IEMN2=MIN(IELE,N22) INMN2=MIN(INOE,N21) VELCHE(INOE,IELE)=MELVA1.VELCHE(INMN1,IEMN1)* & MELVA2.VELCHE(INMN2,IEMN2) 20 CONTINUE 10 CONTINUE END