And the same for each peer rotine of each routine group

# Symbols for mpif.h and use mpi # define MPI_SEND_with_mpi_OLD # MPI_SEND mpi_send mpi_send_ mpi_send__

#define MPI_SEND_with_mpi_TR # MPI_Send_f          # has choice buffer as array descriptor

# Symbols for use mpi_f08 (not using the new interop TR) # define MPI_SEND_with_mpi_f08_OLD # MPI_SEND_f08 mpi_send_f08 mpi_send_f08_ mpi_send_f08__

# define MPI_SEND_with_mpi_f08_TR # MPI_Send_f08         # has choice buffer as array descriptor

-- Dr. Rolf Rabenseifner . . . . . . . . . .. email [email protected] High Performance Computing Center (HLRS) . phone ++49(0)711/685-65530 University of Stuttgart . . . . . . . . .. fax ++49(0)711 / 685-65832 Head of Dpmt Parallel Computing . . . www.hlrs.de/people/rabenseifner Nobelstr. 19, D-70550 Stuttgart, Germany . (Office: Allmandring 30)