Commit e8aa9f6c authored by Matthias Redies's avatar Matthias Redies

remove very slow prints

parent 3a93149b
......@@ -1707,10 +1707,8 @@
add2 = rdum2*rfac2 - rdum1*rfac1
DO i = 1,hybrid%nindxm1(l,itype)
j = lm1 + i
IF ((j.LE.20).AND.(ibando.LE.2).AND.(iband.LE.1)) WRITE(2030,'(3i7,3f15.8)') j, ibando, iband, cprod(j,ibando,iband), hybdat%prodm(i,n,l,itype), add1
cprod(j,ibando,iband) = cprod(j,ibando,iband) + hybdat%prodm(i,n,l,itype)*add1!( cos1 + sin2 )
j = lm2 + i
IF ((j.LE.20).AND.(ibando.LE.2).AND.(iband.LE.1)) WRITE(2030,'(3i7,3f15.8)') j, ibando, iband, cprod(j,ibando,iband), hybdat%prodm(i,n,l,itype), add2
cprod(j,ibando,iband) = cprod(j,ibando,iband) + hybdat%prodm(i,n,l,itype)*add2!( cos2 - sin1 )
END DO !i -> loop over mixed basis functions
......
  • @micha i removed some of your debugging output. I hope this is ok. It was ~5-8% of the total runtime in vtune.

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