Télécharger combi2.eso

Retour à la liste

Numérotation des lignes :

  1. C COMBI2 SOURCE BP208322 15/06/26 21:15:05 8562
  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. *
  22. * CALL COMBI2 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB)
  23. *
  24. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  25. * -----------
  26. *
  27. * IPCHP1 ENTIER (E) POINTEUR SUR LE 1ER 'CHPOINT'.
  28. * REEL1 REEL DP (E) COEFFICIENT DU 1ER 'CHPOINT'.
  29. * IPCHP2 ENTIER (E) POINTEUR SUR LE 2IEME 'CHPOINT'.
  30. * REEL2 REEL DP (E) COEFFICIENT DU 2IEME 'CHPOINT'.
  31. * IPCOMB ENTIER (S) POINTEUR SUR LE 'CHPOINT' COMBINE.
  32. *
  33. * LEXIQUE: (ORDRE ALPHABETIQUE)
  34. * --------
  35. *
  36. * IPTA1 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES
  37. * POINTEURS DE 'CHPOINT'.
  38. * IPTA2 ENTIER POINTEUR SUR LE SEGMENT CONTENANT LA LISTE DES
  39. * COEFFICIENTS.
  40. *
  41. * SOUS-PROGRAMMES APPELES:
  42. * ------------------------
  43. *
  44. * COMBIL
  45. *
  46. * AUTEUR, DATE DE CREATION:
  47. * -------------------------
  48. *
  49. * PASCAL MANIGOT 20 DECEMBRE 1984
  50. *
  51. * LANGAGE:
  52. * --------
  53. *
  54. * ESOPE + FORTRAN77
  55. *
  56. ************************************************************************
  57. *
  58. *
  59. SEGMENT ITA1(2)
  60. SEGMENT/ITA2/ (TA2(2)*D)
  61. *
  62. SEGINI,ITA1
  63. IPTA1 = ITA1
  64. SEGINI,ITA2
  65. IPTA2 = ITA2
  66. *
  67. ITA1(1) = IPCHP1
  68. ITA1(2) = IPCHP2
  69. TA2(1) = REEL1
  70. TA2(2) = REEL2
  71. c SEGDES,ITA1
  72. c SEGDES,ITA2
  73. *
  74. c CALL COMBIL (IPTA1,IPTA2,IPCOMB)
  75. CALL COMBIL (IPTA1,IPTA2,2,IPCOMB)
  76.  
  77. SEGSUP,ITA1,ITA2
  78. *
  79. END
  80.  
  81.  
  82.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales