Esope source files

   1 : C ELFRE1    SOURCE    CHAT      05/01/12    23:32:27     5004           
   2 :       SUBROUTINE ELFRE1(VN,AB,DC,NREFE,NSTR,NTANBN,NIDNCN,                      
   3 :      *NDANBN,NDDNCN,NADNCN,LREF)                                                
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   6 : C                                                                               
   7 : C =====================================================================         
   8 : C   SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES                                    
   9 : C   POUR CALCULER LE PRODUIT DE CONVOLUTION PAR BLOC                            
  10 : C                                                                               
  11 : C   PROGRAMMEUR : GUILBAUD                                                      
  12 : C   CREATION    :  6/08/87                                                      
  13 : C =====================================================================         
  14 : C                                                                               
  15 :       DIMENSION VN(1),AB(NTANBN,1),DC(NIDNCN,1),NREFE(LREF,1)                   
  16 : C                                                                               
  17 : C   BOUCLE SUR LES PAS DE TEMPS DES BLOCS                                       
  18 : C                                                                               
  19 :       NTAB=NDANBN                                                               
  20 :       DO 30 NTDC=NDDNCN,NADNCN                                                  
  21 : C                                                                               
  22 : C   BOUCLE SUR TOUS LES ELEMENTS                                                
  23 : C                                                                               
  24 :       IDC=1                                                                     
  25 :       DO 20 NS=1,NSTR                                                           
  26 :       IVN=NREFE(6,NS)+1                                                         
  27 :       IAN=NREFE(7,NS)                                                           
  27 :       CALL ELFREE(VN(IVN),AB(IAN,NTAB),DC(IDC,NTDC))                            
  28 :       IDC=IDC+2*NREFE(5,NS)*NREFE(4,NS)                                         
  29 :    20 CONTINUE                                                                  
  30 :       NTAB=NTAB-1                                                               
  31 :    30 CONTINUE                                                                  
  32 :       RETURN                                                                    
  33 :       END                                                                       
  34 :