Fix ESP SegFaults with GCC (#728)

* Computing of ESP on a given point for time estimation had incorrect index of array
* j must be private
* Change account of I. Gerasimov

---------

Signed-off-by: Igor S. Gerasimov <i.s.ger@ya.ru>

README.md

@@ -125,7 +125,7 @@ features reality:
 - S. Dohm ([@thch-dohm](https://github.com/thch-dohm))
 - S. Ehlert ([@awvwgk](https://github.com/awvwgk))
 - S. Ehrlich
-- I. Gerasimov ([@FulgurIgor](https://github.com/fulgurigor))
+- I. Gerasimov ([@foxtran](https://github.com/foxtran))
 - [S. Grimme](https://www.chemie.uni-bonn.de/pctc/mulliken-center/grimme/) ([@stefangrimme](https://github.com/stefangrimme))
 - C. Hölzer ([@hoelzerC](https://github.com/hoelzerc))
 - A. Katbashev ([@Albkat](https://github.com/albkat))

src/esp.f

@@ -124,12 +124,12 @@ subroutine espplot(n,nmo,nbf,at,xyz,z,occ,C,basis)
       call timing(t0,w0)
       point=0
       call espints(n,nbf,xyz,intcut,point,pthr,P,
-     &             mprim,npp,nnn,indp,efact,gama,ee,dd,espe(i),basis)
+     &             mprim,npp,nnn,indp,efact,gama,ee,dd,espe(1),basis)
       call timing(t1,w1)
       write(*,'('' estimated wall time (s) '',f6.1)') np*(w1-w0)/nproc
       write(*,*)'computing ESP ...'
 
-!$OMP  PARALLEL PRIVATE(i,rx,ry,rz,r,point)
+!$OMP  PARALLEL PRIVATE(i,j,rx,ry,rz,r,point)
 !$OMP& SHARED(espe,pa,basis)
 !$OMP& DEFAULT(SHARED)
 !$OMP DO