void mpi_file_delete_(_fcd filename_fcd, MPI_Fint *info, MPI_Fint *ierr)
{
char *filename = _fcdtocp(filename_fcd);
int str_len = _fcdlen(filename_fcd);
#else
FORTRAN_API void FORT_CALL mpi_file_delete_(char *filename FORT_MIXED_LEN(str_len), MPI_Fint *info, MPI_Fint *ierr FORT_END_LEN(str_len))
{
#endif
char *newfname;
int real_len, i;
MPI_Info info_c;
info_c = MPI_Info_f2c(*info);
/* strip trailing blanks */
if (filename <= (char *) 0) {
FPRINTF(stderr, "MPI_File_delete: filename is an invalid address\n");
MPI_Abort(MPI_COMM_WORLD, 1);
}
for (i=str_len-1; i>=0; i--) if (filename[i] != ' ') break;
if (i < 0) {
FPRINTF(stderr, "MPI_File_delete: filename is a blank string\n");
MPI_Abort(MPI_COMM_WORLD, 1);
}
real_len = i + 1;
newfname = (char *) ADIOI_Malloc((real_len+1)*sizeof(char));
strncpy(newfname, filename, real_len);
newfname[real_len] = '\0';
*ierr = MPI_File_delete(newfname, info_c);
ADIOI_Free(newfname);
}
void mpi_file_get_view_(MPI_Fint * fh, MPI_Offset * disp, MPI_Fint * etype,
MPI_Fint * filetype, _fcd datarep_fcd, MPI_Fint * ierr)
{
char *datarep = _fcdtocp(datarep_fcd);
int str_len = _fcdlen(datarep_fcd);
#else
/* Prototype to keep compiler happy */
FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint * fh, MPI_Offset * disp, MPI_Fint * etype,
MPI_Fint * filetype,
char *datarep FORT_MIXED_LEN_DECL,
MPI_Fint * ierr FORT_END_LEN_DECL);
FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint * fh, MPI_Offset * disp, MPI_Fint * etype,
MPI_Fint * filetype,
char *datarep FORT_MIXED_LEN(str_len),
MPI_Fint * ierr FORT_END_LEN(str_len))
{
#endif
MPI_File fh_c;
int i, tmpreplen;
MPI_Datatype etype_c, filetype_c;
char *tmprep;
/* Initialize the string to all blanks */
if (datarep <= (char *) 0) {
FPRINTF(stderr, "MPI_File_get_view: datarep is an invalid address\n");
MPI_Abort(MPI_COMM_WORLD, 1);
}
tmprep = (char *) ADIOI_Malloc((MPI_MAX_DATAREP_STRING + 1) * sizeof(char));
fh_c = MPI_File_f2c(*fh);
etype_c = MPI_Type_f2c(*etype);
filetype_c = MPI_Type_f2c(*filetype);
*ierr = MPI_File_get_view(fh_c, disp, &etype_c, &filetype_c, tmprep);
tmpreplen = strlen(tmprep);
if (tmpreplen <= str_len) {
ADIOI_Strncpy(datarep, tmprep, tmpreplen);
/* blank pad the remaining space */
for (i = tmpreplen; i < str_len; i++)
datarep[i] = ' ';
} else {
/* not enough space */
ADIOI_Strncpy(datarep, tmprep, str_len);
/* this should be flagged as an error. */
*ierr = MPI_ERR_UNKNOWN;
}
*etype = MPI_Type_c2f(etype_c);
*filetype = MPI_Type_c2f(filetype_c);
ADIOI_Free(tmprep);
}
void mpi_file_open_(MPI_Fint *comm,_fcd filename_fcd,MPI_Fint *amode,
MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr)
{
char *filename = _fcdtocp(filename_fcd);
int str_len = _fcdlen(filename_fcd);
#else
/* Prototype to keep compiler happy */
/*
FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Comm *comm,char *filename,MPI_Fint *amode,
MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, int str_len );
FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Comm *comm,char *filename,MPI_Fint *amode,
MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, int str_len )
*/
/* Prototype to keep compiler happy */
FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Fint *comm,char *filename FORT_MIXED_LEN_DECL,MPI_Fint *amode,
MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr FORT_END_LEN_DECL);
FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Fint *comm,char *filename FORT_MIXED_LEN(str_len),MPI_Fint *amode,
MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr FORT_END_LEN(str_len))
{
#endif
char *newfname;
MPI_File fh_c;
int real_len, i;
MPI_Info info_c;
info_c = MPI_Info_f2c(*info);
/* strip trailing blanks */
if (filename <= (char *) 0) {
FPRINTF(stderr, "MPI_File_open: filename is an invalid address\n");
MPI_Abort(MPI_COMM_WORLD, 1);
}
for (i=str_len-1; i>=0; i--) if (filename[i] != ' ') break;
if (i < 0) {
FPRINTF(stderr, "MPI_File_open: filename is a blank string\n");
MPI_Abort(MPI_COMM_WORLD, 1);
}
real_len = i + 1;
newfname = (char *) ADIOI_Malloc((real_len+1)*sizeof(char));
ADIOI_Strncpy(newfname, filename, real_len);
newfname[real_len] = '\0';
*ierr = MPI_File_open((MPI_Comm)(*comm), newfname, *amode, info_c, &fh_c);
*fh = MPI_File_c2f(fh_c);
ADIOI_Free(newfname);
}
