Index: romio/mpi-io/fortran/closef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/closef.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: closef.c,v 1.13 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: closef.c,v 1.14 2003/07/08 22:25:41 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_CLOSE( MPI_File*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_close__( MPI_File*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_close( MPI_File*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_close_( MPI_File*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_close_(MPI_Fint *fh, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_close_(MPI_Fint *fh, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_close_(MPI_Fint *fh, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_close_(MPI_Fint *fh, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/deletef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/deletef.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: deletef.c,v 1.14 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: deletef.c,v 1.15 2003/07/08 22:25:42 thakur Exp $ 20a21 > extern FORTRAN_API void FORT_CALL MPI_FILE_DELETE( char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 22a24 > extern FORTRAN_API void FORT_CALL mpi_file_delete__( char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 24a27 > extern FORTRAN_API void FORT_CALL mpi_file_delete( char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 26a30 > extern FORTRAN_API void FORT_CALL mpi_file_delete_( char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 105c109 < FORTRAN_API void FORT_CALL mpi_file_delete_(char *filename FORT_MIXED_LEN_DECL, MPI_Fint *info, int *ierr FORT_END_LEN_DECL); --- > FORTRAN_API void FORT_CALL mpi_file_delete_(char *filename FORT_MIXED_LEN_DECL, MPI_Fint *info, MPI_Fint *ierr FORT_END_LEN_DECL); 108c112 < void mpi_file_delete_(_fcd filename_fcd, MPI_Fint *info, int *ierr) --- > void mpi_file_delete_(_fcd filename_fcd, MPI_Fint *info, MPI_Fint *ierr) 113c117 < FORTRAN_API void FORT_CALL mpi_file_delete_(char *filename FORT_MIXED_LEN(str_len), MPI_Fint *info, int *ierr FORT_END_LEN(str_len)) --- > 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)) Index: romio/mpi-io/fortran/fsyncf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/fsyncf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: fsyncf.c,v 1.13 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: fsyncf.c,v 1.14 2003/07/08 22:25:42 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SYNC( MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_sync__( MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_sync( MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_sync_( MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_sync_(MPI_Fint *fh, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_sync_(MPI_Fint *fh, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_sync_(MPI_Fint *fh, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_sync_(MPI_Fint *fh, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_amodef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_amodef.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_amodef.c,v 1.13 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: get_amodef.c,v 1.14 2003/07/08 22:25:42 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_AMODE( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_amode__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_amode( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_amode_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh,int *amode, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh,int *amode, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_atomf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_atomf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_atomf.c,v 1.13 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: get_atomf.c,v 1.14 2003/07/08 22:25:42 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_ATOMICITY( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_atomicity_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh,int *flag, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh,int *flag, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_bytofff.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_bytofff.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_bytofff.c,v 1.13 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: get_bytofff.c,v 1.14 2003/07/08 22:25:42 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_BYTE_OFFSET( MPI_Fint *, MPI_Offset *, MPI_Offset*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_byte_offset__( MPI_Fint *, MPI_Offset *, MPI_Offset*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_byte_offset( MPI_Fint *, MPI_Offset *, MPI_Offset*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_byte_offset_( MPI_Fint *, MPI_Offset *, MPI_Offset*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_byte_offset_(MPI_Fint *fh,MPI_Offset *offset,MPI_Offset *disp, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_byte_offset_(MPI_Fint *fh, MPI_Offset *offset, MPI_Offset *disp, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_byte_offset_(MPI_Fint *fh,MPI_Offset *offset,MPI_Offset *disp, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_byte_offset_(MPI_Fint *fh,MPI_Offset *offset, MPI_Offset *disp, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_errhf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_errhf.c,v retrieving revision 1.8 retrieving revision 1.9 diff -r1.8 -r1.9 3c3 < * $Id: get_errhf.c,v 1.8 2002/10/24 17:01:19 gropp Exp $ --- > * $Id: get_errhf.c,v 1.9 2003/07/08 22:25:42 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_ERRHANDLER( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_errhandler__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_errhandler( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_errhandler_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, int *ierr); --- > FORTRAN_API void FORT_CALL mpi_file_get_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, MPI_Fint *ierr); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, int *ierr) --- > FORTRAN_API void FORT_CALL mpi_file_get_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, MPI_Fint *ierr) Index: romio/mpi-io/fortran/get_extentf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_extentf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: get_extentf.c,v 1.14 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_extentf.c,v 1.15 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_TYPE_EXTENT( MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_type_extent__( MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_type_extent( MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_type_extent_( MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 111c115 < MPI_Fint *extent, int *ierr ); --- > MPI_Fint *extent, MPI_Fint *ierr ); 114c118 < MPI_Fint *extent, int *ierr ) --- > MPI_Fint *extent, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_groupf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_groupf.c,v retrieving revision 1.15 retrieving revision 1.16 diff -r1.15 -r1.16 3c3 < * $Id: get_groupf.c,v 1.15 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_groupf.c,v 1.16 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_GROUP( MPI_Fint *, MPI_Group*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_group__( MPI_Fint *, MPI_Group*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_group( MPI_Fint *, MPI_Group*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_group_( MPI_Fint *, MPI_Group*, MPI_Fint * ); 91c95 < void mpi_file_get_group_(MPI_Fint *fh,MPI_Fint *group, int *ierr ); --- > void mpi_file_get_group_(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr ); 93c97 < void mpi_file_get_group_(MPI_Fint *fh,MPI_Fint *group, int *ierr ) --- > void mpi_file_get_group_(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_infof.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_infof.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_infof.c,v 1.13 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_infof.c,v 1.14 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_INFO( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_info__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_info( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_info_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_posn_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_posn_shf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: get_posn_shf.c,v 1.12 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_posn_shf.c,v 1.13 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_POSITION_SHARED( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_position_shared__( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_position_shared( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_position_shared_( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 91c95 < int *ierr ); --- > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_get_position_shared_(MPI_Fint *fh, MPI_Offset *offset, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_position_shared_(MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_posnf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_posnf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_posnf.c,v 1.13 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_posnf.c,v 1.14 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_POSITION( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_position__( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_position( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_position_( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_position_(MPI_Fint *fh, MPI_Offset *offset, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_position_(MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_position_(MPI_Fint *fh, MPI_Offset *offset, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_position_(MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_sizef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_sizef.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: get_sizef.c,v 1.13 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_sizef.c,v 1.14 2003/07/08 22:25:43 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_SIZE( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_get_size__( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_size( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_size_( MPI_Fint *, MPI_Offset*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint *fh,MPI_Offset *size, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint *fh, MPI_Offset *size, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint *fh,MPI_Offset *size, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_get_size_(MPI_Fint *fh, MPI_Offset *size, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/get_viewf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/get_viewf.c,v retrieving revision 1.15 retrieving revision 1.16 diff -r1.15 -r1.16 3c3 < * $Id: get_viewf.c,v 1.15 2002/10/24 17:01:20 gropp Exp $ --- > * $Id: get_viewf.c,v 1.16 2003/07/08 22:25:44 thakur Exp $ 20a21 > extern FORTRAN_API void FORT_CALL MPI_FILE_GET_VIEW( MPI_Fint *, MPI_Offset*, MPI_Fint*, MPI_Fint*, char * FORT_MIXED_LEN_DECL, MPI_Fint * FORT_END_LEN_DECL ); 22a24 > extern FORTRAN_API void FORT_CALL mpi_file_get_view__( MPI_Fint *, MPI_Offset*, MPI_Fint*, MPI_Fint*, char * FORT_MIXED_LEN_DECL, MPI_Fint * FORT_END_LEN_DECL ); 24a27 > extern FORTRAN_API void FORT_CALL mpi_file_get_view( MPI_Fint *, MPI_Offset*, MPI_Fint*, MPI_Fint*, char * FORT_MIXED_LEN_DECL, MPI_Fint * FORT_END_LEN_DECL ); 26a30 > extern FORTRAN_API void FORT_CALL mpi_file_get_view_( MPI_Fint *, MPI_Offset*, MPI_Fint*, MPI_Fint*, char * FORT_MIXED_LEN_DECL, MPI_Fint * FORT_END_LEN_DECL ); 136,137c140,141 < void mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype, < MPI_Datatype *filetype, _fcd datarep_fcd, int *ierr) --- > void mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Fint *etype, > MPI_Fint *filetype, _fcd datarep_fcd, int *ierr) 143,144c147 < FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype, < MPI_Datatype *filetype,char *datarep, int *ierr, int str_len ); --- > 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 ); 146,147c149 < FORTRAN_API void FORT_CALL mpi_file_get_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype, < MPI_Datatype *filetype,char *datarep, int *ierr, int str_len ) --- > 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) ) Index: romio/mpi-io/fortran/iotestf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iotestf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: iotestf.c,v 1.13 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: iotestf.c,v 1.14 2003/07/08 22:25:44 thakur Exp $ 16a17 > FORTRAN_API void FORT_CALL MPIO_TEST(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ); 18a20 > FORTRAN_API void FORT_CALL mpio_test__(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ); 20a23 > FORTRAN_API void FORT_CALL mpio_test(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ); 22a26 > FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ); 89c93 < FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr ); 91c95 < FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,int *flag,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpio_test_(MPI_Fint *request,MPI_Fint *flag,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iowaitf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iowaitf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: iowaitf.c,v 1.13 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: iowaitf.c,v 1.14 2003/07/08 22:25:44 thakur Exp $ 16a17 > FORTRAN_API void FORT_CALL MPIO_WAIT(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ); 18a20 > FORTRAN_API void FORT_CALL mpio_wait__(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ); 20a23 > FORTRAN_API void FORT_CALL mpio_wait(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ); 22a26 > FORTRAN_API void FORT_CALL mpio_wait_(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ); 89c93 < FORTRAN_API void FORT_CALL mpio_wait_(MPI_Fint *request,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpio_wait_(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ); 91c95 < FORTRAN_API void FORT_CALL mpio_wait_(MPI_Fint *request,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpio_wait_(MPI_Fint *request,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iread_atf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iread_atf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: iread_atf.c,v 1.14 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: iread_atf.c,v 1.15 2003/07/08 22:25:44 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IREAD_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iread_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iread_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iread_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92,93c96,97 < int *count,MPI_Fint *datatype, < MPI_Fint *request, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Fint *request, MPI_Fint *ierr ); 96,97c100,101 < int *count,MPI_Fint *datatype, < MPI_Fint *request, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Fint *request, MPI_Fint *ierr ) 114c118 < MPI_Fint *request, int *ierr ); --- > MPI_Fint *request, MPI_Fint *ierr ); 117,118c121,122 < int *count,MPI_Datatype *datatype, < MPI_Fint *request, int *ierr ) --- > MPI_Fint *count,MPI_Datatype *datatype, > MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iread_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iread_shf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: iread_shf.c,v 1.13 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: iread_shf.c,v 1.14 2003/07/08 22:25:44 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IREAD_SHARED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iread_shared__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iread_shared( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iread_shared_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92c96 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ); 95c99 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ) 109c113 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ); 112c116 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/ireadf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/ireadf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: ireadf.c,v 1.14 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: ireadf.c,v 1.15 2003/07/08 22:25:44 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IREAD( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iread__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iread( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iread_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92c96 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ); 95c99 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ) 109c113 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ); 112c116 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iwrite_atf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iwrite_atf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: iwrite_atf.c,v 1.14 2002/10/24 17:01:21 gropp Exp $ --- > * $Id: iwrite_atf.c,v 1.15 2003/07/08 22:25:44 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IWRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92,93c96,97 < int *count,MPI_Fint *datatype, < MPI_Fint *request, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Fint *request, MPI_Fint *ierr ); 96,97c100,101 < int *count,MPI_Fint *datatype, < MPI_Fint *request, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Fint *request, MPI_Fint *ierr ) 112,113c116,117 < int *count,MPI_Datatype *datatype, < MPI_Fint *request, int *ierr ); --- > MPI_Fint *count,MPI_Datatype *datatype, > MPI_Fint *request, MPI_Fint *ierr ); 116,117c120,121 < int *count,MPI_Datatype *datatype, < MPI_Fint *request, int *ierr ) --- > MPI_Fint *count,MPI_Datatype *datatype, > MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iwrite_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iwrite_shf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: iwrite_shf.c,v 1.12 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: iwrite_shf.c,v 1.13 2003/07/08 22:25:45 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IWRITE_SHARED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_shared__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_shared( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_shared_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92c96 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ); 94c98 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ) 109c113 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ); 112c116 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/iwritef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/iwritef.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: iwritef.c,v 1.14 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: iwritef.c,v 1.15 2003/07/08 22:25:45 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_IWRITE( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_iwrite_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint*, MPI_Fint * ); 92c96 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ); 95c99 < MPI_Fint *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Fint *datatype,MPI_Fint *request, MPI_Fint *ierr ) 110c114 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ); --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ); 113c117 < MPI_Datatype *datatype,MPI_Fint *request, int *ierr ) --- > MPI_Datatype *datatype,MPI_Fint *request, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/openf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/openf.c,v retrieving revision 1.15 retrieving revision 1.16 diff -r1.15 -r1.16 3c3 < * $Id: openf.c,v 1.15 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: openf.c,v 1.16 2003/07/08 22:25:45 thakur Exp $ 20a21 > extern FORTRAN_API void FORT_CALL MPI_FILE_OPEN( MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint *, MPI_File*, MPI_Fint * FORT_END_LEN_DECL ); 22a24 > extern FORTRAN_API void FORT_CALL mpi_file_open__( MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint *, MPI_File*, MPI_Fint * FORT_END_LEN_DECL ); 24a27 > extern FORTRAN_API void FORT_CALL mpi_file_open( MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint *, MPI_File*, MPI_Fint * FORT_END_LEN_DECL ); 26a30 > extern FORTRAN_API void FORT_CALL mpi_file_open_( MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint *, MPI_File*, MPI_Fint * FORT_END_LEN_DECL ); 94,95c98,99 < void mpi_file_open_(MPI_Fint *comm,char *filename,int *amode, < MPI_Fint *info, MPI_Fint *fh, int *ierr, int str_len ); --- > void mpi_file_open_(MPI_Fint *comm,char *filename,MPI_Fint *amode, > MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, int str_len ); 97,98c101,102 < void mpi_file_open_(MPI_Fint *comm,char *filename,int *amode, < MPI_Fint *info, MPI_Fint *fh, int *ierr, int str_len ) --- > void mpi_file_open_(MPI_Fint *comm,char *filename,MPI_Fint *amode, > MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr, int str_len ) 134,135c138,139 < void mpi_file_open_(MPI_Comm *comm,_fcd filename_fcd,int *amode, < MPI_Fint *info, MPI_Fint *fh, int *ierr) --- > void mpi_file_open_(MPI_Fint *comm,_fcd filename_fcd,MPI_Fint *amode, > MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr) 149,150c153,154 < FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Comm *comm,char *filename FORT_MIXED_LEN_DECL,int *amode, < MPI_Fint *info, MPI_Fint *fh, int *ierr FORT_END_LEN_DECL); --- > 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); 152,153c156,157 < FORTRAN_API void FORT_CALL mpi_file_open_(MPI_Comm *comm,char *filename FORT_MIXED_LEN(str_len),int *amode, < MPI_Fint *info, MPI_Fint *fh, int *ierr FORT_END_LEN(str_len)) --- > 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)) 179c183 < *ierr = MPI_File_open(*comm, newfname, *amode, info_c, &fh_c); --- > *ierr = MPI_File_open((MPI_Comm)(*comm), newfname, *amode, info_c, &fh_c); Index: romio/mpi-io/fortran/preallocf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/preallocf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: preallocf.c,v 1.13 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: preallocf.c,v 1.14 2003/07/08 22:25:45 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_PREALLOCATE( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_preallocate__( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_preallocate( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_preallocate_( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_preallocate_(MPI_Fint *fh,MPI_Offset *size, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_preallocate_(MPI_Fint *fh,MPI_Offset *size, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_preallocate_(MPI_Fint *fh,MPI_Offset *size, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_preallocate_(MPI_Fint *fh,MPI_Offset *size, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/rd_atallbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/rd_atallbf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: rd_atallbf.c,v 1.13 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: rd_atallbf.c,v 1.14 2003/07/08 22:25:45 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_AT_ALL_BEGIN( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_begin__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_begin( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_begin_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 92c96 < int *count,MPI_Fint *datatype, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ); 95c99 < int *count,MPI_Fint *datatype, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ) 108c112 < int *count,MPI_Datatype *datatype, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ); 111c115 < int *count,MPI_Datatype *datatype, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ) 116c120 < *ierr = MPI_File_read_at_all_begin(fh_c,*offset,buf,*count,*datatype); --- > *ierr = MPI_File_read_at_all_begin(fh_c,*offset,buf,*count,(MPI_Datatype) *datatype); Index: romio/mpi-io/fortran/rd_atallef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/rd_atallef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: rd_atallef.c,v 1.12 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: rd_atallef.c,v 1.13 2003/07/08 22:25:45 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_AT_ALL_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_read_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_read_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_read_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/read_allbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_allbf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: read_allbf.c,v 1.13 2002/10/24 17:01:22 gropp Exp $ --- > * $Id: read_allbf.c,v 1.14 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ALL_BEGIN( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_begin__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_begin( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_begin_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 91,92c95,96 < void mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype, int *ierr ); --- > void mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,int *ierr ) --- > void mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_read_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ){ 115c119 < *ierr = MPI_File_read_all_begin(fh_c,buf,*count,*datatype); --- > *ierr = MPI_File_read_all_begin(fh_c,buf,*count,(MPI_Datatype) *datatype); Index: romio/mpi-io/fortran/read_allef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_allef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: read_allef.c,v 1.12 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_allef.c,v 1.13 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ALL_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 91c95 < int *ierr ); --- > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_read_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_read_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/read_allf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_allf.c,v retrieving revision 1.15 retrieving revision 1.16 diff -r1.15 -r1.16 3c3 < * $Id: read_allf.c,v 1.15 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_allf.c,v 1.16 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ALL( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_all__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_all( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_all_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_read_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_read_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_read_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_read_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_read_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_read_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_read_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ 115c119 < *ierr = MPI_File_read_all(fh_c,buf,*count,*datatype,status); --- > *ierr = MPI_File_read_all(fh_c,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/read_atallf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_atallf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: read_atallf.c,v 1.14 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_atallf.c,v 1.15 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_AT_ALL( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_all_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 92,93c96,97 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 96,97c100,101 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) 110,111c114,115 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 114,115c118,119 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) 120c124 < *ierr = MPI_File_read_at_all(fh_c,*offset,buf,*count,*datatype,status); --- > *ierr = MPI_File_read_at_all(fh_c,*offset,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/read_atf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_atf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: read_atf.c,v 1.14 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_atf.c,v 1.15 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 92c96 < int *count,MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 95c99 < int *count,MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 108c112 < int *count,MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 111c115 < int *count,MPI_Datatype *datatype,MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 116c120 < *ierr = MPI_File_read_at(fh_c,*offset,buf,*count,*datatype,status); --- > *ierr = MPI_File_read_at(fh_c,*offset,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/read_ordbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_ordbf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: read_ordbf.c,v 1.12 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_ordbf.c,v 1.13 2003/07/08 22:25:46 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ORDERED_BEGIN( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 91,92c95,96 < void mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,int *ierr ); --- > void mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,int *ierr ) --- > void mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_read_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Fint *ierr ){ 115c119 < *ierr = MPI_File_read_ordered_begin(fh_c,buf,*count,*datatype); --- > *ierr = MPI_File_read_ordered_begin(fh_c,buf,*count,(MPI_Datatype)*datatype); Index: romio/mpi-io/fortran/read_ordef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_ordef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: read_ordef.c,v 1.12 2002/10/24 17:01:23 gropp Exp $ --- > * $Id: read_ordef.c,v 1.13 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ORDERED_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 91c95 < int *ierr ); --- > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_read_ordered_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_read_ordered_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/read_ordf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_ordf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: read_ordf.c,v 1.13 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: read_ordf.c,v 1.14 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_ORDERED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_ordered_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_read_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_read_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_read_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_read_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_read_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_read_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_read_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ 115c119 < *ierr = MPI_File_read_ordered(fh_c,buf,*count,*datatype,status); --- > *ierr = MPI_File_read_ordered(fh_c,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/read_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/read_shf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: read_shf.c,v 1.12 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: read_shf.c,v 1.13 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ_SHARED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read_shared__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read_shared( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_shared_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,94c95,98 < void mpi_file_read_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); < void mpi_file_read_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_read_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); > void mpi_file_read_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 106,109c110,113 < FORTRAN_API void FORT_CALL mpi_file_read_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); < FORTRAN_API void FORT_CALL mpi_file_read_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_read_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); > FORTRAN_API void FORT_CALL mpi_file_read_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 114c118 < *ierr = MPI_File_read_shared(fh_c,buf,*count,*datatype,status); --- > *ierr = MPI_File_read_shared(fh_c,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/readf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/readf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: readf.c,v 1.14 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: readf.c,v 1.15 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_READ( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_read__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_read( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_read_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_read_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_read_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_read_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_read_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_read_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_read_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_read_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_read_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 116c120 < *ierr = MPI_File_read(fh_c,buf,*count,*datatype,status); --- > *ierr = MPI_File_read(fh_c,buf,*count,(MPI_Datatype)*datatype,status); Index: romio/mpi-io/fortran/seek_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/seek_shf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: seek_shf.c,v 1.12 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: seek_shf.c,v 1.13 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SEEK_SHARED( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_seek_shared__( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_seek_shared( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_seek_shared_( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 90,91c94,95 < FORTRAN_API void FORT_CALL mpi_file_seek_shared_(MPI_Fint *fh,MPI_Offset *offset,int *whence, < int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_seek_shared_(MPI_Fint *fh,MPI_Offset *offset,MPI_Fint *whence, > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_seek_shared_(MPI_Fint *fh,MPI_Offset *offset,int *whence, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_seek_shared_(MPI_Fint *fh,MPI_Offset *offset,MPI_Fint *whence, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/seekf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/seekf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: seekf.c,v 1.13 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: seekf.c,v 1.14 2003/07/08 22:25:47 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SEEK( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_seek__( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_seek( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_seek_( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_seek_(MPI_Fint *fh,MPI_Offset *offset,int *whence, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_seek_(MPI_Fint *fh,MPI_Offset *offset,MPI_Fint *whence, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_seek_(MPI_Fint *fh,MPI_Offset *offset,int *whence, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_seek_(MPI_Fint *fh,MPI_Offset *offset,MPI_Fint *whence, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/set_atomf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/set_atomf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: set_atomf.c,v 1.13 2002/10/24 17:01:24 gropp Exp $ --- > * $Id: set_atomf.c,v 1.14 2003/07/08 22:25:48 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SET_ATOMICITY( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_set_atomicity__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_set_atomicity( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_set_atomicity_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_set_atomicity_(MPI_Fint *fh,int *flag, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_set_atomicity_(MPI_Fint *fh,MPI_Fint *flag, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_set_atomicity_(MPI_Fint *fh,int *flag, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_set_atomicity_(MPI_Fint *fh,MPI_Fint *flag, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/set_errhf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/set_errhf.c,v retrieving revision 1.8 retrieving revision 1.9 diff -r1.8 -r1.9 3c3 < * $Id: set_errhf.c,v 1.8 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: set_errhf.c,v 1.9 2003/07/08 22:25:48 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SET_ERRHANDLER( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_set_errhandler__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_set_errhandler( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_set_errhandler_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_set_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, int *ierr); --- > FORTRAN_API void FORT_CALL mpi_file_set_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, MPI_Fint *ierr); 92c96 < FORTRAN_API void FORT_CALL mpi_file_set_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, int *ierr) --- > FORTRAN_API void FORT_CALL mpi_file_set_errhandler_(MPI_Fint *fh, MPI_Fint *err_handler, MPI_Fint *ierr) Index: romio/mpi-io/fortran/set_infof.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/set_infof.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: set_infof.c,v 1.13 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: set_infof.c,v 1.14 2003/07/08 22:25:48 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SET_INFO( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_set_info__( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_set_info( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_set_info_( MPI_Fint *, MPI_Fint *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/set_sizef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/set_sizef.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: set_sizef.c,v 1.13 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: set_sizef.c,v 1.14 2003/07/08 22:25:48 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_SET_SIZE( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_set_size__( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_set_size( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_set_size_( MPI_Fint *, MPI_Offset *, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_set_size_(MPI_Fint *fh,MPI_Offset *size, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_set_size_(MPI_Fint *fh,MPI_Offset *size, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_set_size_(MPI_Fint *fh,MPI_Offset *size, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_set_size_(MPI_Fint *fh,MPI_Offset *size, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/set_viewf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/set_viewf.c,v retrieving revision 1.15 retrieving revision 1.16 diff -r1.15 -r1.16 3c3 < * $Id: set_viewf.c,v 1.15 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: set_viewf.c,v 1.16 2003/07/08 22:25:48 thakur Exp $ 20a21 > extern FORTRAN_API void FORT_CALL MPI_FILE_SET_VIEW( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 22a24 > extern FORTRAN_API void FORT_CALL mpi_file_set_view__( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 24a27 > extern FORTRAN_API void FORT_CALL mpi_file_set_view( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 26a30 > extern FORTRAN_API void FORT_CALL mpi_file_set_view_( MPI_Fint *, MPI_Offset *, MPI_Fint *, MPI_Fint *, char * FORT_MIXED_LEN_DECL, MPI_Fint *, MPI_Fint * FORT_END_LEN_DECL ); 145,147c149 < FORTRAN_API void FORT_CALL mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype, < MPI_Datatype *filetype,char *datarep,MPI_Fint *info, int *ierr, < int str_len ); --- > FORTRAN_API void FORT_CALL mpi_file_set_view_( MPI_Fint *fh, MPI_Offset *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep FORT_MIXED_LEN_DECL, MPI_Fint *info, MPI_Fint *ierr FORT_END_LEN_DECL ); 149,151c151 < FORTRAN_API void FORT_CALL mpi_file_set_view_(MPI_Fint *fh,MPI_Offset *disp,MPI_Datatype *etype, < MPI_Datatype *filetype,char *datarep,MPI_Fint *info, int *ierr, < int str_len ) --- > FORTRAN_API void FORT_CALL mpi_file_set_view_( MPI_Fint *fh, MPI_Offset *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep FORT_MIXED_LEN(str_len), MPI_Fint *info, MPI_Fint *ierr FORT_END_LEN(str_len) ) Index: romio/mpi-io/fortran/wr_atallbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/wr_atallbf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: wr_atallbf.c,v 1.12 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: wr_atallbf.c,v 1.13 2003/07/08 22:25:48 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_AT_ALL_BEGIN( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_begin__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_begin( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_begin_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 93c97 < int *count,MPI_Fint *datatype, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ); 96c100 < int *count,MPI_Fint *datatype, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ) 109c113 < int *count,MPI_Datatype *datatype, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ); 112c116 < int *count,MPI_Datatype *datatype, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, MPI_Fint *ierr ) 117c121 < *ierr = MPI_File_write_at_all_begin(fh_c,*offset,buf,*count,*datatype); --- > *ierr = MPI_File_write_at_all_begin(fh_c,*offset,buf,*count,(MPI_Datatype)*datatype); Index: romio/mpi-io/fortran/wr_atallef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/wr_atallef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: wr_atallef.c,v 1.12 2002/10/24 17:01:25 gropp Exp $ --- > * $Id: wr_atallef.c,v 1.13 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_AT_ALL_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 91c95 < int *ierr ); --- > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_write_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_write_at_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/write_allbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_allbf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: write_allbf.c,v 1.12 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_allbf.c,v 1.13 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ALL_BEGIN( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_begin__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_begin( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_begin_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 91,94c95,98 < void mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype, int *ierr ); < void mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype, int *ierr ){ --- > void mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); > void mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ){ 105,108c109,112 < FORTRAN_API void FORT_CALL mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype, int *ierr ); < FORTRAN_API void FORT_CALL mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); > FORTRAN_API void FORT_CALL mpi_file_write_all_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ){ 112c116 < *ierr = MPI_File_write_all_begin(fh_c,buf,*count,*datatype); --- > *ierr = MPI_File_write_all_begin(fh_c,buf,*count,(MPI_Datatype)*datatype); Index: romio/mpi-io/fortran/write_allef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_allef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: write_allef.c,v 1.12 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_allef.c,v 1.13 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ALL_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 90c94 < FORTRAN_API void FORT_CALL mpi_file_write_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ); 92c96 < FORTRAN_API void FORT_CALL mpi_file_write_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_write_all_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ){ Index: romio/mpi-io/fortran/write_allf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_allf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: write_allf.c,v 1.14 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_allf.c,v 1.15 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ALL( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_all__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_all( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_all_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_write_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_write_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_write_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ){ --- > void mpi_file_write_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ 106,107c110,111 < FORTRAN_API void FORT_CALL mpi_file_write_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 109,110c113,114 < FORTRAN_API void FORT_CALL mpi_file_write_all_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_write_all_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ Index: romio/mpi-io/fortran/write_atallf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_atallf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: write_atallf.c,v 1.14 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_atallf.c,v 1.15 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_AT_ALL( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_all_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 92,93c96,97 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 96,97c100,101 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) 110,111c114,115 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 114,115c118,119 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/write_atf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_atf.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: write_atf.c,v 1.14 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_atf.c,v 1.15 2003/07/08 22:25:49 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_AT( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_at__( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_at( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_at_( MPI_Fint *, MPI_Offset *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 92,93c96,97 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 96,97c100,101 < int *count,MPI_Fint *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) 110,111c114,115 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ); --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ); 114,115c118,119 < int *count,MPI_Datatype *datatype, < MPI_Status *status, int *ierr ) --- > MPI_Fint *count,MPI_Fint *datatype, > MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/write_ordbf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_ordbf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: write_ordbf.c,v 1.12 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_ordbf.c,v 1.13 2003/07/08 22:25:50 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ORDERED_BEGIN( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Fint * ); 91,92c95,96 < void mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype, int *ierr ); --- > void mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); 95c99 < MPI_Fint *datatype, int *ierr ){ --- > MPI_Fint *datatype, MPI_Fint *ierr ){ 106,107c110,111 < FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_ordered_begin_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype, MPI_Fint *ierr ); 110c114 < MPI_Datatype *datatype, int *ierr ){ --- > MPI_Fint *datatype, MPI_Fint *ierr ){ Index: romio/mpi-io/fortran/write_ordef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_ordef.c,v retrieving revision 1.12 retrieving revision 1.13 diff -r1.12 -r1.13 3c3 < * $Id: write_ordef.c,v 1.12 2002/10/24 17:01:26 gropp Exp $ --- > * $Id: write_ordef.c,v 1.13 2003/07/08 22:25:50 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ORDERED_END( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_end__( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_end( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_end_( MPI_Fint *, void*, MPI_Status*, MPI_Fint * ); 91c95 < int *ierr ); --- > MPI_Fint *ierr ); 93c97 < FORTRAN_API void FORT_CALL mpi_file_write_ordered_end_(MPI_Fint *fh,void *buf,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_write_ordered_end_(MPI_Fint *fh,void *buf,MPI_Status *status, MPI_Fint *ierr ){ Index: romio/mpi-io/fortran/write_ordf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_ordf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: write_ordf.c,v 1.13 2002/10/24 17:01:27 gropp Exp $ --- > * $Id: write_ordf.c,v 1.14 2003/07/08 22:25:50 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_ORDERED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_ordered_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_write_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_write_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_write_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ){ --- > void mpi_file_write_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ 106,107c110,111 < FORTRAN_API void FORT_CALL mpi_file_write_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 109,110c113,114 < FORTRAN_API void FORT_CALL mpi_file_write_ordered_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ){ --- > FORTRAN_API void FORT_CALL mpi_file_write_ordered_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ){ Index: romio/mpi-io/fortran/write_shf.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/write_shf.c,v retrieving revision 1.13 retrieving revision 1.14 diff -r1.13 -r1.14 3c3 < * $Id: write_shf.c,v 1.13 2002/10/24 17:01:27 gropp Exp $ --- > * $Id: write_shf.c,v 1.14 2003/07/08 22:25:50 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE_SHARED( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write_shared__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write_shared( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_shared_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_write_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_write_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_write_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_write_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_write_shared_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_shared_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 111c115 < MPI_Datatype *datatype,MPI_Status *status, int *ierr ) --- > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) Index: romio/mpi-io/fortran/writef.c =================================================================== RCS file: /MPIhome/romio/mpi-io/fortran/writef.c,v retrieving revision 1.14 retrieving revision 1.15 diff -r1.14 -r1.15 3c3 < * $Id: writef.c,v 1.14 2002/10/24 17:01:27 gropp Exp $ --- > * $Id: writef.c,v 1.15 2003/07/08 22:25:50 thakur Exp $ 17a18 > extern FORTRAN_API void FORT_CALL MPI_FILE_WRITE( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 19a21 > extern FORTRAN_API void FORT_CALL mpi_file_write__( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 21a24 > extern FORTRAN_API void FORT_CALL mpi_file_write( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 23a27 > extern FORTRAN_API void FORT_CALL mpi_file_write_( MPI_Fint *, void*, MPI_Fint *, MPI_Fint *, MPI_Status*, MPI_Fint * ); 91,92c95,96 < void mpi_file_write_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ); --- > void mpi_file_write_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 94,95c98,99 < void mpi_file_write_(MPI_Fint *fh,void *buf,int *count, < MPI_Fint *datatype,MPI_Status *status, int *ierr ) --- > void mpi_file_write_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ) 107,108c111,112 < FORTRAN_API void FORT_CALL mpi_file_write_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ); --- > FORTRAN_API void FORT_CALL mpi_file_write_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr ); 110,111c114,115 < FORTRAN_API void FORT_CALL mpi_file_write_(MPI_Fint *fh,void *buf,int *count, < MPI_Datatype *datatype,MPI_Status *status, int *ierr ) --- > FORTRAN_API void FORT_CALL mpi_file_write_(MPI_Fint *fh,void *buf,MPI_Fint *count, > MPI_Fint *datatype,MPI_Status *status, MPI_Fint *ierr )