Branch data     Line data    Source code

       1                 :             : !!****f* ABINIT/ptg_C1
       2                 :             : !!
       3                 :             : !! NAME
       4                 :             : !! ptg_C1
       5                 :             : !!
       6                 :             : !! FUNCTION
       7                 :             : !!
       8                 :             : !! COPYRIGHT
       9                 :             : !! Copyright (C) 2010-2026 ABINIT group (MG)
      10                 :             : !! This file is distributed under the terms of the
      11                 :             : !! GNU General Public License, see ~abinit/COPYING
      12                 :             : !! or http://www.gnu.org/copyleft/gpl.txt .
      13                 :             : !! For the initials of contributors, see ~abinit/doc/developers/contributors.txt .
      14                 :             : !!
      15                 :             : !! INPUTS
      16                 :             : !!
      17                 :             : !! OUTPUT
      18                 :             : !!
      19                 :             : !! SOURCE
      20                 :             : !!
      21                 :             : !********************************************************************************
      22                 :             : ! This include file has been automatically generated by the script ptg.py
      23                 :             : ! Do not edit! Change the script source instead.
      24                 :             : !********************************************************************************
      25                 :             : 
      26                 :             : ! Point group name  C1 (1)
      27                 :             : 
      28                 :             : #if defined HAVE_CONFIG_H
      29                 :             : #include "config.h"
      30                 :             : #endif
      31                 :             : 
      32                 :             : #include "abi_common.h"
      33                 :             : 
      34                 :             : module m_ptg_C1
      35                 :             : 
      36                 :             : contains
      37                 :             : !!***
      38                 :             : 
      39                 :           0 :  subroutine ptg_C1 (nsym,nclass,sym,class_ids,class_names,Irr)
      40                 :             :  use defs_basis
      41                 :             :  use m_abicore
      42                 :             :  use m_defs_ptgroups,  only : irrep_t
      43                 :             :  implicit none
      44                 :             : 
      45                 :             : !Arguments ------------------------------------
      46                 :             :  integer,intent(out) :: nclass,nsym
      47                 :             :  !arrays
      48                 :             :  integer,allocatable,intent(out) :: sym(:,:,:), class_ids(:,:)
      49                 :             :  character(len=5),allocatable,intent(out) :: class_names(:)
      50                 :             :  type(irrep_t),allocatable,intent(out) :: Irr(:)
      51                 :             :  !Local variables-------------------------------
      52                 :             :  complex(dp) :: j=(0.0_dp,1.0_dp)
      53                 :             :  ! ********************************************************************************
      54                 :             : ! List of symmetries packed in classes
      55                 :           0 :  nsym = 1
      56   [ #  #  #  #  :           0 :  ABI_MALLOC(sym, (3,3,nsym))
          #  #  #  #  #  
             #  #  #  #  
                      # ]
      57   [ #  #  #  # ]:           0 :  sym(:,:,1) = RESHAPE( (/1, 0, 0, 0, 1, 0, 0, 0, 1/) ,(/3,3/) )
      58                 :             : 
      59                 :             : ! Number of classes and corresponding indices
      60                 :           0 :  nclass = 1
      61   [ #  #  #  #  :           0 :  ABI_MALLOC(class_ids, (2,nclass))
          #  #  #  #  #  
             #  #  #  #  
                      # ]
      62                 :           0 :  class_ids(1,1) = 1
      63                 :           0 :  class_ids(2,1) = 1
      64                 :             : 
      65   [ #  #  #  #  :           0 : ABI_MALLOC(class_names,(1))
                   #  # ]
      66                 :           0 :  class_names(1) = "1+"
      67                 :             : 
      68                 :             : ! List of irreducible representations.
      69   [ #  #  #  #  :           0 :  ABI_MALLOC(Irr, (1))
          #  #  #  #  #  
             #  #  #  #  
                      # ]
      70                 :           0 :  Irr(1)%name = "A"
      71                 :           0 :  Irr(1)%dim = 1
      72                 :           0 :  Irr(1)%nsym = 1
      73   [ #  #  #  #  :           0 :  ABI_MALLOC(Irr(1)%mat, (1,1,1))
                   #  # ]
      74   [ #  #  #  # ]:           0 :  Irr(1)%mat(:,:,1) =  RESHAPE( (/1.0/), (/1, 1/) )
      75                 :             : 
      76                 :           0 :  RETURN
      77                 :             :   if (.FALSE.) write(std_out,*) j
      78                 :             :  end subroutine ptg_C1
      79                 :             : !!***
      80                 :             : 
      81                 :             : end module m_ptg_C1
      82                 :             : !!***