n_dofs_proc_loc (mpiMyWId) = INT(DoFCount)+1
CALL MPI_ALLREDUCE(n_dofs_proc_loc,n_dofs_process,nPx*nPy,
integer n_dofs_proc_loc (0:nPx*nPy-1)
n_dofs_proc_loc (i) = 0