Télécharger comb02.eso

Retour à la liste

Numérotation des lignes :

  1. C COMB02 SOURCE CHAT 05/01/12 22:13:50 5004
  2. SUBROUTINE COMB02 (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 0 2
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * COMBINAISON LINEAIRE DE 2 'CHPOINT':
  14. * COMB = REEL1*CHP1 + REEL2*CHP2
  15. *
  16. * CAS OU LES CHPOINTS NE S'APPUIENT PAS FORCEMENT SUR LES MEMES
  17. * POINTS, OU BIEN N'ONT PAS LES MEMES COMPOSANTES.
  18. *
  19. * MODE D'APPEL:
  20. * -------------
  21. *
  22. * CALL COMB02 (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. * SOUS-PROGRAMMES APPELES:
  34. * ------------------------
  35. *
  36. * ADCHPO, DTCHPO, MUCHPO.
  37. *
  38. * AUTEUR, DATE DE CREATION:
  39. * -------------------------
  40. *
  41. * PASCAL MANIGOT 15 AVRIL 1985
  42. *
  43. * LANGAGE:
  44. * --------
  45. *
  46. * FORTRAN77
  47. *
  48. ************************************************************************
  49. *
  50. -INC CCOPTIO
  51. *
  52. CALL ADCHPO (IPCHP1,IPCHP2, IPCOMB,REEL1,REEL2)
  53. *
  54. END
  55.  
  56.  

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