00001
00002
00003
00004
00005
00006
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_SET_VIEW = PMPI_FILE_SET_VIEW
00022 #elif defined(FORTRANDOUBLEUNDERSCORE)
00023 #pragma weak mpi_file_set_view__ = pmpi_file_set_view__
00024 #elif !defined(FORTRANUNDERSCORE)
00025 #pragma weak mpi_file_set_view = pmpi_file_set_view
00026 #else
00027 #pragma weak mpi_file_set_view_ = pmpi_file_set_view_
00028 #endif
00029
00030 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
00031 #if defined(FORTRANCAPS)
00032 #pragma _HP_SECONDARY_DEF PMPI_FILE_SET_VIEW MPI_FILE_SET_VIEW
00033 #elif defined(FORTRANDOUBLEUNDERSCORE)
00034 #pragma _HP_SECONDARY_DEF pmpi_file_set_view__ mpi_file_set_view__
00035 #elif !defined(FORTRANUNDERSCORE)
00036 #pragma _HP_SECONDARY_DEF pmpi_file_set_view mpi_file_set_view
00037 #else
00038 #pragma _HP_SECONDARY_DEF pmpi_file_set_view_ mpi_file_set_view_
00039 #endif
00040
00041 #elif defined(HAVE_PRAGMA_CRI_DUP)
00042 #if defined(FORTRANCAPS)
00043 #pragma _CRI duplicate MPI_FILE_SET_VIEW as PMPI_FILE_SET_VIEW
00044 #elif defined(FORTRANDOUBLEUNDERSCORE)
00045 #pragma _CRI duplicate mpi_file_set_view__ as pmpi_file_set_view__
00046 #elif !defined(FORTRANUNDERSCORE)
00047 #pragma _CRI duplicate mpi_file_set_view as pmpi_file_set_view
00048 #else
00049 #pragma _CRI duplicate mpi_file_set_view_ as pmpi_file_set_view_
00050 #endif
00051
00052
00053 #endif
00054
00055 #include "mpioprof.h"
00056 #endif
00057
00058 #ifdef FORTRANCAPS
00059 #define mpi_file_set_view_ PMPI_FILE_SET_VIEW
00060 #elif defined(FORTRANDOUBLEUNDERSCORE)
00061 #define mpi_file_set_view_ pmpi_file_set_view__
00062 #elif !defined(FORTRANUNDERSCORE)
00063 #if defined(HPUX) || defined(SPPUX)
00064 #pragma _HP_SECONDARY_DEF pmpi_file_set_view pmpi_file_set_view_
00065 #endif
00066 #define mpi_file_set_view_ pmpi_file_set_view
00067 #else
00068 #if defined(HPUX) || defined(SPPUX)
00069 #pragma _HP_SECONDARY_DEF pmpi_file_set_view_ pmpi_file_set_view
00070 #endif
00071 #define mpi_file_set_view_ pmpi_file_set_view_
00072 #endif
00073
00074 #else
00075
00076 #ifdef FORTRANCAPS
00077 #define mpi_file_set_view_ MPI_FILE_SET_VIEW
00078 #elif defined(FORTRANDOUBLEUNDERSCORE)
00079 #define mpi_file_set_view_ mpi_file_set_view__
00080 #elif !defined(FORTRANUNDERSCORE)
00081 #if defined(HPUX) || defined(SPPUX)
00082 #pragma _HP_SECONDARY_DEF mpi_file_set_view mpi_file_set_view_
00083 #endif
00084 #define mpi_file_set_view_ mpi_file_set_view
00085 #else
00086 #if defined(HPUX) || defined(SPPUX)
00087 #pragma _HP_SECONDARY_DEF mpi_file_set_view_ mpi_file_set_view
00088 #endif
00089 #endif
00090 #endif
00091
00092 #if defined(MPIHP) || defined(MPILAM)
00093
00094 void mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Fint *etype,
00095 MPI_Fint *filetype,char *datarep,MPI_Fint *info, int *ierr,
00096 int str_len );
00097
00098 void mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Fint *etype,
00099 MPI_Fint *filetype,char *datarep,MPI_Fint *info, int *ierr,
00100 int str_len )
00101 {
00102 char *newstr;
00103 MPI_File fh_c;
00104 int i, real_len;
00105 MPI_Datatype etype_c, filetype_c;
00106 MPI_Info info_c;
00107
00108 etype_c = MPI_Type_f2c(*etype);
00109 filetype_c = MPI_Type_f2c(*filetype);
00110 info_c = MPI_Info_f2c(*info);
00111
00112
00113 if (datarep <= (char *) 0) {
00114 FPRINTF(stderr, "MPI_File_set_view: datarep is an invalid address\n");
00115 MPI_Abort(MPI_COMM_WORLD, 1);
00116 }
00117 for (i=str_len-1; i>=0; i--) if (datarep[i] != ' ') break;
00118 if (i < 0) {
00119 FPRINTF(stderr, "MPI_File_set_view: datarep is a blank string\n");
00120 MPI_Abort(MPI_COMM_WORLD, 1);
00121 }
00122 real_len = i + 1;
00123
00124 newstr = (char *) ADIOI_Malloc((real_len+1)*sizeof(char));
00125 strncpy(newstr, datarep, real_len);
00126 newstr[real_len] = '\0';
00127
00128 fh_c = MPI_File_f2c(*fh);
00129
00130 *ierr = MPI_File_set_view(fh_c,*disp,etype_c,filetype_c,newstr,info_c);
00131
00132 ADIOI_Free(newstr);
00133 }
00134
00135 #else
00136
00137 #ifdef _UNICOS
00138 void mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00139 MPI_Datatype *filetype,_fcd datarep_fcd,MPI_Fint *info, int *ierr)
00140 {
00141 char *datarep = _fcdtocp(datarep_fcd);
00142 int str_len = _fcdlen(datarep_fcd);
00143 #else
00144
00145 FORTRAN_API void FORT_CALL mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00146 MPI_Datatype *filetype,char *datarep,MPI_Fint *info, int *ierr,
00147 int str_len );
00148
00149 FORTRAN_API void FORT_CALL mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype,
00150 MPI_Datatype *filetype,char *datarep,MPI_Fint *info, int *ierr,
00151 int str_len )
00152 {
00153 #endif
00154 char *newstr;
00155 MPI_File fh_c;
00156 int i, real_len;
00157 MPI_Info info_c;
00158
00159 info_c = MPI_Info_f2c(*info);
00160
00161
00162 if (datarep <= (char *) 0) {
00163 FPRINTF(stderr, "MPI_File_set_view: datarep is an invalid address\n");
00164 MPI_Abort(MPI_COMM_WORLD, 1);
00165 }
00166 for (i=str_len-1; i>=0; i--) if (datarep[i] != ' ') break;
00167 if (i < 0) {
00168 FPRINTF(stderr, "MPI_File_set_view: datarep is a blank string\n");
00169 MPI_Abort(MPI_COMM_WORLD, 1);
00170 }
00171 real_len = i + 1;
00172
00173 newstr = (char *) ADIOI_Malloc((real_len+1)*sizeof(char));
00174 strncpy(newstr, datarep, real_len);
00175 newstr[real_len] = '\0';
00176
00177 fh_c = MPI_File_f2c(*fh);
00178
00179 *ierr = MPI_File_set_view(fh_c,*disp,*etype,*filetype,newstr,info_c);
00180
00181 ADIOI_Free(newstr);
00182 }
00183 #endif
1.5.5