subroutine MITCOMPONENT_INIT( myTypeStr, MPI_COMM_local )
MPI_COMM_local=MPI_COMM_mylocal
integer MPI_COMM_local
subroutine MITCOUPLER_INIT( myTypeStr, MPI_COMM_local )