integer,parameter :: MaxMoveType = 4
!-----------------------------------------------------------------------------
! Max. number of processors.
- integer,parameter :: maxprocs=2048
+! integer,parameter :: maxprocs=2048
!el integer,parameter :: maxprocs=4200
!-----------------------------------------------------------------------------
!-----------------------------------------------------------------------------