Reverted some unnecessary changes

njoy · Jul 3, 2018 · 7536149 · 7536149
1 parent fd859b4
commit 7536149
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/unresr.f90 b/src/unresr.f90
@@ -1258,6 +1258,7 @@ subroutine intr(e,dx,gxx,gnox,ggx,gfx,inow,ne,int,a)
    ! internals
    integer::i1,i,i2
    real(kr),parameter::small=1.e-8_kr
+
    i1=inow
    do i=2,ne
       i2=i1+6
@@ -1268,7 +1269,7 @@ subroutine intr(e,dx,gxx,gnox,ggx,gfx,inow,ne,int,a)
          call terp1(a(i1),a(i1+4),a(i2),a(i2+4),e,ggx,int)
          call terp1(a(i1),a(i1+5),a(i2),a(i2+5),e,gfx,int)
       endif
-      if (i.lt.ne) i1=i2 
+      if (i.lt.ne) i1=i2
    enddo
    if (gxx.lt.small) gxx=0
    if (gfx.lt.small) gfx=0