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 write_info(k_mxep,sd_mxep,ncalc0,ncalc2)
      implicit none
      include 'formats.inc'
      integer ncalc0,ncalc2
      double precision k_mxep,sd_mxep

      open(10,file='./results/calculation_info.txt')
      write(10,*) 'epsilon1 / epsilon2'
      write(10,50) k_mxep,sd_mxep
      write(10,*)
      write(10,*) 'Total number of lines:',ncalc0
      write(10,*) 'Number of lines after classification:',ncalc2,
     &        ' gain:',dble(ncalc0-ncalc2)/dble(ncalc0)
      close(10)

      return
      end