Télécharger elfbl1.eso

Retour à la liste

Numérotation des lignes :

  1. C ELFBL1 SOURCE CHAT 05/01/12 23:31:08 5004
  2. SUBROUTINE ELFBL1(BLIAI,VN,NVNLIA,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 RANGEMENT DE VN DANS LES NLS2 PREMIERES COMPOSANTES DE BLIAI
  9. C A L'AIDE DE NVNLIA
  10. C CREATION : 4/11/86
  11. C PROGRAMMEUR : GUILBAUD
  12. C =====================================================================
  13. C
  14. DIMENSION BLIAI(1),VN(1),NVNLIA(1)
  15. DO 10 L=1,NLS2
  16. BLIAI(L)=VN(NVNLIA(L))
  17. 10 CONTINUE
  18. RETURN
  19. END
  20.  
  21.  

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