integer MPI_COMM_temp
MPI_COMM_temp=MPI_COMM_compcplr(compind)
call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr )
call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr )
& MPI_COMM_temp, ierr )