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

Misspells

This commit is contained in:
Paolo Giannozzi 2021-06-15 19:33:35 +02:00
parent 963cccd595
commit 1022784731
8 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
FFTXlib/fft_helper_subroutines.f90
View File

@ -314,7 +314,7 @@ CONTAINS
!
psi = 0.0d0
!
! nlm and nl array: hold conversion indices form 3D to
! nlm and nl array: hold conversion indices from 3D to
! 1-D vectors. Columns along the z-direction are stored
! contigiously
! c array: stores the Fourier expansion coefficients
@ -353,7 +353,7 @@ CONTAINS
!
psi = 0.0d0
!
! nlm and nl array: hold conversion indices form 3D to
! nlm and nl array: hold conversion indices from 3D to
! 1-D vectors. Columns along the z-direction are stored
! contigiously
! c array: stores the Fourier expansion coefficients
@ -388,7 +388,7 @@ CONTAINS
! local variables
integer :: ig
!
! nl array: hold conversion indices form 3D to 1-D vectors.
! nl array: hold conversion indices from 3D to 1-D vectors.
! Columns along the z-direction are stored contigiously
! c array: stores the Fourier expansion coefficients of the wave function
! Loop for all local g-vectors (npw
@ -415,7 +415,7 @@ CONTAINS
!
psi = 0.0d0
!
! nlm and nl array: hold conversion indices form 3D to
! nlm and nl array: hold conversion indices from 3D to
! 1-D vectors. Columns along the z-direction are stored
! contigiously
! c array: stores the Fourier expansion coefficients

2
KS_Solvers/ParO/bpcg_gamma.f90
View File

@ -63,7 +63,7 @@ SUBROUTINE bpcg_gamma( hs_psi, g_1psi, psi0, spsi0, npw, npwx, nbnd, nvec, psi,
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP),INTENT(IN) :: psi0(npwx,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP),INTENT(IN) :: spsi0(npwx,nbnd) ! Spsi0 needed to compute the Pv projection

2
KS_Solvers/ParO/bpcg_gamma_gpu.f90
View File

@ -70,7 +70,7 @@ SUBROUTINE bpcg_gamma_gpu( hs_psi_gpu, g_1psi_gpu, psi0_d, spsi0_d, npw, npwx, n
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP), INTENT(IN) :: psi0_d(npwx,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP), INTENT(IN) :: spsi0_d(npwx,nbnd) ! Spsi0 needed to compute the Pv projection
!

2
KS_Solvers/ParO/bpcg_k.f90
View File

@ -63,7 +63,7 @@ SUBROUTINE bpcg_k( hs_psi, g_1psi, psi0, spsi0, npw, npwx, nbnd, npol, nvec, psi
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP),INTENT(IN) :: psi0(npwx*npol,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP),INTENT(IN) :: spsi0(npwx*npol,nbnd) ! Spsi0 needed to compute the Pv projection

2
KS_Solvers/ParO/bpcg_k_gpu.f90
View File

@ -68,7 +68,7 @@ SUBROUTINE bpcg_k_gpu( hs_psi_gpu, g_1psi_gpu, psi0_d, spsi0_d, npw, npwx, nbnd,
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP),INTENT(IN) :: psi0_d(npwx*npol,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP),INTENT(IN) :: spsi0_d(npwx*npol,nbnd) ! Spsi0 needed to compute the Pv projection

2
KS_Solvers/ParO/pcg_gamma.f90
View File

@ -61,7 +61,7 @@ SUBROUTINE pcg_gamma( hs_1psi, g_1psi, psi0, spsi0, npw, npwx, nbnd, psi, ethr,
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP),INTENT(IN) :: psi0(npwx,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP),INTENT(IN) :: spsi0(npwx,nbnd) ! Spsi0 needed to compute the Pv projection

2
KS_Solvers/ParO/pcg_k.f90
View File

@ -61,7 +61,7 @@ SUBROUTINE pcg_k( hs_1psi, g_1psi, psi0, spsi0, npw, npwx, nbnd, npol, psi, ethr
!
IMPLICIT NONE
!
! Following varibales are temporary
! Following variables are temporary
COMPLEX(DP),INTENT(IN) :: psi0(npwx*npol,nbnd) ! psi0 needed to compute the Pv projection
COMPLEX(DP),INTENT(IN) :: spsi0(npwx*npol,nbnd) ! Spsi0 needed to compute the Pv projection

2
PW/src/divide_class_so.f90
View File

@ -3621,7 +3621,7 @@ IF (cosa < -eps ) u=-u
! IF (ax(1)*ax(3) < -eps) u=-u
!ENDIF
!
! Here compute the 3x3 rotation matrix starting form the axis, angle
! Here compute the 3x3 rotation matrix starting from the axis, angle
! or from the rotation in spin space for consistency check.
!
!angle=angle*2.d0