juDFT_env.h 969 Bytes
Newer Older
1 2 3 4 5 6
!--------------------------------------------------------------------------------
!  Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
!  This file is part of FLEUR and available as free software under the conditions
!  of the MIT license as expressed in the LICENSE file in more detail.
!--------------------------------------------------------------------------------

7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
       !The default is to call timestart only if requested
#define CPP_juDFT_timestart(name) call timestart(name,__FILE__,__LINE__)
#define CPP_juDFT_timestart_debug(name)
#define CPP_juDFT_timestop(name) call timestop(name)
#define CPP_juDFT_timestop_debug(name)

       !In debug mode even more often
#ifdef CPP_DEBUG
#define CPP_juDFT_timestart_debug(name) call timestart(name,__FILE__,__LINE__)
#define CPP_juDFT_timestop_debug(name) call timestop(name)
#endif

#define CPP_error(message) call juDFT_error(message,file=__FILE__,line=__LINE__)

       USE m_juDFT