1      SUBROUTINE ECRLIGNE(epep,i,iopt)
2      INCLUDE 'Parametres.f'
3      if (iopt.eq.0) then
4        epais_ligne = epais_ligne_pend
5        ityp_ligne  = ityp_ligne_pend
6        iep = nint(1000.*epais_ligne)
7        ity = ityp_ligne
8      else
9        iep = nint(1000.*epep)
10        ity = i
11      endif
12      if (iep.lt.100) then
13        write(ilaser_file,'(i2,i2,a)') iep,ity,' dt'
14      elseif (iep.lt.1000) then
15        write(ilaser_file,'(i3,i2,a)') iep,ity,' dt'
16      elseif (iep.lt.10000) then
17        write(ilaser_file,'(i4,i2,a)') iep,ity,' dt'
18      else
19        write(ilaser_file,'(i7,i2,a)') iep,ity,' dt'
20      endif
21      end
22