Commit d893a13a authored by Matthias Redies's avatar Matthias Redies

wrong size

parent 77ecacef
......@@ -376,7 +376,7 @@ END SUBROUTINE hsmt_sph_gpu
!$OMP PRIVATE(capw1,VecHelpS,VecHelpH)&
!$OMP PRIVATE(kj_start,kj_end,kj_BlockNum, kjb)
ALLOCATE(cph(MAXVAL(lapw%nv)))
ALLOCATE(gdot(0:atoms%lmaxd))
ALLOCATE(gdot(MAXVAL(lapw%nv)))
ALLOCATE(VecHelpS(MAXVAL(lapw%nv)),VecHelpH(MAXVAL(lapw%nv)))
gdot=0.0
qssbti=MERGE(- noco%qss/2,+ noco%qss/2,jintsp.EQ.1)
......
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