mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-08 21:40:21 +02:00
22 lines
619 B
Fortran
22 lines
619 B
Fortran
program Symmetry
|
|
implicit none
|
|
BEGIN_DOC
|
|
! TODO
|
|
END_DOC
|
|
integer :: i, j
|
|
character*8 :: sym
|
|
|
|
print *, 'Molecule is linear:', molecule_is_linear
|
|
print *, 'Has center of inversion:', molecule_has_center_of_inversion
|
|
print *, 'Has S2n improper rotation:', molecule_has_improper_rotation
|
|
print *, 'Symmetry rotation axis:', sym_rotation_axis(:)
|
|
print *, 'Group:'//point_group
|
|
print *, 'Symmetry irreps', sym_irrep(1:n_irrep)
|
|
print *, 'Symmetry operations', sym_operation(1:n_irrep)
|
|
print *, 'Character table'
|
|
do i=1,n_irrep
|
|
print *, character_table(i,:)
|
|
enddo
|
|
PROVIDE mo_sym
|
|
end
|