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              : !!***