tempN20 = one
tempN20 = dd20*tempN20
plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20)
& + tempN/tempN20)
_RL one, two, three, tempN, tempN20
plumek(i) = one - min(one,tempN/tempN20)