;$Id: pcheck.pro,v 1.1 2007/09/02 15:49:11 brandenb Exp $
;
;  This routine calculates the average value of rho
;  when lnrho=1/r.
;
print,0.706720*cos(!pi/2-!pi/10.)*!pi/10./2.1260684E-02    
;
END