Remove nthread from mem5 allocation

cmsi · Aug 15, 2021 · 59b38a7 · 59b38a7
1 parent ee839b7
commit 59b38a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mp2grad.F90 b/src/mp2grad.F90
@@ -389,7 +389,7 @@ subroutine mp2gradmulti(emp2st,egrad,egradtmp,cmo,energymo,xint,nocc,noac,nvir,n
  mlsize2=(msize-nao*numi-2*nao2)/(nao*(numi+1))
  if(mlsize2 > maxsize) mlsize2= maxsize
  call memset(numi*mlsize2*nao+nao*numi*nthread+nao2*nthread+nao2+nao*mlsize2,datacomp)
- allocate(tisml(numi*mlsize2*nao),xlmi(nao*numi*nthread),xlmn(nao2*nthread), &
+ allocate(tisml(numi*mlsize2*nao),xlmi(nao*numi),xlmn(nao2), &
 & work1(nao2),work2(nao*mlsize2))
 !
  if(ipass /= npass) then