!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!! debug !!!!!!!!!!!!!!!
!!!!!! debug !!!!!!!!!!!!!!! call mpidata%end()