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