1       subroutine 
fcvpsol(tcv,y,fy,r,z,gam,delta,lr,ipar,rpar,w,ier)
 
    3       real tcv,y(*),fy(*),r(*),z(*),gam,delta,rpar(*),w(*)
 
    9 c----------------------------------------------------------------------
 
   10       subroutine fcvpset(tcv,y,fy,jok,jcur,gam,h,ipar,rpar,w1,w2,w3,ier)
 
   12       real tcv,y(*),fy(*),gam,h,rpar(*),w1(*),w2(*),w3(*)