C ELFBL2    SOURCE    CB215821  26/08/24    21:16:21     12622          
      SUBROUTINE ELFBL2(BLIAI,BCHAR2,IBCHA,NCHAL,NLS2)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C  =====================================================================
C    SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES
C    CALCUL DE LA RESULTANTE DES NCHAL CHARGEMENTS CONTENUS DANS BCHAR2
C    QUI AGISSENT SUR LA NBLI-IEME LIAISON,
C    ET RANGEMENT DANS LA DEUXIEME MOITIE DU VECTEUR SECOND MEMBRE BLIAI
C    A L'AIDE DU TABLEAU IBCHA
C    CREATION    :  4/11/86
C    PROGRAMMEUR : GUILBAUD
C  =====================================================================
C
      DIMENSION BLIAI(1),BCHAR2(1),IBCHA(1)
      DO 5 L=1,NLS2
      BLIAI(L)=0.D0
   5  CONTINUE
      DO 11 NC=1,NCHAL
      ID=IBCHA(NC)
      DO 10 L=1,NLS2
      BLIAI(L)=BLIAI(L)+BCHAR2(ID+L)
  10  CONTINUE
   11 CONTINUE
      RETURN
      END