LCOV - code coverage report
Current view: top level - wannier - init_wannier_defaults.f90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 113 113 100.0 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          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          76 : 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          76 :    wann%wan90version = 3 ! Set the standard to Wannier90-1.2
      27             : 
      28          76 :    wann%oc_num_orbs = 0
      29             : !        integer,allocatable :: oc_orbs(:)
      30             : 
      31          76 :    wann%l_unformatted = .FALSE.
      32          76 :    wann%l_oc_f = .FALSE.
      33          76 :    wann%l_ndegen = .FALSE.
      34          76 :    wann%l_orbitalmom = .FALSE.
      35          76 :    wann%l_orbcomp = .FALSE.
      36          76 :    wann%l_orbcomprs = .FALSE.
      37          76 :    wann%l_denmat = .FALSE.
      38          76 :    wann%l_perturbrs = .FALSE.
      39          76 :    wann%l_perturb = .FALSE.
      40          76 :    wann%l_nedrho = .FALSE.
      41          76 :    wann%l_anglmomrs = .FALSE.
      42          76 :    wann%l_anglmom = .FALSE.
      43          76 :    wann%l_spindisp = .FALSE.
      44          76 :    wann%l_spindisprs = .FALSE.
      45          76 :    wann%l_socspicom = .FALSE.
      46          76 :    wann%l_socspicomrs = .FALSE.
      47          76 :    wann%l_offdiposoprs = .FALSE.
      48          76 :    wann%l_offdiposop = .FALSE.
      49          76 :    wann%l_torque = .FALSE.
      50          76 :    wann%l_torquers = .FALSE.
      51          76 :    wann%l_atomlist = .FALSE.
      52             : 
      53          76 :    wann%atomlist_num = 0 ! has to be initialize to atoms%nat or something smaller at some point
      54             : !        integer,allocatable :: atomlist(:)
      55             : 
      56          76 :    wann%l_berry = .FALSE.
      57          76 :    wann%l_perpmagrs = .FALSE.
      58          76 :    wann%l_perpmag = .FALSE.
      59          76 :    wann%l_perpmagat = .FALSE.
      60          76 :    wann%l_perpmagatrs = .FALSE.
      61          76 :    wann%l_socmatrs = .FALSE.
      62          76 :    wann%l_socmat = .FALSE.
      63          76 :    wann%l_soctomom = .FALSE.
      64          76 :    wann%l_kptsreduc2 = .FALSE.
      65          76 :    wann%l_nablapaulirs = .FALSE.
      66          76 :    wann%l_nablars = .FALSE.
      67          76 :    wann%l_surfcurr = .FALSE.
      68          76 :    wann%l_updown = .FALSE.
      69          76 :    wann%l_ahe = .FALSE.
      70          76 :    wann%l_she = .FALSE.
      71          76 :    wann%l_rmat = .FALSE.
      72          76 :    wann%l_nabla = .FALSE.
      73          76 :    wann%l_socodi = .FALSE.
      74          76 :    wann%l_pauli = .FALSE.
      75          76 :    wann%l_pauliat = .FALSE.
      76          76 :    wann%l_potmat = .FALSE.
      77          76 :    wann%l_projgen = .FALSE.
      78          76 :    wann%l_plot_symm = .FALSE.
      79          76 :    wann%l_socmmn0 = .FALSE.
      80          76 :    wann%l_bzsym = .FALSE.
      81          76 :    wann%l_hopping = .FALSE.
      82          76 :    wann%l_kptsreduc = .FALSE.
      83          76 :    wann%l_prepwan90 = .FALSE.
      84          76 :    wann%l_plot_umdat = .FALSE.
      85          76 :    wann%l_wann_plot = .FALSE.
      86          76 :    wann%l_bynumber = .FALSE.
      87          76 :    wann%l_stopopt = .FALSE.
      88          76 :    wann%l_matrixmmn = .FALSE.
      89          76 :    wann%l_matrixamn = .FALSE.
      90          76 :    wann%l_projmethod = .FALSE.
      91          76 :    wann%l_wannierize = .FALSE.
      92          76 :    wann%l_plotw90 = .FALSE.
      93          76 :    wann%l_byindex = .FALSE.
      94          76 :    wann%l_byenergy = .FALSE.
      95          76 :    wann%l_proj_plot = .FALSE.
      96          76 :    wann%l_bestproj = .FALSE.
      97          76 :    wann%l_ikptstart = .FALSE.
      98          76 :    wann%l_lapw = .FALSE.
      99          76 :    wann%l_plot_lapw = .FALSE.
     100          76 :    wann%l_fermi = .FALSE.
     101          76 :    wann%l_dipole = .FALSE.
     102          76 :    wann%l_dipole2 = .FALSE.
     103          76 :    wann%l_dipole3 = .FALSE.
     104          76 :    wann%l_mmn0 = .FALSE.
     105          76 :    wann%l_mmn0at = .FALSE.
     106          76 :    wann%l_manyfiles = .FALSE.
     107          76 :    wann%l_collectmanyfiles = .FALSE.
     108          76 :    wann%l_ldauwan = .FALSE.
     109          76 :    wann%l_lapw_kpts = .FALSE.
     110          76 :    wann%l_lapw_gfleur = .FALSE.
     111          76 :    wann%l_kpointgen = .FALSE.
     112          76 :    wann%l_w90kpointgen = .FALSE.
     113          76 :    wann%l_finishnocoplot = .FALSE.
     114          76 :    wann%l_finishgwf = .FALSE.
     115          76 :    wann%l_skipkov = .FALSE.
     116          76 :    wann%l_matrixuHu = .FALSE.
     117          76 :    wann%l_matrixuHu_dmi = .FALSE.
     118             : 
     119          76 :    wann%ikptstart = 1
     120         228 :    wann%band_min(1:2) = -1
     121         228 :    wann%band_max(1:2) = -1
     122          76 :    wann%gfthick = 0
     123          76 :    wann%gfcut = 0
     124          76 :    wann%unigrid(6) = 0
     125          76 :    wann%mhp(3) = 0
     126             : 
     127             : !---> gwf
     128          76 :    wann%l_ms = .FALSE.
     129          76 :    wann%l_sgwf = .FALSE.
     130          76 :    wann%l_socgwf = .FALSE.
     131          76 :    wann%l_gwf = .FALSE.
     132          76 :    wann%l_bs_comf = .FALSE.
     133          76 :    wann%l_exist = .FALSE.
     134          76 :    wann%l_opened = .FALSE.
     135          76 :    wann%l_cleverskip = .FALSE.
     136          76 :    wann%l_dim(3) = .FALSE.
     137             : 
     138             :    wann%scale_param = 0.0
     139             :    wann%aux_latt_const = 0.0
     140          76 :    wann%hdwf_t1 = 0.0
     141          76 :    wann%hdwf_t2 = 0.0
     142          76 :    wann%nparampts = 0
     143          76 :    wann%fn_eig = ''
     144          76 :    wann%param_file = ''
     145             : 
     146          76 :    wann%scale_param = 1.0
     147          76 :    wann%aux_latt_const = 8.0!5.5!5.45886450 !5.98136400 !8.0725882513951497 !5.4170 !1.0
     148          76 :    wann%param_file='qpts'
     149         304 :    wann%l_dim=.false.
     150             : 
     151          76 : END SUBROUTINE initWannierDefaults
     152             : 
     153             : END MODULE m_init_wannier_defaults

Generated by: LCOV version 1.13