	Subroutine Metric(s,f,fp,f2p,k,kp)
	Implicit None
	Real*8 s,r,f,fp,f2p,k,kp
        Real*8 A22,A33,A34,A35,A44,b2,B22,B33,B34,B35,B44
        Common/series/A22,A33,A34,A35,A44,B22,B33,B34,B35,B44
	r = s+1.d0
       f = (A35*s**3)/r**5 + (A34*s**3)/r**4 + (A44*s**4)/r**4 +
     -   (A33*s**3)/r**3 + A22*s**2/r**2
       fp = (-5*A35*s**3)/r**6 + (3*A35*s**2)/r**5 - (4*A34*s**3)/r**5 -
     -   (4*A44*s**4)/r**5 + (3*A34*s**2)/r**4 - (3*A33*s**3)/r**4 +
     -   (4*A44*s**3)/r**4 - (2*A22*s**2)/r**3 + (3*A33*s**2)/r**3 +
     -   (2*A22*s)/r**2
       f2p =  (30*A35*s**3)/r**7 - (30*A35*s**2)/r**6 + (20*A34*s**3)/r**6 +
     -   (20*A44*s**4)/r**6 + (6*A35*s)/r**5 - (24*A34*s**2)/r**5 +
     -   (12*A33*s**3)/r**5 - (32*A44*s**3)/r**5 + (6*A34*s)/r**4 +
     -   (6*A22*s**2)/r**4 - (18*A33*s**2)/r**4 + (12*A44*s**2)/r**4 -
     -   (8*A22*s)/r**3 + (6*A33*s)/r**3 + 2*A22/r**2
       k = (B35*s**3)/r**5 + (B34*s**3)/r**4 + (B44*s**4)/r**4 + (B33*s**3)/r**3 +
     -   (B22*s**2)/r**2
       kp = (-5*B35*s**3)/r**6 + (3*B35*s**2)/r**5 - 4*B34*s**3/r**5 - 
     -   (4*B44*s**4)/r**5 + (3*B34*s**2)/r**4 +
     -   (4*B44*s**3)/r**4 - (3*B33*s**3)/r**4 - (2*B22*s**2)/r**3 +
     -   (3*B33*s**2)/r**3 + (2*B22*s)/r**2
	Return
	End
