1 PARAMETER (maxtask = 200) 2 3 integer INEWCOMM 4 integer sevsegtype(maxtask,16) 5 6 common /newcom/ INEWCOMM 7 common /newtyp/ sevsegtype 8