Line data    Source code

       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2017 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_init_wannier_defaults
       8             : 
       9             : CONTAINS
      10             : 
      11           0 : SUBROUTINE initWannierDefaults(wann)
      12             : 
      13             :    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      14             :    !!!
      15             :    !!!  This subroutine sets most of the attributes of the t_wann
      16             :    !!!  type to standard values.
      17             :    !!!
      18             :    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      19             : 
      20             :    USE m_types_setup
      21             : 
      22             :    IMPLICIT NONE
      23             : 
      24             :    TYPE(t_wann), INTENT(INOUT) :: wann
      25             : 
      26           0 :    wann%wan90version = 3 ! Set the standard to Wannier90-1.2
      27             : 
      28           0 :    wann%oc_num_orbs = 0
      29             : !        integer,allocatable :: oc_orbs(:)
      30             : 
      31           0 :    wann%l_perpmagatlres= .FALSE.
      32           0 :    wann%l_unformatted = .FALSE.
      33           0 :    wann%l_oc_f = .FALSE.
      34           0 :    wann%l_ndegen = .FALSE.
      35           0 :    wann%l_orbitalmom = .FALSE.
      36           0 :    wann%l_orbcomp = .FALSE.
      37           0 :    wann%l_orbcomprs = .FALSE.
      38           0 :    wann%l_denmat = .FALSE.
      39           0 :    wann%l_perturbrs = .FALSE.
      40           0 :    wann%l_perturb = .FALSE.
      41           0 :    wann%l_nedrho = .FALSE.
      42           0 :    wann%l_anglmomrs = .FALSE.
      43           0 :    wann%l_anglmom = .FALSE.
      44           0 :    wann%l_spindisp = .FALSE.
      45           0 :    wann%l_spindisprs = .FALSE.
      46           0 :    wann%l_socspicom = .FALSE.
      47           0 :    wann%l_socspicomrs = .FALSE.
      48           0 :    wann%l_offdiposoprs = .FALSE.
      49           0 :    wann%l_offdiposop = .FALSE.
      50           0 :    wann%l_torque = .FALSE.
      51           0 :    wann%l_torquers = .FALSE.
      52           0 :    wann%l_atomlist = .FALSE.
      53             : 
      54           0 :    wann%atomlist_num = 0 ! has to be initialize to atoms%nat or something smaller at some point
      55             : !        integer,allocatable :: atomlist(:)
      56             : 
      57           0 :    wann%l_berry = .FALSE.
      58           0 :    wann%l_perpmagrs = .FALSE.
      59           0 :    wann%l_perpmag = .FALSE.
      60           0 :    wann%l_perpmagat = .FALSE.
      61           0 :    wann%l_perpmagatrs = .FALSE.
      62           0 :    wann%l_socmatrs = .FALSE.
      63           0 :    wann%l_socmat = .FALSE.
      64           0 :    wann%l_socmatvecrs = .FALSE.
      65           0 :    wann%l_socmatvec = .FALSE.
      66           0 :    wann%l_soctomom = .FALSE.
      67           0 :    wann%l_kptsreduc2 = .FALSE.
      68           0 :    wann%l_nablapaulirs = .FALSE.
      69           0 :    wann%l_nablars = .FALSE.
      70           0 :    wann%l_surfcurr = .FALSE.
      71           0 :    wann%l_updown = .FALSE.
      72           0 :    wann%l_ahe = .FALSE.
      73           0 :    wann%l_she = .FALSE.
      74           0 :    wann%l_rmat = .FALSE.
      75           0 :    wann%l_nabla = .FALSE.
      76           0 :    wann%l_socodi = .FALSE.
      77           0 :    wann%l_pauli = .FALSE.
      78           0 :    wann%l_pauliat = .FALSE.
      79           0 :    wann%l_potmat = .FALSE.
      80           0 :    wann%l_projgen = .FALSE.
      81           0 :    wann%l_plot_symm = .FALSE.
      82           0 :    wann%l_socmmn0 = .FALSE.
      83           0 :    wann%l_bzsym = .FALSE.
      84           0 :    wann%l_hopping = .FALSE.
      85           0 :    wann%l_kptsreduc = .FALSE.
      86           0 :    wann%l_prepwan90 = .FALSE.
      87           0 :    wann%l_plot_umdat = .FALSE.
      88           0 :    wann%l_wann_plot = .FALSE.
      89           0 :    wann%l_bynumber = .FALSE.
      90           0 :    wann%l_stopopt = .FALSE.
      91           0 :    wann%l_matrixmmn = .FALSE.
      92           0 :    wann%l_matrixamn = .FALSE.
      93           0 :    wann%l_projmethod = .FALSE.
      94           0 :    wann%l_wannierize = .FALSE.
      95           0 :    wann%l_plotw90 = .FALSE.
      96           0 :    wann%l_byindex = .FALSE.
      97           0 :    wann%l_byenergy = .FALSE.
      98           0 :    wann%l_proj_plot = .FALSE.
      99           0 :    wann%l_bestproj = .FALSE.
     100           0 :    wann%l_ikptstart = .FALSE.
     101           0 :    wann%l_lapw = .FALSE.
     102           0 :    wann%l_plot_lapw = .FALSE.
     103           0 :    wann%l_fermi = .FALSE.
     104           0 :    wann%l_dipole = .FALSE.
     105           0 :    wann%l_dipole2 = .FALSE.
     106           0 :    wann%l_dipole3 = .FALSE.
     107           0 :    wann%l_mmn0 = .FALSE.
     108           0 :    wann%l_mmn0at = .FALSE.
     109           0 :    wann%l_manyfiles = .FALSE.
     110           0 :    wann%l_collectmanyfiles = .FALSE.
     111           0 :    wann%l_ldauwan = .FALSE.
     112           0 :    wann%l_lapw_kpts = .FALSE.
     113           0 :    wann%l_lapw_gfleur = .FALSE.
     114           0 :    wann%l_kpointgen = .FALSE.
     115           0 :    wann%l_w90kpointgen = .FALSE.
     116           0 :    wann%l_finishnocoplot = .FALSE.
     117           0 :    wann%l_finishgwf = .FALSE.
     118           0 :    wann%l_skipkov = .FALSE.
     119           0 :    wann%l_matrixuHu = .FALSE.
     120           0 :    wann%l_matrixuHu_dmi = .FALSE.
     121             : 
     122           0 :    wann%l_mmn0_unf_to_spn_unf= .FALSE.   
     123           0 :    wann%l_mmn0_to_spn_unf= .FALSE.
     124           0 :    wann%l_mmn0_to_spn= .FALSE.
     125           0 :    wann%l_mmn0_to_spn2= .FALSE.
     126           0 :    wann%l_mmn0_unf_to_spn= .FALSE.
     127           0 :    wann%l_perpmag_unf_to_tor_unf= .FALSE.
     128           0 :    wann%l_perpmag_to_tor_unf= .FALSE.
     129           0 :    wann%l_perpmag_to_tor= .FALSE.
     130           0 :    wann%l_perpmag_unf_to_tor= .FALSE.
     131           0 :    wann%l_hsomtxvec_unf_to_lmpzsoc_unf= .FALSE.
     132           0 :    wann%l_hsomtxvec_to_lmpzsoc_unf= .FALSE.
     133           0 :    wann%l_hsomtxvec_to_lmpzsoc= .FALSE.
     134           0 :    wann%l_hsomtxvec_unf_to_lmpzsoc= .FALSE.
     135           0 :    wann%l_hsomtx_unf_to_hsoc_unf= .FALSE.
     136           0 :    wann%l_hsomtx_to_hsoc_unf= .FALSE.
     137           0 :    wann%l_hsomtx_to_hsoc= .FALSE.
     138           0 :    wann%l_hsomtx_unf_to_hsoc= .FALSE.
     139             : 
     140             : 
     141           0 :    wann%ikptstart = 1
     142           0 :    wann%band_min(1:2) = -1
     143           0 :    wann%band_max(1:2) = -1
     144           0 :    wann%gfthick = 0
     145           0 :    wann%gfcut = 0
     146           0 :    wann%unigrid(6) = 0
     147           0 :    wann%mhp(3) = 0
     148             : 
     149             : !---> gwf
     150           0 :    wann%l_ms = .FALSE.
     151           0 :    wann%l_sgwf = .FALSE.
     152           0 :    wann%l_socgwf = .FALSE.
     153           0 :    wann%l_gwf = .FALSE.
     154           0 :    wann%l_bs_comf = .FALSE.
     155           0 :    wann%l_exist = .FALSE.
     156           0 :    wann%l_opened = .FALSE.
     157           0 :    wann%l_cleverskip = .FALSE.
     158           0 :    wann%l_dim(3) = .FALSE.
     159             : 
     160             :    wann%scale_param = 0.0
     161             :    wann%aux_latt_const = 0.0
     162           0 :    wann%hdwf_t1 = 0.0
     163           0 :    wann%hdwf_t2 = 0.0
     164           0 :    wann%nparampts = 0
     165           0 :    wann%fn_eig = ''
     166           0 :    wann%param_file = ''
     167             : 
     168           0 :    wann%scale_param = 1.0
     169           0 :    wann%aux_latt_const = 8.0!5.5!5.45886450 !5.98136400 !8.0725882513951497 !5.4170 !1.0
     170           0 :    wann%param_file='qpts'
     171           0 :    wann%l_dim=.false.
     172             : 
     173           0 : END SUBROUTINE initWannierDefaults
     174             : 
     175             : END MODULE m_init_wannier_defaults