-: 0:Source:/home/MPI/testing/mpich2/mpich2/src/binding/f77/file_write_atf.c
-: 0:Graph:file_write_atf.gcno
-: 0:Data:-
-: 0:Runs:0
-: 0:Programs:0
-: 1:/* -*- Mode: C; c-basic-offset:4 ; -*- */
-: 2:/*
-: 3: * (C) 2001 by Argonne National Laboratory.
-: 4: * See COPYRIGHT in top-level directory.
-: 5: *
-: 6: * This file is automatically generated by buildiface
-: 7: * DO NOT EDIT
-: 8: */
-: 9:#include "mpi_fortimpl.h"
-: 10:
-: 11:
-: 12:/* Begin MPI profiling block */
-: 13:#if defined(USE_WEAK_SYMBOLS) && !defined(USE_ONLY_MPI_NAMES)
-: 14:#if defined(HAVE_MULTIPLE_PRAGMA_WEAK)
-: 15:extern FORT_DLL_SPEC void FORT_CALL MPI_FILE_WRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 16:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 17:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 18:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 19:
-: 20:#if defined(F77_NAME_UPPER)
-: 21:#pragma weak MPI_FILE_WRITE_AT = PMPI_FILE_WRITE_AT
-: 22:#pragma weak mpi_file_write_at__ = PMPI_FILE_WRITE_AT
-: 23:#pragma weak mpi_file_write_at_ = PMPI_FILE_WRITE_AT
-: 24:#pragma weak mpi_file_write_at = PMPI_FILE_WRITE_AT
-: 25:#elif defined(F77_NAME_LOWER_2USCORE)
-: 26:#pragma weak MPI_FILE_WRITE_AT = pmpi_file_write_at__
-: 27:#pragma weak mpi_file_write_at__ = pmpi_file_write_at__
-: 28:#pragma weak mpi_file_write_at_ = pmpi_file_write_at__
-: 29:#pragma weak mpi_file_write_at = pmpi_file_write_at__
-: 30:#elif defined(F77_NAME_LOWER_USCORE)
-: 31:#pragma weak MPI_FILE_WRITE_AT = pmpi_file_write_at_
-: 32:#pragma weak mpi_file_write_at__ = pmpi_file_write_at_
-: 33:#pragma weak mpi_file_write_at_ = pmpi_file_write_at_
-: 34:#pragma weak mpi_file_write_at = pmpi_file_write_at_
-: 35:#else
-: 36:#pragma weak MPI_FILE_WRITE_AT = pmpi_file_write_at
-: 37:#pragma weak mpi_file_write_at__ = pmpi_file_write_at
-: 38:#pragma weak mpi_file_write_at_ = pmpi_file_write_at
-: 39:#pragma weak mpi_file_write_at = pmpi_file_write_at
-: 40:#endif
-: 41:
-: 42:
-: 43:
-: 44:#elif defined(HAVE_PRAGMA_WEAK)
-: 45:
-: 46:#if defined(F77_NAME_UPPER)
-: 47:extern FORT_DLL_SPEC void FORT_CALL MPI_FILE_WRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 48:
-: 49:#pragma weak MPI_FILE_WRITE_AT = PMPI_FILE_WRITE_AT
-: 50:#elif defined(F77_NAME_LOWER_2USCORE)
-: 51:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 52:
-: 53:#pragma weak mpi_file_write_at__ = pmpi_file_write_at__
-: 54:#elif !defined(F77_NAME_LOWER_USCORE)
-: 55:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 56:
-: 57:#pragma weak mpi_file_write_at = pmpi_file_write_at
-: 58:#else
-: 59:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 60:
-: 61:#pragma weak mpi_file_write_at_ = pmpi_file_write_at_
-: 62:#endif
-: 63:
-: 64:#elif defined(HAVE_PRAGMA_HP_SEC_DEF)
-: 65:#if defined(F77_NAME_UPPER)
-: 66:#pragma _HP_SECONDARY_DEF PMPI_FILE_WRITE_AT MPI_FILE_WRITE_AT
-: 67:#elif defined(F77_NAME_LOWER_2USCORE)
-: 68:#pragma _HP_SECONDARY_DEF pmpi_file_write_at__ mpi_file_write_at__
-: 69:#elif !defined(F77_NAME_LOWER_USCORE)
-: 70:#pragma _HP_SECONDARY_DEF pmpi_file_write_at mpi_file_write_at
-: 71:#else
-: 72:#pragma _HP_SECONDARY_DEF pmpi_file_write_at_ mpi_file_write_at_
-: 73:#endif
-: 74:
-: 75:#elif defined(HAVE_PRAGMA_CRI_DUP)
-: 76:#if defined(F77_NAME_UPPER)
-: 77:#pragma _CRI duplicate MPI_FILE_WRITE_AT as PMPI_FILE_WRITE_AT
-: 78:#elif defined(F77_NAME_LOWER_2USCORE)
-: 79:#pragma _CRI duplicate mpi_file_write_at__ as pmpi_file_write_at__
-: 80:#elif !defined(F77_NAME_LOWER_USCORE)
-: 81:#pragma _CRI duplicate mpi_file_write_at as pmpi_file_write_at
-: 82:#else
-: 83:#pragma _CRI duplicate mpi_file_write_at_ as pmpi_file_write_at_
-: 84:#endif
-: 85:#endif /* HAVE_PRAGMA_WEAK */
-: 86:#endif /* USE_WEAK_SYMBOLS */
-: 87:/* End MPI profiling block */
-: 88:
-: 89:
-: 90:/* These definitions are used only for generating the Fortran wrappers */
-: 91:#if defined(USE_WEAK_SYMBOLS) && defined(HAVE_MULTIPLE_PRAGMA_WEAK) && \
-: 92: defined(USE_ONLY_MPI_NAMES)
-: 93:extern FORT_DLL_SPEC void FORT_CALL MPI_FILE_WRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 94:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 95:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 96:extern FORT_DLL_SPEC void FORT_CALL mpi_file_write_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 97:
-: 98:#if defined(F77_NAME_UPPER)
-: 99:#pragma weak mpi_file_write_at__ = MPI_FILE_WRITE_AT
-: 100:#pragma weak mpi_file_write_at_ = MPI_FILE_WRITE_AT
-: 101:#pragma weak mpi_file_write_at = MPI_FILE_WRITE_AT
-: 102:#elif defined(F77_NAME_LOWER_2USCORE)
-: 103:#pragma weak MPI_FILE_WRITE_AT = mpi_file_write_at__
-: 104:#pragma weak mpi_file_write_at_ = mpi_file_write_at__
-: 105:#pragma weak mpi_file_write_at = mpi_file_write_at__
-: 106:#elif defined(F77_NAME_LOWER_USCORE)
-: 107:#pragma weak MPI_FILE_WRITE_AT = mpi_file_write_at_
-: 108:#pragma weak mpi_file_write_at__ = mpi_file_write_at_
-: 109:#pragma weak mpi_file_write_at = mpi_file_write_at_
-: 110:#else
-: 111:#pragma weak MPI_FILE_WRITE_AT = mpi_file_write_at
-: 112:#pragma weak mpi_file_write_at__ = mpi_file_write_at
-: 113:#pragma weak mpi_file_write_at_ = mpi_file_write_at
-: 114:#endif
-: 115:
-: 116:#endif
-: 117:
-: 118:/* Map the name to the correct form */
-: 119:#ifndef MPICH_MPI_FROM_PMPI
-: 120:#if defined(USE_WEAK_SYMBOLS) && defined(HAVE_MULTIPLE_PRAGMA_WEAK)
-: 121:/* Define the weak versions of the PMPI routine*/
-: 122:#ifndef F77_NAME_UPPER
-: 123:extern FORT_DLL_SPEC void FORT_CALL PMPI_FILE_WRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 124:#endif
-: 125:#ifndef F77_NAME_LOWER_2USCORE
-: 126:extern FORT_DLL_SPEC void FORT_CALL pmpi_file_write_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 127:#endif
-: 128:#ifndef F77_NAME_LOWER_USCORE
-: 129:extern FORT_DLL_SPEC void FORT_CALL pmpi_file_write_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 130:#endif
-: 131:#ifndef F77_NAME_LOWER
-: 132:extern FORT_DLL_SPEC void FORT_CALL pmpi_file_write_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint *, MPI_Fint * );
-: 133:
-: 134:#endif
-: 135:
-: 136:#if defined(F77_NAME_UPPER)
-: 137:#pragma weak pmpi_file_write_at__ = PMPI_FILE_WRITE_AT
-: 138:#pragma weak pmpi_file_write_at_ = PMPI_FILE_WRITE_AT
-: 139:#pragma weak pmpi_file_write_at = PMPI_FILE_WRITE_AT
-: 140:#elif defined(F77_NAME_LOWER_2USCORE)
-: 141:#pragma weak PMPI_FILE_WRITE_AT = pmpi_file_write_at__
-: 142:#pragma weak pmpi_file_write_at_ = pmpi_file_write_at__
-: 143:#pragma weak pmpi_file_write_at = pmpi_file_write_at__
-: 144:#elif defined(F77_NAME_LOWER_USCORE)
-: 145:#pragma weak PMPI_FILE_WRITE_AT = pmpi_file_write_at_
-: 146:#pragma weak pmpi_file_write_at__ = pmpi_file_write_at_
-: 147:#pragma weak pmpi_file_write_at = pmpi_file_write_at_
-: 148:#else
-: 149:#pragma weak PMPI_FILE_WRITE_AT = pmpi_file_write_at
-: 150:#pragma weak pmpi_file_write_at__ = pmpi_file_write_at
-: 151:#pragma weak pmpi_file_write_at_ = pmpi_file_write_at
-: 152:#endif /* Test on name mapping */
-: 153:#endif /* Use multiple pragma weak */
-: 154:
-: 155:#ifdef F77_NAME_UPPER
-: 156:#define mpi_file_write_at_ PMPI_FILE_WRITE_AT
-: 157:#elif defined(F77_NAME_LOWER_2USCORE)
-: 158:#define mpi_file_write_at_ pmpi_file_write_at__
-: 159:#elif !defined(F77_NAME_LOWER_USCORE)
-: 160:#define mpi_file_write_at_ pmpi_file_write_at
-: 161:#else
-: 162:#define mpi_file_write_at_ pmpi_file_write_at_
-: 163:#endif /* Test on name mapping */
-: 164:
-: 165:/* This defines the routine that we call, which must be the PMPI version
-: 166: since we're renaming the Fortran entry as the pmpi version. The MPI name
-: 167: must be undefined first to prevent any conflicts with previous renamings,
-: 168: such as those put in place by the globus device when it is building on
-: 169: top of a vendor MPI. */
-: 170:#undef MPI_File_write_at
-: 171:#define MPI_File_write_at PMPI_File_write_at
-: 172:
-: 173:#else
-: 174:
-: 175:#ifdef F77_NAME_UPPER
-: 176:#define mpi_file_write_at_ MPI_FILE_WRITE_AT
-: 177:#elif defined(F77_NAME_LOWER_2USCORE)
-: 178:#define mpi_file_write_at_ mpi_file_write_at__
-: 179:#elif !defined(F77_NAME_LOWER_USCORE)
-: 180:#define mpi_file_write_at_ mpi_file_write_at
-: 181:/* Else leave name alone */
-: 182:#endif
-: 183:
-: 184:
-: 185:#endif /* MPICH_MPI_FROM_PMPI */
-: 186:
-: 187:/* Prototypes for the Fortran interfaces */
-: 188:#include "fproto.h"
|