SUBROUTINE SUBMSK(MOD) COMMON IPAR(10) DO 1 I=1,9 IF(I.EQ.1.OR.I.EQ.5.OR.I.EQ.8)GO TO 1 IPAR(I)=IPAR(I)-MOD*1000000 1 CONTINUE RETURN END