+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
function massfraction(dm, mass) result (fracm)
real*8, intent(in)
real*8