Imported from CMS program DITS002