Commit 58ceca94 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files

Fix MPI-related uninitialized variables bug in init/make_stars.f90

parent 66e43140
......@@ -114,16 +114,16 @@ CONTAINS
CALL lapw_fft_dim(cell,input,noco,stars)
!count number of stars in 2*rkmax (stars are ordered)
associate(i=>stars%ng3_fft)
DO i=stars%ng3,1,-1
IF ( stars%sk3(i).LE.2.0*input%rkmax ) EXIT
END DO
end associate
CALL timestop("strgn")
ENDIF
!count number of stars in 2*rkmax (stars are ordered)
associate(i=>stars%ng3_fft)
DO i=stars%ng3,1,-1
IF ( stars%sk3(i).LE.2.0*input%rkmax ) EXIT
ENDDO
end associate
CALL stars%mpi_bc(fmpi%mpi_comm)
CALL timestart("stepf")
......
Supports Markdown
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