Fix syntax error in comments.

This commit is contained in:
Ye Luo 2021-10-21 14:48:27 -05:00
parent c4d7af9a99
commit 3d59d47561
1 changed files with 10 additions and 10 deletions

View File

@ -17,11 +17,11 @@ MODULE klist
! !
SAVE SAVE
! !
!FIXME !TODO variables as igk_k, mill, g and others persist in the device memory !FIXME !TODO variables as igk_k, mill, g and others persist in the device memory
for the whole duration of the run, their allocation in the device should be ! for the whole duration of the run, their allocation in the device should be
! done using !$acc declare create () instead of using !$acc enter/exit data create/delete(). ! done using !$acc declare create () instead of using !$acc enter/exit data create/delete().
! !
CHARACTER (LEN=32) :: smearing CHARACTER (LEN=32) :: smearing
!! smearing type !! smearing type
REAL(DP) :: xk(3,npk) REAL(DP) :: xk(3,npk)
!! coordinates of k points !! coordinates of k points
@ -115,7 +115,7 @@ CONTAINS
! !
END SUBROUTINE init_igk END SUBROUTINE init_igk
! !
SUBROUTINE deallocate_igk( ) SUBROUTINE deallocate_igk( )
! !
IF (ALLOCATED(ngk)) DEALLOCATE( ngk ) IF (ALLOCATED(ngk)) DEALLOCATE( ngk )
! !
@ -216,7 +216,7 @@ MODULE rap_point_group_so
COMPLEX(DP) :: d_spin(2,2,48) COMPLEX(DP) :: d_spin(2,2,48)
!! the rotation in spin space !! the rotation in spin space
! !
CHARACTER(len=15) :: name_rap_so(12) CHARACTER(len=15) :: name_rap_so(12)
!! the name of the representation !! the name of the representation
CHARACTER(len=5) :: name_class_so(24) CHARACTER(len=5) :: name_class_so(24)
!! the name of the class !! the name of the class
@ -299,7 +299,7 @@ MODULE wvfct
!! the weight of each k point and band !! the weight of each k point and band
REAL(DP), ALLOCATABLE :: g2kin(:) REAL(DP), ALLOCATABLE :: g2kin(:)
!! kinetic energy !! kinetic energy
INTEGER, ALLOCATABLE :: btype(:,:) INTEGER, ALLOCATABLE :: btype(:,:)
!! one if the corresponding state has to be !! one if the corresponding state has to be
!! converged to full accuracy, zero otherwise !! converged to full accuracy, zero otherwise
#if defined(__CUDA) #if defined(__CUDA)
@ -371,7 +371,7 @@ MODULE force_mod
!! the force on each atom !! the force on each atom
REAL(DP) :: sumfor REAL(DP) :: sumfor
!! norm of the gradient (forces) !! norm of the gradient (forces)
REAL(DP) :: sigma(3,3) REAL(DP) :: sigma(3,3)
!! the stress acting on the system !! the stress acting on the system
LOGICAL :: lforce LOGICAL :: lforce
!! if .TRUE. compute the forces !! if .TRUE. compute the forces
@ -475,9 +475,9 @@ MODULE spin_orb
! !
SAVE SAVE
LOGICAL :: lforcet LOGICAL :: lforcet
!! if .TRUE. apply Force Theorem to calculate MAE !! if .TRUE. apply Force Theorem to calculate MAE
LOGICAL :: starting_spin_angle LOGICAL :: starting_spin_angle
!! if .TRUE. the initial wavefunctions are spin-angle functions. !! if .TRUE. the initial wavefunctions are spin-angle functions.
LOGICAL :: domag LOGICAL :: domag
!! if .TRUE. magnetization is computed !! if .TRUE. magnetization is computed
! !