scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Small correction to comments. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9293 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-08-13 16:40:34 +00:00
parent 959aada02f
commit 8ed87b5856
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/src/divide_class.f90
View File

@ -13,7 +13,7 @@ SUBROUTINE divide_class(code_group,nrot,smat,nclass,nelem,elem,which_irr)
! This subroutine receives as input a set of nrot 3x3 matrices smat, which
! are assumed to be the operations of the point group given by code_group.
! smat are in cartesian coordinates.
! This routine divide the group in classes and find:
! This routine divides the group in classes and find:
!
! nclass the number of classes of the group
! nelem(iclass) for each class, the number of elements of the class
@ -817,7 +817,7 @@ END SUBROUTINE coniug_mat
FUNCTION compare_mat(a,b)
!-----------------------------------------------------------------------------
!
! This function compare two 3x3 matrix and returns .true. if they coincide.
! This function compares two 3x3 matrix and returns .true. if they coincide.
!
USE kinds, ONLY : DP
IMPLICIT NONE

2
PW/src/find_group.f90
View File

@ -118,7 +118,7 @@ END SUBROUTINE find_group
!--------------------------------------------------------------------------
FUNCTION group_name(code)
!--------------------------------------------------------------------------
! This function receive a code of the group and provide the name of the
! This function receives a code of the group and provides the name of the
! group. The order is the following:
!
! 1 "C_1 " 11 "D_6 " 21 "D_3h" 31 "O "