Charm++: Charm Source Code Documentation

00001 /* -*- Mode: C; c-basic-offset:4 ; -*- */
00002 /* 
00003  *   $Id$    
00004  *
00005  *   Copyright (C) 1997 University of Chicago. 
00006  *   See COPYRIGHT notice in top-level directory.
00007  */
00008 
00009 #ifdef _UNICOS
00010 #include <fortran.h>
00011 #endif
00012 #include "adio.h"
00013 #include "mpio.h"
00014 
00015 
00016 #if defined(MPIO_BUILD_PROFILING) || defined(HAVE_WEAK_SYMBOLS)
00017 
00018 #if defined(HAVE_WEAK_SYMBOLS)
00019 #if defined(HAVE_PRAGMA_WEAK)
00020 #if defined(FORTRANCAPS)
00021 #pragma weak MPI_FILE_GET_VIEW = PMPI_FILE_GET_VIEW
00022 #elif defined(FORTRANDOUBLEUNDERSCORE)
00023 #pragma weak mpi_file_get_view__ = pmpi_file_get_view__
00024 #elif !defined(FORTRANUNDERSCORE)
00025 #pragma weak mpi_file_get_view = pmpi_file_get_view
00026 #else
00027 #pragma weak mpi_file_get_view_ = pmpi_file_get_view_
00028 #endif
00029 
00030 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
00031 #if defined(FORTRANCAPS)
00032 #pragma _HP_SECONDARY_DEF PMPI_FILE_GET_VIEW MPI_FILE_GET_VIEW
00033 #elif defined(FORTRANDOUBLEUNDERSCORE)
00034 #pragma _HP_SECONDARY_DEF pmpi_file_get_view__ mpi_file_get_view__
00035 #elif !defined(FORTRANUNDERSCORE)
00036 #pragma _HP_SECONDARY_DEF pmpi_file_get_view mpi_file_get_view
00037 #else
00038 #pragma _HP_SECONDARY_DEF pmpi_file_get_view_ mpi_file_get_view_
00039 #endif
00040 
00041 #elif defined(HAVE_PRAGMA_CRI_DUP)
00042 #if defined(FORTRANCAPS)
00043 #pragma _CRI duplicate MPI_FILE_GET_VIEW as PMPI_FILE_GET_VIEW
00044 #elif defined(FORTRANDOUBLEUNDERSCORE)
00045 #pragma _CRI duplicate mpi_file_get_view__ as pmpi_file_get_view__
00046 #elif !defined(FORTRANUNDERSCORE)
00047 #pragma _CRI duplicate mpi_file_get_view as pmpi_file_get_view
00048 #else
00049 #pragma _CRI duplicate mpi_file_get_view_ as pmpi_file_get_view_
00050 #endif
00051 
00052 /* end of weak pragmas */
00053 #endif
00054 /* Include mapping from MPI->PMPI */
00055 #include "mpioprof.h"
00056 #endif
00057 
00058 #ifdef FORTRANCAPS
00059 #define mpi_file_get_view_ PMPI_FILE_GET_VIEW
00060 #elif defined(FORTRANDOUBLEUNDERSCORE)
00061 #define mpi_file_get_view_ pmpi_file_get_view__
00062 #elif !defined(FORTRANUNDERSCORE)
00063 #if defined(HPUX) || defined(SPPUX)
00064 #pragma _HP_SECONDARY_DEF pmpi_file_get_view pmpi_file_get_view_
00065 #endif
00066 #define mpi_file_get_view_ pmpi_file_get_view
00067 #else
00068 #if defined(HPUX) || defined(SPPUX)
00069 #pragma _HP_SECONDARY_DEF pmpi_file_get_view_ pmpi_file_get_view
00070 #endif
00071 #define mpi_file_get_view_ pmpi_file_get_view_
00072 #endif
00073 
00074 #else
00075 
00076 #ifdef FORTRANCAPS
00077 #define mpi_file_get_view_ MPI_FILE_GET_VIEW
00078 #elif defined(FORTRANDOUBLEUNDERSCORE)
00079 #define mpi_file_get_view_ mpi_file_get_view__
00080 #elif !defined(FORTRANUNDERSCORE)
00081 #if defined(HPUX) || defined(SPPUX)
00082 #pragma _HP_SECONDARY_DEF mpi_file_get_view mpi_file_get_view_
00083 #endif
00084 #define mpi_file_get_view_ mpi_file_get_view
00085 #else
00086 #if defined(HPUX) || defined(SPPUX)
00087 #pragma _HP_SECONDARY_DEF mpi_file_get_view_ mpi_file_get_view
00088 #endif
00089 #endif
00090 #endif
00091 
00092 #if defined(MPIHP) || defined(MPILAM)
00093 /* Prototype to keep compiler happy */
00094 void mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Fint *etype,
00095                 MPI_Fint *filetype,char *datarep, int *ierr, int str_len );
00096 
00097 void mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Fint *etype,
00098    MPI_Fint *filetype,char *datarep, int *ierr, int str_len )
00099 {
00100     MPI_File fh_c;
00101     MPI_Datatype etype_c, filetype_c;
00102     int i, tmpreplen;
00103     char *tmprep;
00104 
00105     if (datarep <= (char *) 0) {
00106         FPRINTF(stderr, "MPI_File_get_view: datarep is an invalid address\n");
00107         MPI_Abort(MPI_COMM_WORLD, 1);
00108     }
00109 
00110     tmprep = (char *) ADIOI_Malloc((MPI_MAX_DATAREP_STRING+1) * sizeof(char));
00111     fh_c = MPI_File_f2c(*fh);
00112     *ierr = MPI_File_get_view(fh_c, disp, &etype_c, &filetype_c, tmprep);
00113 
00114     tmpreplen = strlen(tmprep);
00115     if (tmpreplen <= str_len) {
00116         strncpy(datarep, tmprep, tmpreplen);
00117 
00118         /* blank pad the remaining space */
00119         for (i=tmpreplen; i<str_len; i++) datarep[i] = ' ';
00120     }
00121     else {
00122         /* not enough space */
00123         strncpy(datarep, tmprep, str_len);
00124         /* this should be flagged as an error. */
00125         *ierr = MPI_ERR_UNKNOWN;
00126     }
00127     
00128     *etype = MPI_Type_c2f(etype_c);
00129     *filetype = MPI_Type_c2f(filetype_c);
00130     ADIOI_Free(tmprep);
00131 }
00132 
00133 #else
00134 
00135 #ifdef _UNICOS
00136 void mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00137    MPI_Datatype *filetype, _fcd datarep_fcd, int *ierr)
00138 {
00139     char *datarep = _fcdtocp(datarep_fcd);
00140     int str_len = _fcdlen(datarep_fcd);
00141 #else
00142 /* Prototype to keep compiler happy */
00143 FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00144                 MPI_Datatype *filetype,char *datarep, int *ierr, int str_len );
00145 
00146 FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00147    MPI_Datatype *filetype,char *datarep, int *ierr, int str_len )
00148 {
00149 #endif
00150     MPI_File fh_c;
00151     int i, tmpreplen;
00152     char *tmprep;
00153 
00154 /* Initialize the string to all blanks */
00155     if (datarep <= (char *) 0) {
00156         FPRINTF(stderr, "MPI_File_get_view: datarep is an invalid address\n");
00157         MPI_Abort(MPI_COMM_WORLD, 1);
00158     }
00159     
00160     tmprep = (char *) ADIOI_Malloc((MPI_MAX_DATAREP_STRING+1) * sizeof(char));
00161     fh_c = MPI_File_f2c(*fh);
00162     *ierr = MPI_File_get_view(fh_c, disp, etype, filetype, tmprep);
00163 
00164     tmpreplen = strlen(tmprep);
00165     if (tmpreplen <= str_len) {
00166         strncpy(datarep, tmprep, tmpreplen);
00167 
00168         /* blank pad the remaining space */
00169         for (i=tmpreplen; i<str_len; i++) datarep[i] = ' ';
00170     }
00171     else {
00172         /* not enough space */
00173         strncpy(datarep, tmprep, str_len);
00174         /* this should be flagged as an error. */
00175         *ierr = MPI_ERR_UNKNOWN;
00176     }
00177 
00178     ADIOI_Free(tmprep);
00179 }
00180 #endif
libs/ck-libs/ampi/romio/mpi-io/fortran/get_viewf.c
