c     kspectrum (http://www.meso-star.com/en_Products.html) - This file is part of kspectrum
c     Copyright (C) 2008-2015 - Méso-Star - Vincent Eymet
c     
c     This file must be used under the terms of the CeCILL license.
c     This source file is licensed as described in the file COPYING, which
c     you should have received as part of this distribution.  The terms
c     are also available at
c     http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
c     
      subroutine lorentztab_filename(eps,file_out)
      implicit none
      include 'max.inc'

      integer strlen
      double precision eps
      character*20 epsch
      character*(Nchar_mx) file_out

      file_out='./data/tabulation_lorentz'
      call convert_epsm2ch(eps,epsch)
      file_out=file_out(1:strlen(file_out))//epsch(1:strlen(epsch))
     &     //'.txt'

      return
      end