Peter Sørensen Update bedfuncs.f90