Index: /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f
===================================================================
--- /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f	(revision 14835)
+++ /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f	(revision 14836)
@@ -2,12 +2,14 @@
       implicit double precision (a-h,o-z)
       parameter (Nafter = 1)
-      parameter (Ntime = 2)
+      parameter (Ntime = 5)
+      parameter (Ntimm = Ntime-1)
       parameter (nhank = 1024)
       parameter (Ntimp = Ntime + Nafter)
       double precision decay(2)
       double precision pset(7)
-      double precision time(Ntimp),bi(Ntime),dmi(Ntime)
+      double precision time(Ntimp),bi(Ntimm),dmi(Ntimm)
       double precision dekay1(nhank),dekay2(nhank),amp0(nhank),
      1amp1(nhank),amp2(nhank)
+c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockm/ dekay1,dekay2,amp0,amp1,amp2
       common /blockt/ time,bi,dmi
@@ -42,8 +44,8 @@
       t = time(Ntimp)
       sumb = 0.0d0
-      ta = 0.0d0
-      tb = time(1)
+      ta = time(1)
+      tb = time(2)
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-      do 97 i = 1,Ntime
+      do 97 i = 1,Ntimm
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 c note that this "if" prevents adding load
@@ -64,6 +66,6 @@
    38 call qwise(t,ta,qjadon,xi0,xi1,xi2,slope,ycept,decay,bhaq)
    39 sumb = bhaq + sumb
-      ta = time(i)
-      tb = time(i + 1)
+      ta = time(i + 1)
+      tb = time(i + 2)
    97 continue
       fltng = sumb