C COMB02    SOURCE    CHAT      05/01/12    22:13:50     5004
      SUBROUTINE COMB02 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
************************************************************************
*
*                             C O M B 0 2
*                             -----------
*
* FONCTION:
* ---------
*
*     COMBINAISON LINEAIRE DE 2 'CHPOINT':
*     COMB = REEL1*CHP1 + REEL2*CHP2
*
*     CAS OU LES CHPOINTS NE S'APPUIENT PAS FORCEMENT SUR LES MEMES
*     POINTS, OU BIEN N'ONT PAS LES MEMES COMPOSANTES.
*
* MODE D'APPEL:
* -------------
*
*     CALL COMB02 (IPCHP1,REEL1,IPCHP2,REEL2,IPCOMB)
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE
* -----------
*
*     IPCHP1  ENTIER    (E)  POINTEUR SUR LE 1ER 'CHPOINT'.
*     REEL1   REEL DP   (E)  COEFFICIENT DU 1ER 'CHPOINT'.
*     IPCHP2  ENTIER    (E)  POINTEUR SUR LE 2IEME 'CHPOINT'.
*     REEL2   REEL DP   (E)  COEFFICIENT DU 2IEME 'CHPOINT'.
*     IPCOMB  ENTIER    (S)  POINTEUR SUR LE 'CHPOINT' COMBINE.
*
* SOUS-PROGRAMMES APPELES:
* ------------------------
*
*     ADCHPO, DTCHPO, MUCHPO.
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     PASCAL MANIGOT     15 AVRIL 1985
*
* LANGAGE:
* --------
*
*     FORTRAN77
*
************************************************************************
*

-INC PPARAM
-INC CCOPTIO
*
      CALL ADCHPO (IPCHP1,IPCHP2,  IPCOMB,REEL1,REEL2)
*
      END