1*59599516SKenneth E. Jansen PARAMETER (maxtask = 200) 2*59599516SKenneth E. Jansen 3*59599516SKenneth E. Jansen integer INEWCOMM 4*59599516SKenneth E. Jansen integer sevsegtype(maxtask,15) 5*59599516SKenneth E. Jansen 6*59599516SKenneth E. Jansen common /newcom/ INEWCOMM 7*59599516SKenneth E. Jansen common /newtyp/ sevsegtype 8