C COMBI2 SOURCE BP208322 15/06/26 21:15:05 8562 SUBROUTINE COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) ************************************************************************ * * C O M B I 2 * ----------- * * FONCTION: * --------- * * COMBINAISON LINEAIRE DE 2 'CHPOINT': * COMB = REEL1*CHP1 + REEL2*CHP2 * * CAS PARTICULIER OU LES DEUX CHPOINTS S'APPUIENT SUR LES MEMES * POINTS, AVEC LES MEMES COMPOSANTES. * * MODE D'APPEL: * ------------- * * CALL COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB) * * PARAMETRES: (E)=ENTREE (S)=SORTIE * ----------- * * IPCHP1 ENTIER (E) POINTEUR SUR LE 1ER 'CHPOINT'. * REEL1 REEL DP (E) COEFFICIENT DU 1ER 'CHPOINT'. * IPCHP2 ENTIER (E) POINTEUR SUR LE 2IEME 'CHPOINT'. * REEL2 REEL DP (E) COEFFICIENT DU 2IEME 'CHPOINT'. * IPCOMB ENTIER (S) POINTEUR SUR LE 'CHPOINT' COMBINE. * * LEXIQUE: (ORDRE ALPHABETIQUE) * -------- * * IPTA1 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES * POINTEURS DE 'CHPOINT'. * IPTA2 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES * COEFFICIENTS. * * SOUS-PROGRAMMES APPELES: * ------------------------ * * COMBIL * * AUTEUR, DATE DE CREATION: * ------------------------- * * PASCAL MANIGOT 20 DECEMBRE 1984 * * LANGAGE: * -------- * * ESOPE + FORTRAN77 * ************************************************************************ * * SEGMENT ITA1(2) SEGMENT/ITA2/ (TA2(2)*D) * SEGINI,ITA1 IPTA1 = ITA1 SEGINI,ITA2 IPTA2 = ITA2 * ITA1(1) = IPCHP1 ITA1(2) = IPCHP2 TA2(1) = REEL1 TA2(2) = REEL2 c SEGDES,ITA1 c SEGDES,ITA2 * c CALL COMBIL (IPTA1,IPTA2,IPCOMB) CALL COMBIL (IPTA1,IPTA2,2,IPCOMB) SEGSUP,ITA1,ITA2 * END