159599516SKenneth E. Jansen PARAMETER (maxtask = 200) 259599516SKenneth E. Jansen 359599516SKenneth E. Jansen integer INEWCOMM 4*513954efSKenneth E. Jansen integer sevsegtype(maxtask,16) 559599516SKenneth E. Jansen 659599516SKenneth E. Jansen common /newcom/ INEWCOMM 759599516SKenneth E. Jansen common /newtyp/ sevsegtype 8