1 : C COMBI2 SOURCE CHAT 05/01/12 22:13:53 5004 2 : SUBROUTINE COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : ************************************************************************ 6 : * 7 : * C O M B I 2 8 : * ----------- 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * COMBINAISON LINEAIRE DE 2 'CHPOINT': 14 : * COMB = REEL1*CHP1 + REEL2*CHP2 15 : * 16 : * CAS PARTICULIER OU LES DEUX CHPOINTS S'APPUIENT SUR LES MEMES 17 : * POINTS, AVEC LES MEMES COMPOSANTES. 18 : * 19 : * MODE D'APPEL: 20 : * ------------- 21 : * 21 : * CALL COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB) 22 : * 23 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 24 : * ----------- 25 : * 26 : * IPCHP1 ENTIER (E) POINTEUR SUR LE 1ER 'CHPOINT'. 27 : * REEL1 REEL DP (E) COEFFICIENT DU 1ER 'CHPOINT'. 28 : * IPCHP2 ENTIER (E) POINTEUR SUR LE 2IEME 'CHPOINT'. 29 : * REEL2 REEL DP (E) COEFFICIENT DU 2IEME 'CHPOINT'. 30 : * IPCOMB ENTIER (S) POINTEUR SUR LE 'CHPOINT' COMBINE. 31 : * 32 : * LEXIQUE: (ORDRE ALPHABETIQUE) 33 : * -------- 34 : * 35 : * IPTA1 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES 36 : * POINTEURS DE 'CHPOINT'. 37 : * IPTA2 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES 38 : * COEFFICIENTS. 39 : * 40 : * SOUS-PROGRAMMES APPELES: 41 : * ------------------------ 42 : * 43 : * COMBIL 44 : * 45 : * AUTEUR, DATE DE CREATION: 46 : * ------------------------- 47 : * 48 : * PASCAL MANIGOT 20 DECEMBRE 1984 49 : * 50 : * LANGAGE: 51 : * -------- 52 : * 53 : * ESOPE + FORTRAN77 54 : * 55 : ************************************************************************ 56 : * 57 : * 58 : SEGMENT ITA1(2) 59 : SEGMENT/ITA2/ (TA2(2)*D) 60 : * 61 : SEGINI,ITA1 62 : IPTA1 = ITA1 63 : SEGINI,ITA2 64 : IPTA2 = ITA2 65 : * 66 : ITA1(1) = IPCHP1 67 : ITA1(2) = IPCHP2 68 : TA2(1) = REEL1 69 : TA2(2) = REEL2 70 : SEGDES,ITA1 71 : SEGDES,ITA2 72 : * 72 : CALL COMBIL (IPTA1,IPTA2, IPCOMB) 73 : * 74 : END 75 :
© Cast3M 2003 - All rights reserved.
Disclaimer