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

Fix indentation (N. Nemec) 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6444 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
nn245 2010-02-22 08:14:43 +00:00
parent e8b49314d3
commit c63ef96da5
3 changed files with 496 additions and 500 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/ggen.f90
View File

@ -327,7 +327,6 @@ SUBROUTINE ggen()
IF ( gamma_only) CALL index_minusg()
RETURN
END SUBROUTINE ggen
!
@ -375,6 +374,5 @@ SUBROUTINE index_minusg()
ENDIF
ENDDO
RETURN
END SUBROUTINE index_minusg

2
PW/gk_sort.f90
View File

@ -105,6 +105,4 @@ SUBROUTINE gk_sort( k, ngm, g, ecut, ngk, igk, gk )
!
ENDDO
!
RETURN
!
END SUBROUTINE gk_sort

10
PW/realus.f90
View File

@ -1821,7 +1821,7 @@ MODULE realus
REAL(DP) :: fac
REAL(DP), ALLOCATABLE, DIMENSION(:) :: w1, w2, bcr, bci
!
real(DP), EXTERNAL :: ddot
REAL(DP), EXTERNAL :: ddot
!
@ -1923,7 +1923,7 @@ MODULE realus
REAL(DP), ALLOCATABLE, DIMENSION(:) :: bcr, bci
COMPLEX(DP) , ALLOCATABLE, DIMENSION(:) :: w1
!
real(DP), EXTERNAL :: ddot
REAL(DP), EXTERNAL :: ddot
!
@ -2025,7 +2025,7 @@ MODULE realus
REAL(DP) :: fac
REAL(DP), ALLOCATABLE, DIMENSION(:) :: w1, w2, bcr, bci
!
real(DP), EXTERNAL :: ddot
REAL(DP), EXTERNAL :: ddot
!
CALL start_clock( 'add_vuspsir' )
@ -2131,7 +2131,7 @@ MODULE realus
!
COMPLEX(DP), ALLOCATABLE, DIMENSION(:) :: w1
!
real(DP), EXTERNAL :: ddot
REAL(DP), EXTERNAL :: ddot
!
CALL start_clock( 'add_vuspsir' )
@ -2753,7 +2753,7 @@ MODULE realus
IF (.not.okvan) RETURN
IF( .not.gamma_only) THEN
WRITE(stdout,*) ' adduspos_gamma_r is a gamma only routine'
WRITE(stdout,*) ' adduspos_gamma_r is a gamma ONLY routine'
STOP
ENDIF