From 8ed87b5856f4d5bf11819fa133eb1cd6cabb023e Mon Sep 17 00:00:00 2001 From: dalcorso Date: Mon, 13 Aug 2012 16:40:34 +0000 Subject: [PATCH] Small correction to comments. git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9293 c92efa57-630b-4861-b058-cf58834340f0 --- PW/src/divide_class.f90 | 4 ++-- PW/src/find_group.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/PW/src/divide_class.f90 b/PW/src/divide_class.f90 index f7b29d450..b4d29ed2c 100644 --- a/PW/src/divide_class.f90 +++ b/PW/src/divide_class.f90 @@ -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 diff --git a/PW/src/find_group.f90 b/PW/src/find_group.f90 index 16a917703..c333db8ae 100644 --- a/PW/src/find_group.f90 +++ b/PW/src/find_group.f90 @@ -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 "