Sources Esope | Cast3M

elfbl2
C ELFBL2    SOURCE    CHAT      05/01/12    23:31:12     5004
      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 10 NC=1,NCHAL
      ID=IBCHA(NC)
      DO 10 L=1,NLS2
      BLIAI(L)=BLIAI(L)+BCHAR2(ID+L)
  10  CONTINUE
      RETURN
      END