Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
west-public
West
Commits
fe479930
Commit
fe479930
authored
Mar 02, 2018
by
Marco Govoni
Browse files
Removed unused lines
parent
f4c0cdb0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Westpp/do_eigenpot2.f90
View file @
fe479930
...
...
@@ -59,7 +59,7 @@ SUBROUTINE do_eigenpot2 ( )
IF
(
gamma_only
)
THEN
CALL
pdep_db_read
(
westpp_n_pdep_eigen_to_use
)
ELSE
l_print_pdep_read
=
.FALSE.
!
l_print_pdep_read = .FALSE.
IF
(
iq
==
1
)
THEN
l_print_pdep_read
=
.TRUE.
ELSE
...
...
Wfreq/calc_exx2.f90
View file @
fe479930
...
...
@@ -146,7 +146,7 @@ SUBROUTINE calc_exx2( sigma_exx, nb1, nb2 )
!
DO
ib
=
nb1
,
nb2
!
sigma_exx
(
ib
,
iks
)
=
0._DP
!
sigma_exx(ib,iks) = 0._DP
!
IF
(
gamma_only
)
THEN
CALL
single_invfft_gamma
(
dffts
,
npw
,
npwx
,
evc
(
1
,
ib
),
psic
,
'Wave'
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment