c* Arrays dynamically allocated in this routine: c* c* real w (ia(_JT_nrows_)) c* real c (iparm(_JT_nold_)+1) c* real s (iparm(_JT_nold_)+1) c* real r (iparm(_JT_nold_)+1) c* real rt (iparm(_JT_nold_)+1) c* real h (iparm(_JT_nold_)+1,iparm(_JT_nold_)+1) c* real v (ia(_JT_nrows_),iparm(_JT_nold_)+1) c* real xold (ia(_JT_nrows_)) c* real xt (ia(_JT_nrows_))