[8] | 1 | ! Overlapp of MPI functions not present in some MPI implementations. |
---|
| 2 | |
---|
| 3 | !- |
---|
| 4 | !- $Header: /home/ssipsl/CVSREP/ORCHIDEE/src_parallel/mpi_dummy.h,v 1.2 2007/06/12 08:04:26 ssipsl Exp $ |
---|
| 5 | !- |
---|
| 6 | #ifdef MPI_SECOND__ |
---|
| 7 | |
---|
| 8 | SUBROUTINE MPI_NULL_COPY_FN |
---|
| 9 | END SUBROUTINE MPI_NULL_COPY_FN |
---|
| 10 | |
---|
| 11 | SUBROUTINE MPI_NULL_DELETE_FN |
---|
| 12 | END SUBROUTINE MPI_NULL_DELETE_FN |
---|
| 13 | |
---|
| 14 | SUBROUTINE MPI_COMM_NULL_COPY_FN |
---|
| 15 | END SUBROUTINE MPI_COMM_NULL_COPY_FN |
---|
| 16 | |
---|
| 17 | SUBROUTINE MPI_COMM_NULL_DELETE_FN |
---|
| 18 | END SUBROUTINE MPI_COMM_NULL_DELETE_FN |
---|
| 19 | |
---|
| 20 | SUBROUTINE MPI_TYPE_NULL_COPY_FN |
---|
| 21 | END SUBROUTINE MPI_TYPE_NULL_COPY_FN |
---|
| 22 | |
---|
| 23 | SUBROUTINE MPI_TYPE_NULL_DELETE_FN |
---|
| 24 | END SUBROUTINE MPI_TYPE_NULL_DELETE_FN |
---|
| 25 | |
---|
| 26 | SUBROUTINE MPI_WIN_NULL_COPY_FN |
---|
| 27 | END SUBROUTINE MPI_WIN_NULL_COPY_FN |
---|
| 28 | |
---|
| 29 | SUBROUTINE MPI_WIN_NULL_DELETE_FN |
---|
| 30 | END SUBROUTINE MPI_WIN_NULL_DELETE_FN |
---|
| 31 | |
---|
| 32 | SUBROUTINE MPI_DUP_FN |
---|
| 33 | END SUBROUTINE MPI_DUP_FN |
---|
| 34 | |
---|
| 35 | SUBROUTINE MPI_COMM_DUP_FN |
---|
| 36 | END SUBROUTINE MPI_COMM_DUP_FN |
---|
| 37 | |
---|
| 38 | SUBROUTINE MPI_TYPE_DUP_FN |
---|
| 39 | END SUBROUTINE MPI_TYPE_DUP_FN |
---|
| 40 | |
---|
| 41 | SUBROUTINE MPI_WIN_DUP_FN |
---|
| 42 | END SUBROUTINE MPI_WIN_DUP_FN |
---|
| 43 | |
---|
| 44 | FUNCTION MPI_WTIME () RESULT (R) |
---|
| 45 | DOUBLE PRECISION R |
---|
| 46 | END FUNCTION MPI_WTIME |
---|
| 47 | |
---|
| 48 | FUNCTION MPI_WTICK () RESULT (R) |
---|
| 49 | DOUBLE PRECISION :: R |
---|
| 50 | END FUNCTION MPI_WTICK |
---|
| 51 | |
---|
| 52 | FUNCTION PMPI_WTIME () RESULT (R) |
---|
| 53 | DOUBLE PRECISION R |
---|
| 54 | END FUNCTION PMPI_WTIME |
---|
| 55 | |
---|
| 56 | FUNCTION PMPI_WTICK () RESULT (R) |
---|
| 57 | DOUBLE PRECISION R |
---|
| 58 | END FUNCTION PMPI_WTICK |
---|
| 59 | |
---|
| 60 | #endif |
---|