Actual source code: dshep.c