integer MPI_COMM_mylocal
& MPI_COMM_mylocal,
MPI_COMM_local = MPI_COMM_mylocal
MPI_COMM_mylocal=MPI_COMM_World
MPI_COMM_mylocal=MPI_COMM_component( compind )
& ' MPI_COMM=',MPI_COMM_mylocal,MPI_COMM_myglobal