PARAMETER (maxtask = 200)

      integer INEWCOMM
      integer sevsegtype(maxtask,16)

      common /newcom/ INEWCOMM
      common /newtyp/ sevsegtype