function  rearth (lati)
    {
        var    rrnrm, r,lat

        lat   =  Number(lati);

        rrnrm =  radcur ( lat );
        r     =  rrnrm[0];

        return ( r );

    }
//        physical radius of earth from geodetic latitude

physical radius of earth from geodetic latitude
physical radius of earth from geodetic latitude
function  rearth (lati)
    {
        var    rrnrm, r,lat
        lat   =  Number(lati);
        rrnrm =  radcur ( lat );
        r     =  rrnrm[0];
        return ( r );
    }
function rearth ( lati ) { var rrnrm , r , lat lat = Number ( lati ) ; rrnrm = radcur ( lat ) ; r = rrnrm [ 0 ] ; return ( r ) ; }
physical radius of earth from geodetic latitude
physical radius of earth from geodetic latitude