1 : C ELFBL2 SOURCE CHAT 05/01/12 23:31:12 5004 2 : SUBROUTINE ELFBL2(BLIAI,BCHAR2,IBCHA,NCHAL,NLS2) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C 6 : C ===================================================================== 7 : C SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES 8 : C CALCUL DE LA RESULTANTE DES NCHAL CHARGEMENTS CONTENUS DANS BCHAR2 9 : C QUI AGISSENT SUR LA NBLI-IEME LIAISON, 10 : C ET RANGEMENT DANS LA DEUXIEME MOITIE DU VECTEUR SECOND MEMBRE BLIAI 11 : C A L'AIDE DU TABLEAU IBCHA 12 : C CREATION : 4/11/86 13 : C PROGRAMMEUR : GUILBAUD 14 : C ===================================================================== 15 : C 16 : DIMENSION BLIAI(1),BCHAR2(1),IBCHA(1) 17 : DO 5 L=1,NLS2 18 : BLIAI(L)=0.D0 19 : 5 CONTINUE 20 : DO 10 NC=1,NCHAL 21 : ID=IBCHA(NC) 22 : DO 10 L=1,NLS2 23 : BLIAI(L)=BLIAI(L)+BCHAR2(ID+L) 24 : 10 CONTINUE 25 : RETURN 26 : END 27 :
© Cast3M 2003 - All rights reserved.
Disclaimer