Sources Esope | Cast3M

elfbl1
C ELFBL1    SOURCE    CHAT      05/01/12    23:31:08     5004
      SUBROUTINE ELFBL1(BLIAI,VN,NVNLIA,NLS2)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C  =====================================================================
C    SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES
C    RANGEMENT DE VN DANS LES NLS2 PREMIERES COMPOSANTES DE BLIAI
C    A L'AIDE DE NVNLIA
C    CREATION    :  4/11/86
C    PROGRAMMEUR : GUILBAUD
C  =====================================================================
C
      DIMENSION BLIAI(1),VN(1),NVNLIA(1)
      DO 10 L=1,NLS2
      BLIAI(L)=VN(NVNLIA(L))
   10 CONTINUE
      RETURN
      END