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 is_integer(in,out)
      implicit none
c     purpose: to detect wether (out=1) 'in' is an integer or not (out=0)
c
      integer out
      double precision in

      if (dble(int(in)).eq.in) then
         out=1
      else
         out=0
      endif

      return
      end