Commit de4b5800 authored by Marco Govoni's avatar Marco Govoni
Browse files

Update write_wfc_spav.f90, ig=1. He Ma.

parent eb270b9b
......@@ -53,7 +53,7 @@ SUBROUTINE write_wfc_spav ( iu, fname, wfc, r0, nr, rmax )
IF ( gamma_only ) THEN
!
IF(gstart == 2) THEN
spav(:) = spav(:) + REAL( wfc(ig) , KIND=DP )
spav(:) = spav(:) + REAL( wfc(1) , KIND=DP )
ENDIF
!
DO ig = gstart, ngm
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment