Index: /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/GiaDeflectionCorex.cpp
===================================================================
--- /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/GiaDeflectionCorex.cpp	(revision 15023)
+++ /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/GiaDeflectionCorex.cpp	(revision 15024)
@@ -12,5 +12,4 @@
 #include "../InputUpdateFromConstantx/InputUpdateFromConstantx.h"
 
-
 /*External blocks: {{{*/
 struct blockp{
@@ -21,5 +20,4 @@
 	double rhoi;
 };
-
 
 struct blockn{
@@ -40,5 +38,5 @@
 	int distme_( int* pidisk,int* piedge, int* pNtime, int* pNtimp, int* pNtimm, int* pNafter,double* time,double* bi,double* dmi,double* zhload,double* hload);
 
-	int what0_( int* pidisk,int* piedge);
+	int what0_( int* pidisk,int* piedge,int* pNtimp,int* pNtimm,double* time,double* bi,double* dmi);
 	extern struct blockp blockp_;
 	extern struct blocko blocko_;
@@ -175,7 +173,6 @@
 	distme_(&idisk,&iedge,&Ntime,&Ntimp,&Ntimm,&Nafter,blockt_time,blockt_bi,blockt_dmi,blocky_zhload,blocko_hload); 
 
-
 	/*Call what0 driver: */
-	what0_(&idisk,&iedge); 
+	what0_(&idisk,&iedge,&Ntimp,&Ntimm,blockt_time,blockt_bi,blockt_dmi); 
 
 	/*output solution: */
Index: /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/ojrule.f
===================================================================
--- /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/ojrule.f	(revision 15023)
+++ /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/ojrule.f	(revision 15024)
@@ -2,16 +2,13 @@
       implicit double precision(a-h,o-z)
       parameter (nhank = 1024)
-      parameter (N3G = 1)
-      parameter (npat = N3G)
       double precision yvalue(nhank),bcin(nhank)
       double precision wok, rpos
       double precision pset(7)
-      double precision swok, asrpos, aswokm, distrad
+      double precision aswokm, distrad
+c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockrad/ distrad
-c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockp/ pset
-      common /blocki/ INTERN
       common /blockn/ irate
-      common /blocks/ aswokm,asrpos,swok
+      common /blocks/ aswokm
       data zero /0.0d0/, one /1.0d0/, two /2.0d0/, three /3.0d0/,
      1rescal/ 1.0d0/
@@ -60,6 +57,4 @@
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       subroutine wolfc(rpos,wok)
-      parameter (N3G = 1)
-      parameter (npat = N3G)
       double precision wok, rpos
       double precision pset(7)
@@ -67,7 +62,5 @@
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockp/ pset
-      common /blocki/ INTERN
-      common /blockn/ irate
-      common /blocks/ aswokm,asrpos,swok
+      common /blocks/ aswokm
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 c make single prec. and return to dimensional units.
@@ -85,6 +78,4 @@
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       subroutine rates(rpos,wok)
-      parameter (N3G = 1)
-      parameter (npat = N3G)
       double precision wok, rpos
       double precision pset(7)
@@ -92,7 +83,5 @@
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockp/ pset
-      common /blocki/ INTERN
-      common /blockn/ irate
-      common /blocks/ aswokm,asrpos,swok
+      common /blocks/ aswokm
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       data ngyo /050201/
Index: /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f
===================================================================
--- /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f	(revision 15023)
+++ /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/stot.f	(revision 15024)
@@ -1,9 +1,7 @@
-      subroutine stot(ikval,qjadon,fltng)
+      subroutine stot(ikval,qjadon,fltng,Ntimp,Ntimm,time,bi,dmi)
       implicit double precision (a-h,o-z)
+      integer Ntimp,Ntimm
       parameter (Nafter = 1)
-      parameter (Ntime = 5)
-      parameter (Ntimm = Ntime-1)
       parameter (nhank = 1024)
-      parameter (Ntimp = Ntime + Nafter)
       double precision decay(2)
       double precision pset(7)
@@ -13,5 +11,4 @@
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
       common /blockm/ dekay1,dekay2,amp0,amp1,amp2
-      common /blockt/ time,bi,dmi
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 c  This subroutine returns the inverse Laplace transform to the
@@ -39,4 +36,5 @@
       xi1 = amp1(ikval)
       xi2 = amp2(ikval)
+
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 c note that tspan must be updated in the calling routine "what0.f"
Index: /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/what0.f
===================================================================
--- /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/what0.f	(revision 15023)
+++ /issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/what0.f	(revision 15024)
@@ -1,4 +1,5 @@
-      subroutine what0(idisk,iedge)
+      subroutine what0(idisk,iedge,Ntimp,Ntimm,time,bi,dmi)
       implicit double precision (a-h,o-z)
+      integer Ntimp,Ntimm
       parameter (nhank = 1024)
       parameter (N = nhank/2)
@@ -8,4 +9,5 @@
      1decta(2),dyri1(nhank),dyri2(nhank),sna(nhank)
       double precision cinner(nhank),bcin(nhank)
+      double precision time(Ntimp),bi(Ntimm),dmi(Ntimm)
       integer maxk
 c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@@ -89,5 +91,5 @@
       pref = diku / ( diku + rghm )
       qjadon = one / ( four * zksamp(ik) * urat )
-      call stot(ik,qjadon,fltng)
+      call stot(ik,qjadon,fltng,Ntimp,Ntimm,time,bi,dmi)
       cinner(ik) = - fltng * pref * twoap
       bcin(ik) = cinner(ik) * dbesj1(xakap)
@@ -108,5 +110,5 @@
       pref = diku / ( diku + rghm )
       qjadon = one / ( four * zksamp(ik) * urat )
-      call stot(ik,qjadon,fltng)
+      call stot(ik,qjadon,fltng,Ntimp,Ntimm,time,bi,dmi)
       cinner(ik) = - fltng * pref * twoap
       bcin(ik) = cinner(ik) * oxakap * ( dsin(xakap) * oxakap