!--------------------------------------------------------------------------------------------------
! USES:
! USED:
!--------------------------------------------------------------------------------------------------
#ifdef DP_REAL
#define MPI_REAL MPI_REAL8
#define sgetmo dgetmo
#endif