integer MaxN,MaxHdim,maxT_h
      parameter (maxN=maxprocs/20)
      parameter (maxHdim=200)
      parameter (maxT_h=maxprocs)