Merge pull request #179 from jeffhammond/more-aocc-fixes

unsafely downcast INTEGER to INTEGER*4 when used in arithmetic GOTO
nwchemgit · Feb 13, 2020 · 323447f · 323447f
2 parents 7d42da3 + 750a63c
commit 323447f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/geom/geom_hnd.F b/src/geom/geom_hnd.F
@@ -4602,7 +4602,8 @@ SUBROUTINE HND_GIVDIA(A,VEC,EIG,IA,N,NDIM,
 C        -----  A GIVENS HOUSHOLDER MATRIX DIAGONALIZATION  -----
 C        -----  ROUTINE SAME AS EIGEN BUT WORKS WITH A      -----
 C        -----  LINEAR ARRAY.                               -----
-      integer n,ndim,n1,n2,nr,ik
+      integer n,ndim,nr,ik
+      integer*4 n1, n2
       integer IA(1)
       integer IPOSV(*),IVPOS(*),IORD(*)
       double precision A(1),VEC(NDIM,1),EIG(1)