Télécharger elfre1.eso

Retour à la liste

Numérotation des lignes :

  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)
  28. CALL ELFREE(VN(IVN),AB(IAN,NTAB),DC(IDC,NTDC))
  29. IDC=IDC+2*NREFE(5,NS)*NREFE(4,NS)
  30. 20 CONTINUE
  31. NTAB=NTAB-1
  32. 30 CONTINUE
  33. RETURN
  34. END
  35.  
  36.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales