Commit f3d1f380 authored by Daniel Wortmann's avatar Daniel Wortmann

Changed SOURCE to MOLD in allocate

parent ffdc1568
......@@ -93,8 +93,8 @@ CONTAINS
! Collect the four noco parts into a single matrix
! In collinear case only a copy is done
! In the parallel case also a redistribution happens
ALLOCATE(smat_final,source=smat(1,1))
ALLOCATE(hmat_final,source=smat(1,1))
ALLOCATE(smat_final,mold=smat(1,1))
ALLOCATE(hmat_final,mold=smat(1,1))
CALL eigen_redist_matrix(mpi,lapw,atoms,smat,smat_final)
CALL eigen_redist_matrix(mpi,lapw,atoms,hmat,hmat_final,smat_final)
......
......@@ -9,7 +9,7 @@ MODULE m_hsmt_ab
INTERFACE hsmt_ab
module procedure hsmt_ab_cpu
#ifdef _CUDA
#ifdef CPP_GPU
module procedure hsmt_ab_gpu
#endif
END INTERFACE
......@@ -17,7 +17,7 @@ MODULE m_hsmt_ab
CONTAINS
#ifdef _CUDA
#ifdef CPP_GPU
SUBROUTINE hsmt_ab_gpu(sym,atoms,noco,ispin,iintsp,n,na,cell,lapw,fj,gj,ab,ab_size,l_nonsph,abclo,alo1,blo1,clo1)
!Calculate overlap matrix
......
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