Télécharger la plaquette Cast3M


fr en

Télécharger comb02.eso

Retour à la liste

Numérotation des lignes : 

comb02

  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.  
  51. -INC PPARAM
  52. -INC CCOPTIO
  53. *
  54.       CALL ADCHPO (IPCHP1,IPCHP2,  IPCOMB,REEL1,REEL2)
  55. *
  56.       END
  57.  
  58.  

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