1! 2! Copyright (C) 1996-2016 The SIESTA group 3! This file is distributed under the terms of the 4! GNU General Public License: see COPYING in the top directory 5! or http://www.gnu.org/copyleft/gpl.txt. 6! See Docs/Contributors.txt for a list of contributors. 7! 8module m_scf_options 9! 10use precision 11 12real(dp), save :: jinv0 = 0.2_dp 13real(dp), save :: kick_strength = 0.5_dp 14real(dp), save :: fluct_margin = 0.1_dp 15integer, save :: maxit = 5 16integer, save :: n_temp_jumps = 2 17integer, save :: n_temp_steps = 4 18logical, save :: initial_kick = .false. 19logical, save :: cycle_on_maxit = .true. 20logical, save :: variable_weight = .true. 21integer, save :: n_dnorm_samples = 4 22 23end module m_scf_options 24 25module m_options 26! 27! Holds the Siesta run-time options 28! 29use m_scf_options 30public 31 32end module m_options 33