Line data    Source code

       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 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_types_sphhar
       8             :   USE m_juDFT
       9             :   USE m_types_fleurinput_base
      10             :   IMPLICIT NONE
      11             :   PRIVATE
      12             :   PUBLIC :: t_sphhar
      13             :    !Data for the spherical harmonics
      14             :   TYPE:: t_sphhar
      15             :       !No of symmetry types (must
      16             :       !equal maxval(sym%ntypsy)
      17             :       INTEGER ::ntypsd
      18             :       !Max no of members of sphhar
      19             :       INTEGER ::memd
      20             :       !max of nlh
      21             :       INTEGER ::nlhd
      22             :       !No of sphhar (ntypsd)
      23             :       INTEGER, ALLOCATABLE ::nlh(:)
      24             :       !l's of sphhar (0:nlhd,ntypsd)
      25             :       INTEGER, ALLOCATABLE ::llh(:, :)
      26             :       !No of members in sphhar (0:nlh
      27             :       INTEGER, ALLOCATABLE ::nmem(:, :)
      28             :       !lm's of of members (max(nmem),
      29             :       INTEGER, ALLOCATABLE ::mlh(:, :, :)
      30             :       !phasefactors (max(nmem),0:nlhd
      31             :       COMPLEX, ALLOCATABLE ::clnu(:, :, :)
      32             :    END TYPE t_sphhar
      33             :  CONTAINS
      34           0 :  END MODULE m_types_sphhar