+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
function fluxfraction(dm) result(frac)
real*8, intent(in)
real*8