SUBROUTINE ADDMSK(MOD) C ENABLES THE SYSTEM TO HANDLE MORE THAN ONE PACK IN SAME PROGRAM C PACKS MAY BE ON DIFFERENT FILE STRUCTURES 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