Télécharger la plaquette Cast3M


fr en

Télécharger combi2.eso

Retour à la liste

Numérotation des lignes : 

combi2

  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