comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

missing abelian groups

Browse source
This commit is contained in:
Edoardo Apra 2015-12-07 22:45:47 +00:00
parent 0374d17c19
commit c50b85bfbd
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/symmetry/sym_abelian.F
View file

@ -10,9 +10,11 @@ c Return true if the point group of the geometry is abelian
c
character*8 group
integer nab, ind
parameter (nab = 8)
parameter (nab = 18)
character*4 ab(nab)
data ab/ 'C1','Cs','Ci','C2','D2','C2v','C2h','D2h'/
data ab/ 'C1','Cs','Ci','C2','D2','C2v','C2h','D2h',
C 'C3','C4','C5','C6','C7','C8',
C 'C3h','C4h','C5h','C6h'/
c
call sym_group_name(geom, group)
c