integer LEGENDRE,CHEBYSHEV,SHELL,BSPLINE
       integer UPPERMANTLE,WHOLEMANTLE,LOWERMANTLE,UPPERLOWERM
       parameter( LEGENDRE=1)
       parameter( CHEBYSHEV=2)
       parameter( SHELL=3)
       parameter( BSPLINE=4)

       parameter( RMOHO=6346.0)
       parameter( RCMB=3479.9)

       parameter( UPPERMANTLE=1)
       parameter( WHOLEMANTLE=2)
       parameter( LOWERMANTLE=3)
       parameter( UPPERLOWERM=4)