
CALL dpsm()

END