       MODULE mppstaff_comm
!-----------------------------------------------------------------------
       IMPLICIT NONE
       save

       CHARACTER(len=4):: c_mype
       
       INTEGER :: mype, npes, iTYPE,  mpi_comm_comp,&
                 listInVrbls, listInConst, listOut,dgnsnum,dgnstag

!-----------------------------------------------------------------------
       END MODULE mppstaff_comm
