c program to take density and mass and spit out radius
          print*,'Enter mass in kg, and radius:'
          read*,w,r
          volume= 4.0*3.14*(R**3)/3.0
          print*,'Density: ',w/volume
          print*,'  '
c          radius=(volume*3.0/4.0/3.13)**0.3333
c          print*,'Radius =',radius,' Rj = ',radius/6.99e7
         stop
          end