DGPMX25.m

DGPMX25 ; ;10/15/12

 S X=DE(23),DIC=DIE

 S DGPMDDF=7,DGPMDDT=0 D ^DGPMDDCN

DGPMX25   ; ;10/15/12

 +1        SET X=DE(23)

           SET DIC=DIE

 +2        SET DGPMDDF=7

           SET DGPMDDT=0

           DO ^DGPMDDCN