Changeset 3914

Show
Ignore:
Timestamp:
02/28/09 23:27:46 (13 months ago)
Author:
balaji
Message:

First draft of the const additions in MPI-2.2 (tickets #46, #129 and #130 in the MPI Forum).

Location:
mpich2/branches/dev/mpi_binding_const/src
Files:
132 modified

Legend:

Unmodified
Added
Removed

  • mpich2/branches/dev/mpi_binding_const/src/binding/f77/buildiface

    r3819 r3914  
    29872987#define FUNCNAME MPI_Status_f2c 
    29882988 
    2989 int MPI_Status_f2c( MPI_Fint *f_status, MPI_Status *c_status ) 
     2989int MPI_Status_f2c( const MPI_Fint *f_status, MPI_Status *c_status ) 
    29902990{ 
    29912991    int mpi_errno = MPI_SUCCESS; 
    … …  
    30463046#define FUNCNAME MPI_Status_c2f 
    30473047 
    3048 int MPI_Status_c2f( MPI_Status *c_status, MPI_Fint *f_status ) 
     3048int MPI_Status_c2f( const MPI_Status *c_status, MPI_Fint *f_status ) 
    30493049{ 
    30503050    int mpi_errno = MPI_SUCCESS; 

  • mpich2/branches/dev/mpi_binding_const/src/include/mpi.h.in

    r3903 r3914  
    239239 
    240240/* User combination function */ 
    241 typedef void (MPI_User_function) ( void *, void *, int *, MPI_Datatype * );  
     241typedef void (MPI_User_function) ( const void *, void *, const int *, MPI_Datatype * );  
    242242 
    243243/* MPI Attribute copy and delete functions */ 
    … …  
    646646int MPI_Cart_shift(MPI_Comm, int, int, int *, int *); 
    647647int MPI_Cart_sub(MPI_Comm, const int *, MPI_Comm *); 
    648 int MPI_Cart_map(MPI_Comm, int, const int *, const int *, const int *); 
     648int MPI_Cart_map(MPI_Comm, int, const int *, const int *, int *); 
    649649int MPI_Graph_map(MPI_Comm, int, const int *, const int *, int *); 
    650650int MPI_Get_processor_name(char *, int *); 
    … …  
    686686int MPI_Comm_spawn(const char *, /* const */ char *[], int, MPI_Info, int, MPI_Comm, MPI_Comm *, 
    687687                   int []); 
    688 int MPI_Comm_spawn_multiple(int, /* const */ char *[], /* const */ char **[], const int [], /* const */ MPI_Info [], int, 
    689                             MPI_Comm, MPI_Comm *, int []);  
     688int MPI_Comm_spawn_multiple(int, /* const */ char *[], /* const */ char **[], const int [], /* const */ MPI_Info [], int, MPI_Comm, MPI_Comm *, int []);  
    690689int MPI_Lookup_name(const char *, MPI_Info, char *); 
    691690int MPI_Open_port(MPI_Info, char *); 
    … …  
    842841/* Here are the bindings of the profiling routines */ 
    843842#if !defined(MPI_BUILD_PROFILING) 
    844 int PMPI_Send(void*, int, MPI_Datatype, int, int, MPI_Comm); 
     843int PMPI_Send(const void*, int, MPI_Datatype, int, int, MPI_Comm); 
    845844int PMPI_Recv(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Status *); 
    846845int PMPI_Get_count(MPI_Status *, MPI_Datatype, int *); 
    847 int PMPI_Bsend(void*, int, MPI_Datatype, int, int, MPI_Comm); 
    848 int PMPI_Ssend(void*, int, MPI_Datatype, int, int, MPI_Comm); 
    849 int PMPI_Rsend(void*, int, MPI_Datatype, int, int, MPI_Comm); 
     846int PMPI_Bsend(const void*, int, MPI_Datatype, int, int, MPI_Comm); 
     847int PMPI_Ssend(const void*, int, MPI_Datatype, int, int, MPI_Comm); 
     848int PMPI_Rsend(const void*, int, MPI_Datatype, int, int, MPI_Comm); 
    850849int PMPI_Buffer_attach( void* buffer, int); 
    851850int PMPI_Buffer_detach( void* buffer, int *); 
    852 int PMPI_Isend(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    853 int PMPI_Ibsend(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    854 int PMPI_Issend(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    855 int PMPI_Irsend(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     851int PMPI_Isend(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     852int PMPI_Ibsend(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     853int PMPI_Issend(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     854int PMPI_Irsend(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    856855int PMPI_Irecv(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    857856int PMPI_Wait(MPI_Request *, MPI_Status *); 
    … …  
    867866int PMPI_Probe(int, int, MPI_Comm, MPI_Status *); 
    868867int PMPI_Cancel(MPI_Request *); 
    869 int PMPI_Test_cancelled(MPI_Status *, int *); 
    870 int PMPI_Send_init(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    871 int PMPI_Bsend_init(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    872 int PMPI_Ssend_init(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    873 int PMPI_Rsend_init(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     868int PMPI_Test_cancelled(const MPI_Status *, int *); 
     869int PMPI_Send_init(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     870int PMPI_Bsend_init(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     871int PMPI_Ssend_init(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
     872int PMPI_Rsend_init(const void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    874873int PMPI_Recv_init(void*, int, MPI_Datatype, int, int, MPI_Comm, MPI_Request *); 
    875874int PMPI_Start(MPI_Request *); 
    876875int PMPI_Startall(int, MPI_Request *); 
    877 int PMPI_Sendrecv(void *, int, MPI_Datatype, int, int, void *, int, MPI_Datatype, int, int, MPI_Comm, MPI_Status *); 
     876int PMPI_Sendrecv(const void *, int, MPI_Datatype, int, int, void *, int, MPI_Datatype, int, int, MPI_Comm, MPI_Status *); 
    878877int PMPI_Sendrecv_replace(void*, int, MPI_Datatype, int, int, int, int, MPI_Comm, MPI_Status *); 
    879878int PMPI_Type_contiguous(int, MPI_Datatype, MPI_Datatype *); 
    880879int PMPI_Type_vector(int, int, int, MPI_Datatype, MPI_Datatype *); 
    881880int PMPI_Type_hvector(int, int, MPI_Aint, MPI_Datatype, MPI_Datatype *); 
    882 int PMPI_Type_indexed(int, int *, int *, MPI_Datatype, MPI_Datatype *); 
    883 int PMPI_Type_hindexed(int, int *, MPI_Aint *, MPI_Datatype, MPI_Datatype *); 
    884 int PMPI_Type_struct(int, int *, MPI_Aint *, MPI_Datatype *, MPI_Datatype *); 
    885 int PMPI_Address(void*, MPI_Aint *); 
     881int PMPI_Type_indexed(int, const int *, const int *, MPI_Datatype, MPI_Datatype *); 
     882int PMPI_Type_hindexed(int, const int *, const MPI_Aint *, MPI_Datatype, MPI_Datatype *); 
     883int PMPI_Type_struct(int, const int *, const MPI_Aint *, const MPI_Datatype *, MPI_Datatype *); 
     884int PMPI_Address(const void*, MPI_Aint *); 
    886885int PMPI_Type_extent(MPI_Datatype, MPI_Aint *); 
    887886int PMPI_Type_size(MPI_Datatype, int *); 
    … …  
    891890int PMPI_Type_free(MPI_Datatype *); 
    892891int PMPI_Get_elements(MPI_Status *, MPI_Datatype, int *); 
    893 int PMPI_Pack(void*, int, MPI_Datatype, void *, int, int *,  MPI_Comm); 
    894 int PMPI_Unpack(void*, int, int *, void *, int, MPI_Datatype, MPI_Comm); 
     892int PMPI_Pack(const void*, int, MPI_Datatype, void *, int, int *,  MPI_Comm); 
     893int PMPI_Unpack(const void*, int, int *, void *, int, MPI_Datatype, MPI_Comm); 
    895894int PMPI_Pack_size(int, MPI_Datatype, MPI_Comm, int *); 
    896895int PMPI_Barrier(MPI_Comm ); 
    897 int PMPI_Bcast(void* buffer, int, MPI_Datatype, int, MPI_Comm ); 
    898 int PMPI_Gather(void* , int, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm);  
    899 int PMPI_Gatherv(void* , int, MPI_Datatype, void*, int *, int *, MPI_Datatype, int, MPI_Comm);  
    900 int PMPI_Scatter(void* , int, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm); 
    901 int PMPI_Scatterv(void* , int *, int *displs, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm); 
    902 int PMPI_Allgather(void* , int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm); 
    903 int PMPI_Allgatherv(void* , int, MPI_Datatype, void*, int *, int *, MPI_Datatype, MPI_Comm); 
    904 int PMPI_Alltoall(void* , int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm); 
    905 int PMPI_Alltoallv(void* , int *, int *, MPI_Datatype, void*, int *, int *, MPI_Datatype, MPI_Comm); 
    906 int PMPI_Reduce(void* , void*, int, MPI_Datatype, MPI_Op, int, MPI_Comm); 
     896int PMPI_Bcast(void*, int, MPI_Datatype, int, MPI_Comm ); 
     897int PMPI_Gather(const void* , int, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm);  
     898int PMPI_Gatherv(const void* , int, MPI_Datatype, void*, const int *, const int *, MPI_Datatype, int, MPI_Comm);  
     899int PMPI_Scatter(const void* , int, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm); 
     900int PMPI_Scatterv(const void* , const int *, const int *, MPI_Datatype, void*, int, MPI_Datatype, int, MPI_Comm); 
     901int PMPI_Allgather(const void* , int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm); 
     902int PMPI_Allgatherv(const void* , int, MPI_Datatype, void*, const int *, const int *, MPI_Datatype, MPI_Comm); 
     903int PMPI_Alltoall(const void* , int, MPI_Datatype, void*, int, MPI_Datatype, MPI_Comm); 
     904int PMPI_Alltoallv(const void* , const int *, const int *, MPI_Datatype, void*, const int *, const int *, MPI_Datatype, MPI_Comm); 
     905int PMPI_Reduce(const void* , void*, int, MPI_Datatype, MPI_Op, int, MPI_Comm); 
    907906int PMPI_Op_create(MPI_User_function *, int, MPI_Op *); 
    908907int PMPI_Op_free( MPI_Op *); 
    909 int PMPI_Allreduce(void* , void*, int, MPI_Datatype, MPI_Op, MPI_Comm); 
    910 int PMPI_Reduce_scatter(void* , void*, int *, MPI_Datatype, MPI_Op, MPI_Comm); 
    911 int PMPI_Scan(void* , void*, int, MPI_Datatype, MPI_Op, MPI_Comm ); 
     908int PMPI_Allreduce(const void* , void*, int, MPI_Datatype, MPI_Op, MPI_Comm); 
     909int PMPI_Reduce_scatter(const void* , void*, const int *, MPI_Datatype, MPI_Op, MPI_Comm); 
     910int PMPI_Scan(const void* , void*, int, MPI_Datatype, MPI_Op, MPI_Comm ); 
    912911int PMPI_Group_size(MPI_Group, int *); 
    913912int PMPI_Group_rank(MPI_Group, int *); 
    914 int PMPI_Group_translate_ranks (MPI_Group, int, int *, MPI_Group, int *); 
     913int PMPI_Group_translate_ranks(MPI_Group, int, const int *, MPI_Group, int *); 
    915914int PMPI_Group_compare(MPI_Group, MPI_Group, int *); 
    916915int PMPI_Comm_group(MPI_Comm, MPI_Group *); 
    … …  
    918917int PMPI_Group_intersection(MPI_Group, MPI_Group, MPI_Group *); 
    919918int PMPI_Group_difference(MPI_Group, MPI_Group, MPI_Group *); 
    920 int PMPI_Group_incl(MPI_Group, int, int *, MPI_Group *); 
    921 int PMPI_Group_excl(MPI_Group, int, int *, MPI_Group *); 
    922 int PMPI_Group_range_incl(MPI_Group, int, int [][3], MPI_Group *); 
    923 int PMPI_Group_range_excl(MPI_Group, int, int [][3], MPI_Group *); 
     919int PMPI_Group_incl(MPI_Group, int, const int *, MPI_Group *); 
     920int PMPI_Group_excl(MPI_Group, int, const int *, MPI_Group *); 
     921int PMPI_Group_range_incl(MPI_Group, int, /* const */ int [][3], MPI_Group *); 
     922int PMPI_Group_range_excl(MPI_Group, int, /* const */ int [][3], MPI_Group *); 
    924923int PMPI_Group_free(MPI_Group *); 
    925924int PMPI_Comm_size(MPI_Comm, int *); 
    … …  
    941940int PMPI_Attr_delete(MPI_Comm, int); 
    942941int PMPI_Topo_test(MPI_Comm, int *); 
    943 int PMPI_Cart_create(MPI_Comm, int, int *, int *, int, MPI_Comm *); 
     942int PMPI_Cart_create(MPI_Comm, int, const int *, const int *, int, MPI_Comm *); 
    944943int PMPI_Dims_create(int, int, int *); 
    945 int PMPI_Graph_create(MPI_Comm, int, int *, int *, int, MPI_Comm *); 
     944int PMPI_Graph_create(MPI_Comm, int, const int *, const int *, int, MPI_Comm *); 
    946945int PMPI_Graphdims_get(MPI_Comm, int *, int *); 
    947946int PMPI_Graph_get(MPI_Comm, int, int, int *, int *); 
    948947int PMPI_Cartdim_get(MPI_Comm, int *); 
    949948int PMPI_Cart_get(MPI_Comm, int, int *, int *, int *); 
    950 int PMPI_Cart_rank(MPI_Comm, int *, int *); 
     949int PMPI_Cart_rank(MPI_Comm, const int *, int *); 
    951950int PMPI_Cart_coords(MPI_Comm, int, int, int *); 
    952951int PMPI_Graph_neighbors_count(MPI_Comm, int, int *); 
    953952int PMPI_Graph_neighbors(MPI_Comm, int, int, int *); 
    954953int PMPI_Cart_shift(MPI_Comm, int, int, int *, int *); 
    955 int PMPI_Cart_sub(MPI_Comm, int *, MPI_Comm *); 
    956 int PMPI_Cart_map(MPI_Comm, int, int *, int *, int *); 
    957 int PMPI_Graph_map(MPI_Comm, int, int *, int *, int *); 
     954int PMPI_Cart_sub(MPI_Comm, const int *, MPI_Comm *); 
     955int PMPI_Cart_map(MPI_Comm, int, const int *, const int *, int *); 
     956int PMPI_Graph_map(MPI_Comm, int, const int *, const int *, int *); 
    958957int PMPI_Get_processor_name(char *, int *); 
    959958int PMPI_Get_version(int *, int *); 
    … …  
    976975 
    977976/* Process Creation and Management */ 
    978 int PMPI_Close_port(char *); 
    979 int PMPI_Comm_accept(char *, MPI_Info, int, MPI_Comm, MPI_Comm *); 
    980 int PMPI_Comm_connect(char *, MPI_Info, int, MPI_Comm, MPI_Comm *); 
     977int PMPI_Close_port(const char *); 
     978int PMPI_Comm_accept(const char *, MPI_Info, int, MPI_Comm, MPI_Comm *); 
     979int PMPI_Comm_connect(const char *, MPI_Info, int, MPI_Comm, MPI_Comm *); 
    981980int PMPI_Comm_disconnect(MPI_Comm *); 
    982981int PMPI_Comm_get_parent(MPI_Comm *); 
    983982int PMPI_Comm_join(int, MPI_Comm *); 
    984 int PMPI_Comm_spawn(char *, char *[], int, MPI_Info, int, MPI_Comm, MPI_Comm *, 
    985                    int []); 
    986 int PMPI_Comm_spawn_multiple(int, char *[], char **[], int [], MPI_Info [], int, 
    987                             MPI_Comm, MPI_Comm *, int []);  
    988 int PMPI_Lookup_name(char *, MPI_Info, char *); 
     983int PMPI_Comm_spawn(const char *, /* const */ char *[], int, MPI_Info, int, MPI_Comm, MPI_Comm *, 
     984                    int []); 
     985int PMPI_Comm_spawn_multiple(int, /* const */ char *[], /* const */ char **[], const int [], /* const */ MPI_Info [], int, MPI_Comm, MPI_Comm *, int []);  
     986int PMPI_Lookup_name(const char *, MPI_Info, char *); 
    989987int PMPI_Open_port(MPI_Info, char *); 
    990 int PMPI_Publish_name(char *, MPI_Info, char *); 
    991 int PMPI_Unpublish_name(char *, MPI_Info, char *); 
     988int PMPI_Publish_name(const char *, MPI_Info, const char *); 
     989int PMPI_Unpublish_name(const char *, MPI_Info, const char *); 
    992990 
    993991/* One-Sided Communications */ 
    994 int PMPI_Accumulate(void *, int, MPI_Datatype, int, MPI_Aint, int,  
    995                    MPI_Datatype,  MPI_Op, MPI_Win); 
     992int PMPI_Accumulate(const void *, int, MPI_Datatype, int, MPI_Aint, int,  
     993                    MPI_Datatype,  MPI_Op, MPI_Win); 
    996994int PMPI_Get(void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
    997995            MPI_Win); 
    998 int PMPI_Put(void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
    999             MPI_Win); 
     996int PMPI_Put(const void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
     997             MPI_Win); 
    1000998int PMPI_Win_complete(MPI_Win); 
    1001999int PMPI_Win_create(void *, MPI_Aint, int, MPI_Info, MPI_Comm, MPI_Win *); 
    … …  
    10111009  
    10121010/* Extended Collective Operations */ 
    1013 int PMPI_Alltoallw(void *, int [], int [], MPI_Datatype [], void *, int [], 
    1014                    int [], MPI_Datatype [], MPI_Comm); 
    1015 int PMPI_Exscan(void *, void *, int, MPI_Datatype, MPI_Op, MPI_Comm) ; 
     1011int PMPI_Alltoallw(const void *, const int [], const int [], const MPI_Datatype [], void *, const int [], const int [], const MPI_Datatype [], MPI_Comm); 
     1012int PMPI_Exscan(const void *, void *, int, MPI_Datatype, MPI_Op, MPI_Comm) ; 
    10161013  
    10171014/* External Interfaces */ 
    10181015int PMPI_Add_error_class(int *); 
    10191016int PMPI_Add_error_code(int, int *); 
    1020 int PMPI_Add_error_string(int, char *); 
     1017int PMPI_Add_error_string(int, const char *); 
    10211018int PMPI_Comm_call_errhandler(MPI_Comm, int); 
    10221019int PMPI_Comm_create_keyval(MPI_Comm_copy_attr_function *,  
    … …  
    10271024int PMPI_Comm_get_name(MPI_Comm, char *, int *); 
    10281025int PMPI_Comm_set_attr(MPI_Comm, int, void *); 
    1029 int PMPI_Comm_set_name(MPI_Comm, char *); 
     1026int PMPI_Comm_set_name(MPI_Comm, const char *); 
    10301027int PMPI_File_call_errhandler(MPI_File, int); 
    10311028int PMPI_Grequest_complete(MPI_Request); 
    … …  
    10491046int PMPI_Type_get_name(MPI_Datatype, char *, int *); 
    10501047int PMPI_Type_set_attr(MPI_Datatype, int, void *); 
    1051 int PMPI_Type_set_name(MPI_Datatype, char *); 
     1048int PMPI_Type_set_name(MPI_Datatype, const char *); 
    10521049int PMPI_Type_match_size( int, int, MPI_Datatype *); 
    10531050int PMPI_Win_call_errhandler(MPI_Win, int); 
    … …  
    10591056int PMPI_Win_get_name(MPI_Win, char *, int *); 
    10601057int PMPI_Win_set_attr(MPI_Win, int, void *); 
    1061 int PMPI_Win_set_name(MPI_Win, char *); 
     1058int PMPI_Win_set_name(MPI_Win, const char *); 
    10621059 
    10631060/* Fortran 90-related functions.  These routines are available only if 
    … …  
    10781075int PMPI_Finalized(int *); 
    10791076int PMPI_Free_mem(void *); 
    1080 int PMPI_Get_address(void *, MPI_Aint *); 
     1077int PMPI_Get_address(const void *, MPI_Aint *); 
    10811078int PMPI_Info_create(MPI_Info *); 
    1082 int PMPI_Info_delete(MPI_Info, char *); 
     1079int PMPI_Info_delete(MPI_Info, const char *); 
    10831080int PMPI_Info_dup(MPI_Info, MPI_Info *); 
    10841081int PMPI_Info_free(MPI_Info *info); 
    1085 int PMPI_Info_get(MPI_Info, char *, int, char *, int *); 
     1082int PMPI_Info_get(MPI_Info, const char *, int, char *, int *); 
    10861083int PMPI_Info_get_nkeys(MPI_Info, int *); 
    10871084int PMPI_Info_get_nthkey(MPI_Info, int, char *); 
    1088 int PMPI_Info_get_valuelen(MPI_Info, char *, int *, int *); 
    1089 int PMPI_Info_set(MPI_Info, char *, char *); 
    1090 int PMPI_Pack_external(char *, void *, int, MPI_Datatype, void *, MPI_Aint,  
    1091                       MPI_Aint *);  
    1092 int PMPI_Pack_external_size(char *, int, MPI_Datatype, MPI_Aint *);  
     1085int PMPI_Info_get_valuelen(MPI_Info, const char *, int *, int *); 
     1086int PMPI_Info_set(MPI_Info, const char *, const char *); 
     1087int PMPI_Pack_external(const char *, const void *, int, MPI_Datatype, void *, MPI_Aint,  
     1088                       MPI_Aint *);  
     1089int PMPI_Pack_external_size(const char *, int, MPI_Datatype, MPI_Aint *);  
    10931090int PMPI_Request_get_status(MPI_Request, int *, MPI_Status *); 
    1094 int PMPI_Status_c2f(MPI_Status *, MPI_Fint *); 
    1095 int PMPI_Status_f2c(MPI_Fint *, MPI_Status *); 
    1096 int PMPI_Type_create_darray(int, int, int, int [], int [], int [], int [], int, 
    1097                            MPI_Datatype, MPI_Datatype *); 
    1098 int PMPI_Type_create_hindexed(int, int [], MPI_Aint [], MPI_Datatype,  
    1099                              MPI_Datatype *); 
     1091int PMPI_Status_c2f(const MPI_Status *, MPI_Fint *); 
     1092int PMPI_Status_f2c(const MPI_Fint *, MPI_Status *); 
     1093int PMPI_Type_create_darray(int, int, int, const int [], const int [], const int [], const int [], int, MPI_Datatype, MPI_Datatype *); 
     1094int PMPI_Type_create_hindexed(int, const int [], const MPI_Aint [], MPI_Datatype,  
     1095                              MPI_Datatype *); 
    11001096int PMPI_Type_create_hvector(int, int, MPI_Aint, MPI_Datatype, MPI_Datatype *); 
    1101 int PMPI_Type_create_indexed_block(int, int, int [], MPI_Datatype,  
     1097int PMPI_Type_create_indexed_block(int, int, const int [], MPI_Datatype,  
    11021098                                  MPI_Datatype *); 
    11031099int PMPI_Type_create_resized(MPI_Datatype, MPI_Aint, MPI_Aint, MPI_Datatype *); 
    1104 int PMPI_Type_create_struct(int, int [], MPI_Aint [], MPI_Datatype [],  
    1105                            MPI_Datatype *); 
    1106 int PMPI_Type_create_subarray(int, int [], int [], int [], int, MPI_Datatype,  
     1100int PMPI_Type_create_struct(int, const int [], const MPI_Aint [], const MPI_Datatype [],  
     1101                            MPI_Datatype *); 
     1102int PMPI_Type_create_subarray(int, const int [], const int [], const int [], int, MPI_Datatype,  
    11071103                             MPI_Datatype *); 
    11081104int PMPI_Type_get_extent(MPI_Datatype, MPI_Aint *, MPI_Aint *); 
    11091105int PMPI_Type_get_true_extent(MPI_Datatype, MPI_Aint *, MPI_Aint *); 
    1110 int PMPI_Unpack_external(char *, void *, MPI_Aint, MPI_Aint *, void *, int,  
     1106int PMPI_Unpack_external(const char *, const void *, MPI_Aint, MPI_Aint *, void *, int,  
    11111107                        MPI_Datatype);  
    11121108int PMPI_Win_create_errhandler(MPI_Win_errhandler_fn *, MPI_Errhandler *); 

  • mpich2/branches/dev/mpi_binding_const/src/include/mpiimpl.h

    r3837 r3914  
    15151515typedef struct MPIRI_RMA_Ops { 
    15161516    int (*Win_free)(struct MPID_Win **); 
    1517     int (*Put)(void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
     1517    int (*Put)(const void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
    15181518                struct MPID_Win *); 
    15191519    int (*Get)(void *, int, MPI_Datatype, int, MPI_Aint, int, MPI_Datatype,  
    15201520                struct MPID_Win *); 
    1521     int (*Accumulate)(void *, int, MPI_Datatype, int, MPI_Aint, int,  
     1521    int (*Accumulate)(const void *, int, MPI_Datatype, int, MPI_Aint, int,  
    15221522                       MPI_Datatype, MPI_Op, struct MPID_Win *); 
    15231523    int (*Win_fence)(int, struct MPID_Win *); 
    … …  
    18171817    int (*Barrier) (MPID_Comm *); 
    18181818    int (*Bcast) (void*, int, MPI_Datatype, int, MPID_Comm * ); 
    1819     int (*Gather) (void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
     1819    int (*Gather) (const void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
    18201820                   int, MPID_Comm *);  
    1821     int (*Gatherv) (void*, int, MPI_Datatype, void*, int *, int *,  
     1821    int (*Gatherv) (const void*, int, MPI_Datatype, void*, const int *, const int *,  
    18221822                    MPI_Datatype, int, MPID_Comm *);  
    1823     int (*Scatter) (void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
     1823    int (*Scatter) (const void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
    18241824                    int, MPID_Comm *); 
    1825     int (*Scatterv) (void*, int *, int *, MPI_Datatype, void*, int,  
     1825    int (*Scatterv) (const void*, const int *, const int *, MPI_Datatype, void*, int,  
    18261826                    MPI_Datatype, int, MPID_Comm *); 
    1827     int (*Allgather) (void*, int, MPI_Datatype, void*, int,  
     1827    int (*Allgather) (const void*, int, MPI_Datatype, void*, int,  
    18281828                      MPI_Datatype, MPID_Comm *); 
    1829     int (*Allgatherv) (void*, int, MPI_Datatype, void*, int *, int *,  
     1829    int (*Allgatherv) (const void*, int, MPI_Datatype, void*, const int *, const int *,  
    18301830                       MPI_Datatype, MPID_Comm *); 
    1831     int (*Alltoall) (void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
    1832                                MPID_Comm *); 
    1833     int (*Alltoallv) (void*, int *, int *, MPI_Datatype, void*, int *,  
    1834                      int *, MPI_Datatype, MPID_Comm *); 
    1835     int (*Alltoallw) (void*, int *, int *, MPI_Datatype *, void*, int *,  
    1836                      int *, MPI_Datatype *, MPID_Comm *); 
    1837     int (*Reduce) (void*, void*, int, MPI_Datatype, MPI_Op, int,  
     1831    int (*Alltoall) (const void*, int, MPI_Datatype, void*, int, MPI_Datatype,  
     1832                     MPID_Comm *); 
     1833    int (*Alltoallv) (const void*, const int *, const int *, MPI_Datatype, void*, const int *,  
     1834                      const int *, MPI_Datatype, MPID_Comm *); 
     1835    int (*Alltoallw) (const void*, const int *, const int *, const MPI_Datatype *, void*, const int *,  
     1836                      const int *, const MPI_Datatype *, MPID_Comm *); 
     1837    int (*Reduce) (const void*, void*, int, MPI_Datatype, MPI_Op, int,  
    18381838                   MPID_Comm *); 
    1839     int (*Allreduce) (void*, void*, int, MPI_Datatype, MPI_Op,  
     1839    int (*Allreduce) (const void*, void*, int, MPI_Datatype, MPI_Op,  
    18401840                      MPID_Comm *); 
    1841     int (*Reduce_scatter) (void*, void*, int *, MPI_Datatype, MPI_Op,  
     1841    int (*Reduce_scatter) (const void*, void*, const int *, MPI_Datatype, MPI_Op,  
    18421842                           MPID_Comm *); 
    1843     int (*Scan) (void*, void*, int, MPI_Datatype, MPI_Op, MPID_Comm * ); 
    1844     int (*Exscan) (void*, void*, int, MPI_Datatype, MPI_Op, MPID_Comm * ); 
     1843    int (*Scan) (const void*, void*, int, MPI_Datatype, MPI_Op, MPID_Comm * ); 
     1844    int (*Exscan) (const void*, void*, int, MPI_Datatype, MPI_Op, MPID_Comm * ); 
    18451845     
    18461846} MPID_Collops; 
    … …  
    18661866                       int, MPI_Comm * ); 
    18671867    int (*cartMap)   ( const MPID_Comm *, int, const int[], const int [],  
    1868                        int * ); 
     1868                       const int * ); 
    18691869    int (*graphCreate)( const MPID_Comm *, int, const int[], const int [], 
    18701870                        int, MPI_Comm * ); 
    … …  
    26602660  'MPI_SUCCESS' or a valid MPI error code. 
    26612661@*/ 
    2662 int MPID_Comm_accept(char *, MPID_Info *, int, MPID_Comm *, MPID_Comm **); 
     2662int MPID_Comm_accept(const char *, MPID_Info *, int, MPID_Comm *, MPID_Comm **); 
    26632663 
    26642664/*@ 
    … …  
    26812681int MPID_Comm_disconnect(MPID_Comm *); 
    26822682 
    2683 int MPID_Comm_spawn_multiple(int, char *[], char* *[], int [], MPID_Info* [], 
     2683int MPID_Comm_spawn_multiple(int, const char *[], char* *[], const int [], MPID_Info* [], 
    26842684                             int, MPID_Comm *, MPID_Comm **, int []); 
    26852685 
    … …  
    35393539   sends/receives by setting the context offset to 
    35403540   MPID_CONTEXT_INTRA_COLL. */ 
    3541 int MPIC_Send(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     3541int MPIC_Send(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    35423542              MPI_Comm comm); 
    35433543int MPIC_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag, 
    35443544              MPI_Comm comm, MPI_Status *status); 
    3545 int MPIC_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     3545int MPIC_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    35463546                  int dest, int sendtag, void *recvbuf, int recvcount, 
    35473547                  MPI_Datatype recvtype, int source, int recvtag, 
    35483548                  MPI_Comm comm, MPI_Status *status); 
    3549 int MPIR_Localcopy(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     3549int MPIR_Localcopy(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    35503550                   void *recvbuf, int recvcount, MPI_Datatype recvtype); 
    35513551int MPIC_Irecv(void *buf, int count, MPI_Datatype datatype, int 
    35523552               source, int tag, MPI_Comm comm, MPI_Request *request); 
    3553 int MPIC_Isend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     3553int MPIC_Isend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    35543554               MPI_Comm comm, MPI_Request *request); 
    35553555int MPIC_Wait(MPID_Request * request_ptr); 
    35563556 
    35573557 
    3558 void MPIR_MAXF  ( void *, void *, int *, MPI_Datatype * ) ; 
    3559 void MPIR_MINF  ( void *, void *, int *, MPI_Datatype * ) ; 
    3560 void MPIR_SUM  ( void *, void *, int *, MPI_Datatype * ) ; 
    3561 void MPIR_PROD  ( void *, void *, int *, MPI_Datatype * ) ; 
    3562 void MPIR_LAND  ( void *, void *, int *, MPI_Datatype * ) ; 
    3563 void MPIR_BAND  ( void *, void *, int *, MPI_Datatype * ) ; 
    3564 void MPIR_LOR  ( void *, void *, int *, MPI_Datatype * ) ; 
    3565 void MPIR_BOR  ( void *, void *, int *, MPI_Datatype * ) ; 
    3566 void MPIR_LXOR  ( void *, void *, int *, MPI_Datatype * ) ; 
    3567 void MPIR_BXOR  ( void *, void *, int *, MPI_Datatype * ) ; 
    3568 void MPIR_MAXLOC  ( void *, void *, int *, MPI_Datatype * ) ; 
    3569 void MPIR_MINLOC  ( void *, void *, int *, MPI_Datatype * ) ; 
     3558void MPIR_MAXF  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3559void MPIR_MINF  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3560void MPIR_SUM  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3561void MPIR_PROD  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3562void MPIR_LAND  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3563void MPIR_BAND  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3564void MPIR_LOR  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3565void MPIR_BOR  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3566void MPIR_LXOR  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3567void MPIR_BXOR  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3568void MPIR_MAXLOC  ( const void *, void *, const int *, MPI_Datatype * ) ; 
     3569void MPIR_MINLOC  ( const void *, void *, const int *, MPI_Datatype * ) ; 
    35703570 
    35713571int MPIR_MAXF_check_dtype  ( MPI_Datatype ) ; 
    … …  
    35963596#endif /* MPIR_MAX */ 
    35973597 
    3598 int MPIR_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     3598int MPIR_Allgather(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    35993599                   void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    36003600                   MPID_Comm *comm_ptr ); 
    3601 int MPIR_Allgather_inter(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     3601int MPIR_Allgather_inter(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    36023602                         void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    36033603                         MPID_Comm *comm_ptr ); 
    3604 int MPIR_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    3605                     void *recvbuf, int *recvcounts, int *displs,    
     3604int MPIR_Allgatherv(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     3605                    void *recvbuf, const int *recvcounts, const int *displs,    
    36063606                    MPI_Datatype recvtype, MPID_Comm *comm_ptr ); 
    3607 int MPIR_Allgatherv_inter(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    3608                           void *recvbuf, int *recvcounts, int *displs,    
     3607int MPIR_Allgatherv_inter(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     3608                          void *recvbuf, const int *recvcounts, const int *displs,    
    36093609                          MPI_Datatype recvtype, MPID_Comm *comm_ptr ); 
    3610 int MPIR_Allreduce(void *sendbuf, void *recvbuf, int count,  
     3610int MPIR_Allreduce(const void *sendbuf, void *recvbuf, int count,  
    36113611                   MPI_Datatype datatype, MPI_Op op, MPID_Comm *comm_ptr); 
    3612 int MPIR_Allreduce_inter(void *sendbuf, void *recvbuf, int count,  
     3612int MPIR_Allreduce_inter(const void *sendbuf, void *recvbuf, int count,  
    36133613                        MPI_Datatype datatype, MPI_Op op, MPID_Comm *comm_ptr); 
    3614 int MPIR_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     3614int MPIR_Alltoall(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    36153615                  void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    36163616                  MPID_Comm *comm_ptr); 
    3617 int MPIR_Alltoall_inter(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     3617int MPIR_Alltoall_inter(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    36183618                        void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    36193619                        MPID_Comm *comm_ptr); 
    3620 int MPIR_Alltoallv(void *sendbuf, int *sendcnts, int *sdispls,  
    3621                    MPI_Datatype sendtype, void *recvbuf, int *recvcnts,  
    3622                    int *rdispls, MPI_Datatype recvtype, MPID_Comm *comm_ptr); 
    3623 int MPIR_Alltoallv_inter(void *sendbuf, int *sendcnts, int *sdispls,  
    3624                          MPI_Datatype sendtype, void *recvbuf, int *recvcnts,  
    3625                          int *rdispls, MPI_Datatype recvtype,  
     3620int MPIR_Alltoallv(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     3621                   MPI_Datatype sendtype, void *recvbuf, const int *recvcnts,  
     3622                   const int *rdispls, MPI_Datatype recvtype, MPID_Comm *comm_ptr); 
     3623int MPIR_Alltoallv_inter(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     3624                         MPI_Datatype sendtype, void *recvbuf, const int *recvcnts,  
     3625                         const int *rdispls, MPI_Datatype recvtype,  
    36263626                         MPID_Comm *comm_ptr); 
    3627 int MPIR_Alltoallw(void *sendbuf, int *sendcnts, int *sdispls,  
    3628                    MPI_Datatype *sendtypes, void *recvbuf, int *recvcnts,  
    3629                    int *rdispls, MPI_Datatype *recvtypes, MPID_Comm *comm_ptr); 
    3630 int MPIR_Alltoallw_inter(void *sendbuf, int *sendcnts, int *sdispls,  
    3631                          MPI_Datatype *sendtypes, void *recvbuf,  
    3632                          int *recvcnts, int *rdispls, MPI_Datatype *recvtypes,  
     3627int MPIR_Alltoallw(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     3628                   const MPI_Datatype *sendtypes, void *recvbuf, const int *recvcnts,  
     3629                   const int *rdispls, const MPI_Datatype *recvtypes, MPID_Comm *comm_ptr); 
     3630int MPIR_Alltoallw_inter(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     3631                         const MPI_Datatype *sendtypes, void *recvbuf,  
     3632                         const int *recvcnts, const int *rdispls, const MPI_Datatype *recvtypes,  
    36333633                         MPID_Comm *comm_ptr); 
    36343634int MPIR_Barrier_inter( MPID_Comm *comm_ptr); 
    … …  
    36393639int MPIR_Bcast_or_coll_fn (void *buffer, int count, MPI_Datatype datatype, int 
    36403640                root, MPID_Comm *comm_ptr); 
    3641 int MPIR_Exscan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
     3641int MPIR_Exscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
    36423642                MPI_Op op, MPID_Comm *comm_ptr ); 
    3643 int MPIR_Gather (void *sendbuf, int sendcnt, MPI_Datatype sendtype, 
     3643int MPIR_Gather (const void *sendbuf, int sendcnt, MPI_Datatype sendtype, 
    36443644                 void *recvbuf, int recvcnt, MPI_Datatype recvtype, 
    36453645                 int root, MPID_Comm *comm_ptr); 
    3646 int MPIR_Gather_inter (void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     3646int MPIR_Gather_inter (const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    36473647                       void *recvbuf, int recvcnt, MPI_Datatype recvtype,  
    36483648                       int root, MPID_Comm *comm_ptr ); 
    3649 int MPIR_Gatherv (void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    3650                   void *recvbuf, int *recvcnts, int *displs, 
     3649int MPIR_Gatherv (const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     3650                  void *recvbuf, const int *recvcnts, const int *displs, 
    36513651                  MPI_Datatype recvtype, int root, MPID_Comm *comm_ptr);  
    3652 int MPIR_Reduce_scatter(void *sendbuf, void *recvbuf, int *recvcnts,  
     3652int MPIR_Reduce_scatter(const void *sendbuf, void *recvbuf, const int *recvcnts,  
    36533653                        MPI_Datatype datatype, MPI_Op op, MPID_Comm *comm_ptr); 
    3654 int MPIR_Reduce_scatter_inter(void *sendbuf, void *recvbuf, int *recvcnts,  
     3654int MPIR_Reduce_scatter_inter(const void *sendbuf, void *recvbuf, const int *recvcnts,  
    36553655                              MPI_Datatype datatype, MPI_Op op,  
    36563656                              MPID_Comm *comm_ptr); 
    3657 int MPIR_Reduce(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
     3657int MPIR_Reduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
    36583658                MPI_Op op, int root, MPID_Comm *comm_ptr ); 
    3659 int MPIR_Reduce_or_coll_fn(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
     3659int MPIR_Reduce_or_coll_fn(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype, 
    36603660                MPI_Op op, int root, MPID_Comm *comm_ptr ); 
    3661 int MPIR_Reduce_inter (void *sendbuf, void *recvbuf, int count, MPI_Datatype 
     3661int MPIR_Reduce_inter (const void *sendbuf, void *recvbuf, int count, MPI_Datatype 
    36623662                 datatype, MPI_Op op, int root, MPID_Comm *comm_ptr);  
    3663 int MPIR_Scan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
     3663int MPIR_Scan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
    36643664              MPI_Op op, MPID_Comm *comm_ptr); 
    3665 int MPIR_Scatter(void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     3665int MPIR_Scatter(const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    36663666                 void *recvbuf, int recvcnt, MPI_Datatype recvtype,  
    36673667                 int root, MPID_Comm *comm_ptr ); 
    3668 int MPIR_Scatter_inter(void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     3668int MPIR_Scatter_inter(const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    36693669                       void *recvbuf, int recvcnt, MPI_Datatype recvtype,  
    36703670                       int root, MPID_Comm *comm_ptr ); 
    3671 int MPIR_Scatterv (void *sendbuf, int *sendcnts, int *displs, 
     3671int MPIR_Scatterv (const void *sendbuf, const int *sendcnts, const int *displs, 
    36723672                   MPI_Datatype sendtype, void *recvbuf, int recvcnt, 
    36733673                   MPI_Datatype recvtype, int root, MPID_Comm 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/allgather.c

    r3793 r3914  
    7272   one in some cases */ 
    7373int MPIR_Allgather (  
    74     void *sendbuf,  
     74    const void *sendbuf,  
    7575    int sendcount,  
    7676    MPI_Datatype sendtype, 
    … …  
    586586   in some cases */ 
    587587int MPIR_Allgather_inter (  
    588     void *sendbuf,  
     588    const void *sendbuf,  
    589589    int sendcount,  
    590590    MPI_Datatype sendtype, 
    … …  
    743743.N MPI_ERR_BUFFER 
    744744@*/ 
    745 int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     745int MPI_Allgather(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    746746                  void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    747747                  MPI_Comm comm) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/allgatherv.c

    r3177 r3914  
    6565   in some cases */ 
    6666int MPIR_Allgatherv (  
    67     void *sendbuf,  
     67    const void *sendbuf,  
    6868    int sendcount,    
    6969    MPI_Datatype sendtype,  
    7070    void *recvbuf,  
    71     int *recvcounts,  
    72     int *displs,    
     71    const int *recvcounts,  
     72    const int *displs,    
    7373    MPI_Datatype recvtype,  
    7474    MPID_Comm *comm_ptr ) 
    … …  
    747747/* not declared static because a machine-specific function may call this one in some cases */ 
    748748int MPIR_Allgatherv_inter (  
    749     void *sendbuf,  
     749    const void *sendbuf,  
    750750    int sendcount,   
    751751    MPI_Datatype sendtype,  
    752752    void *recvbuf,  
    753     int *recvcounts,  
    754     int *displs,    
     753    const int *recvcounts,  
     754    const int *displs,    
    755755    MPI_Datatype recvtype,  
    756756    MPID_Comm *comm_ptr ) 
    … …  
    900900.N MPI_ERR_TYPE 
    901901@*/ 
    902 int MPI_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    903                    void *recvbuf, int *recvcounts, int *displs,  
     902int MPI_Allgatherv(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     903                   void *recvbuf, const int *recvcounts, const int *displs,  
    904904                   MPI_Datatype recvtype, MPI_Comm comm) 
    905905{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/allreduce.c

    r3794 r3914  
    9494 
    9595int MPIR_Allreduce (  
    96     void *sendbuf,  
     96    const void *sendbuf,  
    9797    void *recvbuf,  
    9898    int count,  
    … …  
    490490#define FCNAME "MPIR_Allreduce_inter" 
    491491int MPIR_Allreduce_inter (  
    492     void *sendbuf,  
     492    const void *sendbuf,  
    493493    void *recvbuf,  
    494494    int count,  
    … …  
    594594.N MPI_ERR_COMM 
    595595@*/ 
    596 int MPI_Allreduce ( void *sendbuf, void *recvbuf, int count,  
    597                     MPI_Datatype datatype, MPI_Op op, MPI_Comm comm ) 
     596int MPI_Allreduce(const void *sendbuf, void *recvbuf, int count,  
     597                  MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 
    598598{ 
    599599    static const char FCNAME[] = "MPI_Allreduce"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/alltoall.c

    r3177 r3914  
    6868/* not declared static because a machine-specific function may call this one in some cases */ 
    6969int MPIR_Alltoall(  
    70     void *sendbuf,  
     70    const void *sendbuf,  
    7171    int sendcount,  
    7272    MPI_Datatype sendtype,  
    … …  
    497497/* not declared static because a machine-specific function may call this one in some cases */ 
    498498int MPIR_Alltoall_inter(  
    499     void *sendbuf,  
     499    const void *sendbuf,  
    500500    int sendcount,  
    501501    MPI_Datatype sendtype,  
    … …  
    607607.N MPI_ERR_BUFFER 
    608608@*/ 
    609 int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     609int MPI_Alltoall(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    610610                 void *recvbuf, int recvcount, MPI_Datatype recvtype,  
    611611                 MPI_Comm comm) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/alltoallv.c

    r3177 r3914  
    4646/* not declared static because a machine-specific function may call this one in some cases */ 
    4747int MPIR_Alltoallv (  
    48         void *sendbuf,  
    49         int *sendcnts,  
    50         int *sdispls,  
    51         MPI_Datatype sendtype,  
    52         void *recvbuf,  
    53         int *recvcnts,  
    54         int *rdispls,  
    55         MPI_Datatype recvtype,  
    56         MPID_Comm *comm_ptr ) 
     48    const void *sendbuf,  
     49    const int *sendcnts,  
     50    const int *sdispls,  
     51    MPI_Datatype sendtype,  
     52    void *recvbuf,  
     53    const int *recvcnts,  
     54    const int *rdispls,  
     55    MPI_Datatype recvtype,  
     56    MPID_Comm *comm_ptr ) 
    5757{ 
    5858    static const char FCNAME[] = "MPIR_Alltoallv"; 
    … …  
    157157/* not declared static because a machine-specific function may call this one in some cases */ 
    158158int MPIR_Alltoallv_inter (  
    159     void *sendbuf,  
    160     int *sendcnts,  
    161     int *sdispls,  
     159    const void *sendbuf,  
     160    const int *sendcnts,  
     161    const int *sdispls,  
    162162    MPI_Datatype sendtype,  
    163163    void *recvbuf,  
    164     int *recvcnts,  
    165     int *rdispls,  
     164    const int *recvcnts,  
     165    const int *rdispls,  
    166166    MPI_Datatype recvtype,  
    167167    MPID_Comm *comm_ptr ) 
    … …  
    287287.N MPI_ERR_BUFFER 
    288288@*/ 
    289 int MPI_Alltoallv(void *sendbuf, int *sendcnts, int *sdispls,  
    290                   MPI_Datatype sendtype, void *recvbuf, int *recvcnts,  
    291                   int *rdispls, MPI_Datatype recvtype, MPI_Comm comm) 
     289int MPI_Alltoallv(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     290                  MPI_Datatype sendtype, void *recvbuf, const int *recvcnts,  
     291                  const int *rdispls, MPI_Datatype recvtype, MPI_Comm comm) 
    292292{ 
    293293    static const char FCNAME[] = "MPI_Alltoallv"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/alltoallw.c

    r3793 r3914  
    4545/* not declared static because a machine-specific function may call this one in some cases */ 
    4646int MPIR_Alltoallw (  
    47         void *sendbuf,  
    48         int *sendcnts,  
    49         int *sdispls,  
    50         MPI_Datatype *sendtypes,  
    51         void *recvbuf,  
    52         int *recvcnts,  
    53         int *rdispls,  
    54         MPI_Datatype *recvtypes,  
    55         MPID_Comm *comm_ptr ) 
     47    const void *sendbuf,  
     48    const int *sendcnts,  
     49    const int *sdispls,  
     50    const MPI_Datatype *sendtypes,  
     51    void *recvbuf,  
     52    const int *recvcnts,  
     53    const int *rdispls,  
     54    const MPI_Datatype *recvtypes,  
     55    MPID_Comm *comm_ptr ) 
    5656{ 
    5757    static const char FCNAME[] = "MPIR_Alltoallw"; 
    … …  
    174174/* not declared static because a machine-specific function may call this one in some cases */ 
    175175int MPIR_Alltoallw_inter (  
    176         void *sendbuf,  
    177         int *sendcnts,  
    178         int *sdispls,  
    179         MPI_Datatype *sendtypes,  
    180         void *recvbuf,  
    181         int *recvcnts,  
    182         int *rdispls,  
    183         MPI_Datatype *recvtypes,  
    184         MPID_Comm *comm_ptr ) 
     176    const void *sendbuf,  
     177    const int *sendcnts,  
     178    const int *sdispls,  
     179    const MPI_Datatype *sendtypes,  
     180    void *recvbuf,  
     181    const int *recvcnts,  
     182    const int *rdispls,  
     183    const MPI_Datatype *recvtypes,  
     184    MPID_Comm *comm_ptr ) 
    185185{ 
    186186/* Intercommunicator alltoallw. We use a pairwise exchange algorithm 
    … …  
    300300.N MPI_ERR_TYPE 
    301301@*/ 
    302 int MPI_Alltoallw(void *sendbuf, int *sendcnts, int *sdispls,  
    303                   MPI_Datatype *sendtypes, void *recvbuf, int *recvcnts,  
    304                   int *rdispls, MPI_Datatype *recvtypes, MPI_Comm comm) 
     302int MPI_Alltoallw(const void *sendbuf, const int *sendcnts, const int *sdispls,  
     303                  const MPI_Datatype *sendtypes, void *recvbuf, const int *recvcnts,  
     304                  const int *rdispls, const MPI_Datatype *recvtypes, MPI_Comm comm) 
    305305{ 
    306306    static const char FCNAME[] = "MPI_Alltoallw"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/exscan.c

    r3177 r3914  
    7171/* not declared static because a machine-specific function may call this one in some cases */ 
    7272int MPIR_Exscan (  
    73     void *sendbuf,  
     73    const void *sendbuf,  
    7474    void *recvbuf,  
    7575    int count,  
    … …  
    320320.N MPI_ERR_BUFFER_ALIAS 
    321321@*/ 
    322 int MPI_Exscan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
     322int MPI_Exscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
    323323               MPI_Op op, MPI_Comm comm) 
    324324{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/gather.c

    r3177 r3914  
    4545/* begin:nested */ 
    4646int MPIR_Gather (  
    47         void *sendbuf,  
    48         int sendcnt,  
    49         MPI_Datatype sendtype,  
    50         void *recvbuf,  
    51         int recvcnt,  
    52         MPI_Datatype recvtype,  
    53         int root,  
    54         MPID_Comm *comm_ptr ) 
     47    const void *sendbuf,  
     48    int sendcnt,  
     49    MPI_Datatype sendtype,  
     50    void *recvbuf,  
     51    int recvcnt,  
     52    MPI_Datatype recvtype,  
     53    int root,  
     54    MPID_Comm *comm_ptr ) 
    5555{ 
    5656    static const char FCNAME[] = "MPIR_Gather"; 
    … …  
    412412/* not declared static because a machine-specific function may call this one in some cases */ 
    413413int MPIR_Gather_inter (  
    414         void *sendbuf,  
    415         int sendcnt,  
    416         MPI_Datatype sendtype,  
    417         void *recvbuf,  
    418         int recvcnt,  
    419         MPI_Datatype recvtype,  
    420         int root,  
    421         MPID_Comm *comm_ptr ) 
     414    const void *sendbuf,  
     415    int sendcnt,  
     416    MPI_Datatype sendtype,  
     417    void *recvbuf,  
     418    int recvcnt,  
     419    MPI_Datatype recvtype,  
     420    int root,  
     421    MPID_Comm *comm_ptr ) 
    422422{ 
    423423/*  Intercommunicator gather. 
    … …  
    609609.N MPI_ERR_BUFFER 
    610610@*/ 
    611 int MPI_Gather(void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     611int MPI_Gather(const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    612612               void *recvbuf, int recvcnt, MPI_Datatype recvtype,  
    613613               int root, MPI_Comm comm) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/gatherv.c

    r3177 r3914  
    4343/* not declared static because it is called in intercommunicator allgatherv */ 
    4444int MPIR_Gatherv (  
    45         void *sendbuf,  
    46         int sendcnt,   
    47         MPI_Datatype sendtype,  
    48         void *recvbuf,  
    49         int *recvcnts,  
    50         int *displs,  
    51         MPI_Datatype recvtype,  
    52         int root,  
    53         MPID_Comm *comm_ptr ) 
     45    const void *sendbuf,  
     46    int sendcnt,   
     47    MPI_Datatype sendtype,  
     48    void *recvbuf,  
     49    const int *recvcnts,  
     50    const int *displs,  
     51    MPI_Datatype recvtype,  
     52    int root,  
     53    MPID_Comm *comm_ptr ) 
    5454{ 
    5555    static const char FCNAME[] = "MPIR_Gatherv"; 
    … …  
    201201.N MPI_ERR_BUFFER 
    202202@*/ 
    203 int MPI_Gatherv(void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    204                 void *recvbuf, int *recvcnts, int *displs,  
     203int MPI_Gatherv(const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     204                void *recvbuf, const int *recvcnts, const int *displs,  
    205205                MPI_Datatype recvtype, int root, MPI_Comm comm) 
    206206{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/helper_fns.c

    r3718 r3914  
    2020#undef FCNAME 
    2121#define FCNAME "MPIC_Send" 
    22 int MPIC_Send(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     22int MPIC_Send(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    2323              MPI_Comm comm) 
    2424{ 
    … …  
    9999#undef FCNAME 
    100100#define FCNAME "MPIC_Sendrecv" 
    101 int MPIC_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     101int MPIC_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    102102                  int dest, int sendtag, void *recvbuf, int recvcount, 
    103103                  MPI_Datatype recvtype, int source, int recvtag, 
    … …  
    143143#undef FCNAME 
    144144#define FCNAME "MPIR_Localcopy" 
    145 int MPIR_Localcopy(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
     145int MPIR_Localcopy(const void *sendbuf, int sendcount, MPI_Datatype sendtype, 
    146146                   void *recvbuf, int recvcount, MPI_Datatype recvtype) 
    147147{ 
    … …  
    290290#undef FCNAME 
    291291#define FCNAME "MPIC_Isend" 
    292 int MPIC_Isend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     292int MPIC_Isend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    293293              MPI_Comm comm, MPI_Request *request) 
    294294{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opband.c

    r1245 r3914  
    1616#endif 
    1717void MPIR_BAND (  
    18     void *invec,  
     18    const void *invec,  
    1919    void *inoutvec,  
    20     int *Len,  
     20    const int *Len,  
    2121    MPI_Datatype *type ) 
    2222{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opbor.c

    r1245 r3914  
    1616#endif 
    1717void MPIR_BOR (  
    18     void *invec,  
     18    const void *invec,  
    1919    void *inoutvec,  
    20     int *Len,  
     20    const int *Len,  
    2121    MPI_Datatype *type ) 
    2222{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opbxor.c

    r1245 r3914  
    1616#endif 
    1717void MPIR_BXOR (  
    18     void *invec,  
     18    const void *invec,  
    1919    void *inoutvec,  
    20     int *Len,  
     20    const int *Len,  
    2121    MPI_Datatype *type ) 
    2222{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opland.c

    r1245 r3914  
    1818#endif 
    1919void MPIR_LAND (  
    20     void *invec,  
     20    const void *invec,  
    2121    void *inoutvec,  
    22     int *Len,  
     22    const int *Len,  
    2323    MPI_Datatype *type ) 
    2424{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/oplor.c

    r1245 r3914  
    1919#endif 
    2020void MPIR_LOR (  
    21     void *invec,  
     21    const void *invec,  
    2222    void *inoutvec,  
    23     int *Len,  
     23    const int *Len,  
    2424    MPI_Datatype *type ) 
    2525{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/oplxor.c

    r1245 r3914  
    1919#endif 
    2020void MPIR_LXOR (  
    21     void *invec,  
     21    const void *invec,  
    2222    void *inoutvec,  
    23     int *Len,  
     23    const int *Len,  
    2424    MPI_Datatype *type ) 
    2525{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opmax.c

    r1245 r3914  
    1313 */ 
    1414void MPIR_MAXF(  
    15     void *invec,  
     15    const void *invec,  
    1616    void *inoutvec,  
    17     int *Len,  
     17    const int *Len,  
    1818    MPI_Datatype *type ) 
    1919{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opmaxloc.c

    r1245 r3914  
    4343 
    4444void MPIR_MAXLOC(  
    45         void *invec,  
    46         void *inoutvec,  
    47         int *Len,  
    48         MPI_Datatype *type ) 
     45    const void *invec,  
     46    void *inoutvec,  
     47    const int *Len,  
     48    MPI_Datatype *type ) 
    4949{ 
    5050    static const char FCNAME[] = "MPIR_MAXLOC"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opmin.c

    r1245 r3914  
    1313 */ 
    1414void MPIR_MINF (  
    15         void *invec,  
    16         void *inoutvec,  
    17         int *Len,  
    18         MPI_Datatype *type ) 
     15    const void *invec,  
     16    void *inoutvec,  
     17    const int *Len,  
     18    MPI_Datatype *type ) 
    1919{ 
    2020    static const char FCNAME[] = "MPIR_MINF"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opminloc.c

    r1245 r3914  
    4242 
    4343void MPIR_MINLOC(  
    44         void *invec,  
    45         void *inoutvec,  
    46         int *Len,  
    47         MPI_Datatype *type ) 
     44    const void *invec,  
     45    void *inoutvec,  
     46    const int *Len,  
     47    MPI_Datatype *type ) 
    4848{ 
    4949    static const char FCNAME[] = "MPIR_MINLOC"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opprod.c

    r2983 r3914  
    1515 
    1616void MPIR_PROD (  
    17     void *invec,  
     17    const void *invec,  
    1818    void *inoutvec,  
    19     int *Len,  
     19    const int *Len,  
    2020    MPI_Datatype *type ) 
    2121{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/opsum.c

    r2983 r3914  
    2020 
    2121void MPIR_SUM (  
    22         void *invec,  
    23         void *inoutvec,  
    24         int *Len,  
    25         MPI_Datatype *type ) 
     22    const void *invec,  
     23    void *inoutvec,  
     24    const int *Len,  
     25    MPI_Datatype *type ) 
    2626{ 
    2727    static const char FCNAME[] = "MPIR_SUM"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/red_scat.c

    r3810 r3914  
    7474/* not declared static because a machine-specific function may call this one in some cases */ 
    7575int MPIR_Reduce_scatter (  
    76     void *sendbuf,  
     76    const void *sendbuf,  
    7777    void *recvbuf,  
    78     int *recvcnts,  
     78    const int *recvcnts,  
    7979    MPI_Datatype datatype,  
    8080    MPI_Op op,  
    … …  
    898898/* not declared static because a machine-specific function may call this one in some cases */ 
    899899int MPIR_Reduce_scatter_inter (  
    900     void *sendbuf,  
     900    const void *sendbuf,  
    901901    void *recvbuf,  
    902     int *recvcnts,  
     902    const int *recvcnts,  
    903903    MPI_Datatype datatype,  
    904904    MPI_Op op,  
    … …  
    10781078.N MPI_ERR_BUFFER_ALIAS 
    10791079@*/ 
    1080 int MPI_Reduce_scatter(void *sendbuf, void *recvbuf, int *recvcnts,  
     1080int MPI_Reduce_scatter(const void *sendbuf, void *recvbuf, const int *recvcnts,  
    10811081                       MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 
    10821082{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/reduce.c

    r3794 r3914  
    3333#define FCNAME MPIU_QUOTE(FUNCNAME) 
    3434static int MPIR_Reduce_binomial (  
    35     void *sendbuf,  
     35    const void *sendbuf,  
    3636    void *recvbuf,  
    3737    int count,  
    … …  
    274274#define FCNAME MPIU_QUOTE(FUNCNAME) 
    275275static int MPIR_Reduce_redscat_gather (  
    276     void *sendbuf,  
     276    const void *sendbuf,  
    277277    void *recvbuf,  
    278278    int count,  
    … …  
    712712#define FCNAME MPIU_QUOTE(FUNCNAME) 
    713713int MPIR_Reduce (  
    714     void *sendbuf,  
     714    const void *sendbuf,  
    715715    void *recvbuf,  
    716716    int count,  
    … …  
    787787#define FCNAME MPIU_QUOTE(FUNCNAME) 
    788788int MPIR_Reduce_or_coll_fn( 
    789     void *sendbuf,  
     789    const void *sendbuf,  
    790790    void *recvbuf,  
    791791    int count,  
    … …  
    819819#define FCNAME MPIU_QUOTE(FUNCNAME) 
    820820int MPIR_Reduce_inter (  
    821     void *sendbuf,  
     821    const void *sendbuf,  
    822822    void *recvbuf,  
    823823    int count,  
    … …  
    952952 
    953953@*/ 
    954 int MPI_Reduce(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
     954int MPI_Reduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
    955955               MPI_Op op, int root, MPI_Comm comm) 
    956956{ 
    … …  
    11251125                        /* I am not on root's node.  Use tmp_buf if we 
    11261126                           participated in the first reduce, otherwise use sendbuf */ 
    1127                         void *buf = (comm_ptr->node_comm == NULL ? sendbuf : tmp_buf); 
     1127                        const void *buf = (comm_ptr->node_comm == NULL ? sendbuf : tmp_buf); 
    11281128                        mpi_errno = MPIR_Reduce(buf, NULL, count, datatype, 
    11291129                                                op, MPIU_Get_internode_rank(comm_ptr, root),  

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/scan.c

    r3839 r3914  
    6464/* not declared static because a machine-specific function may call this one in some cases */ 
    6565int MPIR_Scan (  
    66     void *sendbuf,  
     66    const void *sendbuf,  
    6767    void *recvbuf,  
    6868    int count,  
    … …  
    280280#define FCNAME MPIU_QUOTE(FUNCNAME) 
    281281static int MPIR_Scan_or_coll_fn( 
    282     void *sendbuf,  
     282    const void *sendbuf,  
    283283    void *recvbuf,  
    284284    int count,  
    … …  
    313313#define FCNAME MPIU_QUOTE(FUNCNAME) 
    314314static int MPIR_SMP_Scan( 
    315     void *sendbuf, 
     315    const void *sendbuf, 
    316316    void *recvbuf, 
    317317    int count, 
    … …  
    517517.N MPI_ERR_BUFFER_ALIAS 
    518518@*/ 
    519 int MPI_Scan(void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
     519int MPI_Scan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,  
    520520             MPI_Op op, MPI_Comm comm) 
    521521{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/scatter.c

    r3177 r3914  
    4848/* not declared static because a machine-specific function may call this one in some cases */ 
    4949int MPIR_Scatter (  
    50         void *sendbuf,  
    51         int sendcnt,  
    52         MPI_Datatype sendtype,  
    53         void *recvbuf,  
    54         int recvcnt,  
    55         MPI_Datatype recvtype,  
    56         int root,  
    57         MPID_Comm *comm_ptr ) 
     50    const void *sendbuf,  
     51    int sendcnt,  
     52    MPI_Datatype sendtype,  
     53    void *recvbuf,  
     54    int recvcnt,  
     55    MPI_Datatype recvtype,  
     56    int root,  
     57    MPID_Comm *comm_ptr ) 
    5858{ 
    5959    static const char FCNAME[] = "MPIR_Scatter"; 
    … …  
    439439/* not declared static because a machine-specific function may call this one in some cases */ 
    440440int MPIR_Scatter_inter (  
    441         void *sendbuf,  
    442         int sendcnt,  
    443         MPI_Datatype sendtype,  
    444         void *recvbuf,  
    445         int recvcnt,  
    446         MPI_Datatype recvtype,  
    447         int root,  
    448         MPID_Comm *comm_ptr ) 
     441    const void *sendbuf,  
     442    int sendcnt,  
     443    MPI_Datatype sendtype,  
     444    void *recvbuf,  
     445    int recvcnt,  
     446    MPI_Datatype recvtype,  
     447    int root,  
     448    MPID_Comm *comm_ptr ) 
    449449{ 
    450450/*  Intercommunicator scatter. 
    … …  
    619619.N MPI_ERR_BUFFER 
    620620@*/ 
    621 int MPI_Scatter(void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
     621int MPI_Scatter(const void *sendbuf, int sendcnt, MPI_Datatype sendtype,  
    622622                void *recvbuf, int recvcnt, MPI_Datatype recvtype, int root,  
    623623                MPI_Comm comm) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/coll/scatterv.c

    r3177 r3914  
    4545#define FUNCNAME MPIR_Scatterv 
    4646int MPIR_Scatterv (  
    47         void *sendbuf,  
    48         int *sendcnts,  
    49         int *displs,  
    50         MPI_Datatype sendtype,  
    51         void *recvbuf,  
    52         int recvcnt,   
    53         MPI_Datatype recvtype,  
    54         int root,  
    55         MPID_Comm *comm_ptr ) 
     47    const void *sendbuf,  
     48    const int *sendcnts,  
     49    const int *displs,  
     50    MPI_Datatype sendtype,  
     51    void *recvbuf,  
     52    int recvcnt,   
     53    MPI_Datatype recvtype,  
     54    int root,  
     55    MPID_Comm *comm_ptr ) 
    5656{ 
    5757    static const char FCNAME[] = "MPIR_Scatterv"; 
    … …  
    200200.N MPI_ERR_BUFFER 
    201201@*/ 
    202 int MPI_Scatterv( void *sendbuf, int *sendcnts, int *displs,  
    203                   MPI_Datatype sendtype, void *recvbuf, int recvcnt, 
    204                   MPI_Datatype recvtype, 
    205                   int root, MPI_Comm comm) 
     202int MPI_Scatterv(const void *sendbuf, const int *sendcnts, const int *displs,  
     203                 MPI_Datatype sendtype, void *recvbuf, int recvcnt, 
     204                 MPI_Datatype recvtype, 
     205                 int root, MPI_Comm comm) 
    206206{ 
    207207    static const char FCNAME[] = "MPI_Scatterv"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/comm/comm_set_name.c

    r1083 r3914  
    4646.N MPI_ERR_COMM 
    4747@*/ 
    48 int MPI_Comm_set_name(MPI_Comm comm, char *comm_name) 
     48int MPI_Comm_set_name(MPI_Comm comm, const char *comm_name) 
    4949{ 
    5050    int mpi_errno = MPI_SUCCESS; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/address.c

    r1249 r3914  
    5858.N MPI_ERR_OTHER 
    5959@*/ 
    60 int MPI_Address(void *location, MPI_Aint *address) 
     60int MPI_Address(const void *location, MPI_Aint *address) 
    6161{ 
    6262    int mpi_errno = MPI_SUCCESS; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/get_address.c

    r1249 r3914  
    6868.N MPI_ERR_OTHER 
    6969@*/ 
    70 int MPI_Get_address(void *location, MPI_Aint *address) 
     70int MPI_Get_address(const void *location, MPI_Aint *address) 
    7171{ 
    7272    int mpi_errno = MPI_SUCCESS; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/pack.c

    r1249 r3914  
    5656.N MPI_SUCCESS 
    5757@*/ 
    58 int MPI_Pack(void *inbuf, 
     58int MPI_Pack(const void *inbuf, 
    5959             int incount, 
    6060             MPI_Datatype datatype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/pack_external.c

    r1249 r3914  
    5656.N MPI_ERR_COUNT 
    5757@*/ 
    58 int MPI_Pack_external(char *datarep, 
    59                       void *inbuf, 
     58int MPI_Pack_external(const char *datarep, 
     59                      const void *inbuf, 
    6060                      int incount, 
    6161                      MPI_Datatype datatype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/pack_external_size.c

    r1249 r3914  
    5252.N MPI_ERR_ARG 
    5353@*/ 
    54 int MPI_Pack_external_size(char *datarep, 
     54int MPI_Pack_external_size(const char *datarep, 
    5555                           int incount, 
    5656                           MPI_Datatype datatype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_create_darray.c

    r3177 r3914  
    2222#endif 
    2323 
    24 PMPI_LOCAL int MPIR_Type_block(int *array_of_gsizes, 
     24PMPI_LOCAL int MPIR_Type_block(const int *array_of_gsizes, 
    2525                               int dim, 
    2626                               int ndims, 
    27                                int nprocs, 
     27                               const int nprocs, 
    2828                               int rank, 
    29                                int darg, 
     29                               const int darg, 
    3030                               int order, 
    3131                               MPI_Aint orig_extent, 
    … …  
    3333                               MPI_Datatype *type_new, 
    3434                               MPI_Aint *st_offset); 
    35 PMPI_LOCAL int MPIR_Type_cyclic(int *array_of_gsizes, 
     35PMPI_LOCAL int MPIR_Type_cyclic(const int *array_of_gsizes, 
    3636                                int dim, 
    3737                                int ndims, 
    38                                 int nprocs, 
     38                                const int nprocs, 
    3939                                int rank, 
    40                                 int darg, 
     40                                const int darg, 
    4141                                int order, 
    4242                                MPI_Aint orig_extent, 
    … …  
    5353 
    5454 
    55 PMPI_LOCAL int MPIR_Type_block(int *array_of_gsizes, 
     55PMPI_LOCAL int MPIR_Type_block(const int *array_of_gsizes, 
    5656                               int dim, 
    5757                               int ndims, 
    58                                int nprocs, 
     58                               const int nprocs, 
    5959                               int rank, 
    60                                int darg, 
     60                               const int darg, 
    6161                               int order, 
    6262                               MPI_Aint orig_extent, 
    … …  
    179179 
    180180 
    181 PMPI_LOCAL int MPIR_Type_cyclic(int *array_of_gsizes, 
     181PMPI_LOCAL int MPIR_Type_cyclic(const int *array_of_gsizes, 
    182182                                int dim, 
    183183                                int ndims, 
    184                                 int nprocs, 
     184                                const int nprocs, 
    185185                                int rank, 
    186                                 int darg, 
     186                                const int darg, 
    187187                                int order, 
    188188                                MPI_Aint orig_extent, 
    … …  
    359359                           int rank, 
    360360                           int ndims, 
    361                            int array_of_gsizes[], 
    362                            int array_of_distribs[], 
    363                            int array_of_dargs[], 
    364                            int array_of_psizes[], 
     361                           const int array_of_gsizes[], 
     362                           const int array_of_distribs[], 
     363                           const int array_of_dargs[], 
     364                           const int array_of_psizes[], 
    365365                           int order, 
    366366                           MPI_Datatype oldtype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_create_hindexed.c

    r3177 r3914  
    5353@*/ 
    5454int MPI_Type_create_hindexed(int count, 
    55                              int blocklengths[], 
    56                              MPI_Aint displacements[], 
     55                             const int blocklengths[], 
     56                             const MPI_Aint displacements[], 
    5757                             MPI_Datatype oldtype, 
    5858                             MPI_Datatype *newtype) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_create_indexed_block.c

    r3177 r3914  
    7575int MPI_Type_create_indexed_block(int count, 
    7676                                  int blocklength, 
    77                                   int array_of_displacements[], 
     77                                  const int array_of_displacements[], 
    7878                                  MPI_Datatype oldtype, 
    7979                                  MPI_Datatype *newtype) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_create_struct.c

    r3177 r3914  
    5454@*/ 
    5555int MPI_Type_create_struct(int count, 
    56                            int array_of_blocklengths[], 
    57                            MPI_Aint array_of_displacements[], 
    58                            MPI_Datatype array_of_types[], 
     56                           const int array_of_blocklengths[], 
     57                           const MPI_Aint array_of_displacements[], 
     58                           const MPI_Datatype array_of_types[], 
    5959                           MPI_Datatype *newtype) 
    6060{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_create_subarray.c

    r3177 r3914  
    5656@*/ 
    5757int MPI_Type_create_subarray(int ndims, 
    58                              int array_of_sizes[], 
    59                              int array_of_subsizes[], 
    60                              int array_of_starts[], 
     58                             const int array_of_sizes[], 
     59                             const int array_of_subsizes[], 
     60                             const int array_of_starts[], 
    6161                             int order, 
    6262                             MPI_Datatype oldtype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_hindexed.c

    r3177 r3914  
    7878@*/ 
    7979int MPI_Type_hindexed(int count, 
    80                       int blocklens[], 
    81                       MPI_Aint indices[], 
     80                      const int blocklens[], 
     81                      const MPI_Aint indices[], 
    8282                      MPI_Datatype old_type, 
    8383                      MPI_Datatype *newtype) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_indexed.c

    r3177 r3914  
    7575@*/ 
    7676int MPI_Type_indexed(int count, 
    77                      int blocklens[], 
    78                      int indices[], 
     77                     const int blocklens[], 
     78                     const int indices[], 
    7979                     MPI_Datatype old_type, 
    8080                     MPI_Datatype *newtype) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_set_name.c

    r100 r3914  
    4747.N MPI_ERR_OTHER 
    4848@*/ 
    49 int MPI_Type_set_name(MPI_Datatype type, char *type_name) 
     49int MPI_Type_set_name(MPI_Datatype type, const char *type_name) 
    5050{ 
    5151    int mpi_errno = MPI_SUCCESS; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/type_struct.c

    r3177 r3914  
    9696@*/ 
    9797int MPI_Type_struct(int count, 
    98                     int blocklens[], 
    99                     MPI_Aint indices[], 
    100                     MPI_Datatype old_types[], 
     98                    const int blocklens[], 
     99                    const MPI_Aint indices[], 
     100                    const MPI_Datatype old_types[], 
    101101                    MPI_Datatype *newtype) 
    102102{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/unpack.c

    r1249 r3914  
    5656.seealso: MPI_Pack, MPI_Pack_size 
    5757@*/ 
    58 int MPI_Unpack(void *inbuf, int insize, int *position, 
     58int MPI_Unpack(const void *inbuf, int insize, int *position, 
    5959               void *outbuf, int outcount, MPI_Datatype datatype, 
    6060               MPI_Comm comm) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/datatype/unpack_external.c

    r1249 r3914  
    5555.N MPI_ERR_ARG 
    5656@*/ 
    57 int MPI_Unpack_external(char *datarep, 
    58                         void *inbuf, 
     57int MPI_Unpack_external(const char *datarep, 
     58                        const void *inbuf, 
    5959                        MPI_Aint insize, 
    6060                        MPI_Aint *position, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/errhan/add_error_string.c

    r3177 r3914  
    5757.N MPI_SUCCESS 
    5858@*/ 
    59 int MPI_Add_error_string(int errorcode, char *string) 
     59int MPI_Add_error_string(int errorcode, const char *string) 
    6060{ 
    6161    static const char FCNAME[] = "MPI_Add_error_string"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group.h

    r3456 r3914  
    88   from communicators, so it is in mpidimpl.h */ 
    99void MPIR_Group_setup_lpid_list( MPID_Group * ); 
    10 int MPIR_Group_check_valid_ranks( MPID_Group *, int [], int ); 
     10int MPIR_Group_check_valid_ranks( MPID_Group *, const int [], int ); 
    1111int MPIR_Group_check_valid_ranges( MPID_Group *, int [][3], int ); 
    1212void MPIR_Group_setup_lpid_pairs( MPID_Group *, MPID_Group * ); 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group_excl.c

    r3177 r3914  
    6262.seealso: MPI_Group_free 
    6363@*/ 
    64 int MPI_Group_excl(MPI_Group group, int n, int *ranks, MPI_Group *newgroup) 
     64int MPI_Group_excl(MPI_Group group, int n, const int *ranks, MPI_Group *newgroup) 
    6565{ 
    6666    static const char FCNAME[] = "MPI_Group_excl"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group_incl.c

    r3177 r3914  
    5858.seealso: MPI_Group_free 
    5959@*/ 
    60 int MPI_Group_incl(MPI_Group group, int n, int *ranks, MPI_Group *newgroup) 
     60int MPI_Group_incl(MPI_Group group, int n, const int *ranks, MPI_Group *newgroup) 
    6161{ 
    6262    static const char FCNAME[] = "MPI_Group_incl"; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group_range_excl.c

    r3177 r3914  
    6464.seealso: MPI_Group_free 
    6565@*/ 
    66 int MPI_Group_range_excl(MPI_Group group, int n, int ranges[][3],  
     66int MPI_Group_range_excl(MPI_Group group, int n, /* const */ int ranges[][3],  
    6767                         MPI_Group *newgroup) 
    6868{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group_range_incl.c

    r3177 r3914  
    5959.seealso: MPI_Group_free 
    6060@*/ 
    61 int MPI_Group_range_incl(MPI_Group group, int n, int ranges[][3],  
     61int MPI_Group_range_incl(MPI_Group group, int n, /* const */ int ranges[][3],  
    6262                         MPI_Group *newgroup) 
    6363{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/group_translate_ranks.c

    r3177 r3914  
    5454.N MPI_SUCCESS 
    5555@*/ 
    56 int MPI_Group_translate_ranks(MPI_Group group1, int n, int *ranks1,  
     56int MPI_Group_translate_ranks(MPI_Group group1, int n, const int *ranks1,  
    5757                              MPI_Group group2, int *ranks2) 
    5858{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/group/grouputil.c

    r100 r3914  
    217217 * case, that means that the SINGLE_CS must be held on entry to this routine. 
    218218 */ 
    219 int MPIR_Group_check_valid_ranks( MPID_Group *group_ptr, int ranks[], int n ) 
     219int MPIR_Group_check_valid_ranks( MPID_Group *group_ptr, const int ranks[], int n ) 
    220220{ 
    221221    int mpi_errno = MPI_SUCCESS, i; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/bsend.c

    r3177 r3914  
    8484.seealso: MPI_Buffer_attach, MPI_Ibsend, MPI_Bsend_init 
    8585@*/ 
    86 int MPI_Bsend(void *buf, int count, MPI_Datatype datatype, int dest, int tag,  
     86int MPI_Bsend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag,  
    8787              MPI_Comm comm) 
    8888{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/bsend_init.c

    r3177 r3914  
    5757.seealso: MPI_Buffer_attach 
    5858@*/ 
    59 int MPI_Bsend_init(void *buf, int count, MPI_Datatype datatype,  
     59int MPI_Bsend_init(const void *buf, int count, MPI_Datatype datatype,  
    6060                   int dest, int tag, MPI_Comm comm, MPI_Request *request) 
    6161{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/bsendutil.c

    r3717 r3914  
    243243 * Initiate an ibsend.  We'll used this for Bsend as well. 
    244244 */ 
    245 int MPIR_Bsend_isend( void *buf, int count, MPI_Datatype dtype,  
    246                       int dest, int tag, MPID_Comm *comm_ptr,  
    247                       BsendKind_t kind, MPID_Request **request ) 
     245int MPIR_Bsend_isend(const void *buf, int count, MPI_Datatype dtype,  
     246                     int dest, int tag, MPID_Comm *comm_ptr,  
     247                     BsendKind_t kind, MPID_Request **request) 
    248248{ 
    249249    BsendData_t *p; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/bsendutil.h

    r100 r3914  
    1010int MPIR_Bsend_attach( void *, int ); 
    1111int MPIR_Bsend_detach( void *, int * ); 
    12 int MPIR_Bsend_isend( void *, int, MPI_Datatype, int, int, MPID_Comm *,  
     12int MPIR_Bsend_isend( const void *, int, MPI_Datatype, int, int, MPID_Comm *,  
    1313                      BsendKind_t, MPID_Request ** ); 
    1414 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/ibsend.c

    r3177 r3914  
    114114 
    115115@*/ 
    116 int MPI_Ibsend(void *buf, int count, MPI_Datatype datatype, int dest, int tag,  
     116int MPI_Ibsend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag,  
    117117               MPI_Comm comm, MPI_Request *request) 
    118118{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/irsend.c

    r3177 r3914  
    5757 
    5858@*/ 
    59 int MPI_Irsend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     59int MPI_Irsend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    6060               MPI_Comm comm, MPI_Request *request) 
    6161{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/isend.c

    r3177 r3914  
    5555 
    5656@*/ 
    57 int MPI_Isend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     57int MPI_Isend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    5858              MPI_Comm comm, MPI_Request *request) 
    5959{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/issend.c

    r3177 r3914  
    5656.N MPI_ERR_EXHAUSTED 
    5757@*/ 
    58 int MPI_Issend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     58int MPI_Issend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    5959               MPI_Comm comm, MPI_Request *request) 
    6060{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/rsend.c

    r3177 r3914  
    5353 
    5454@*/ 
    55 int MPI_Rsend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     55int MPI_Rsend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    5656              MPI_Comm comm) 
    5757{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/rsend_init.c

    r3177 r3914  
    5858.seealso: MPI_Start, MPI_Request_free, MPI_Send_init 
    5959@*/ 
    60 int MPI_Rsend_init(void *buf, int count, MPI_Datatype datatype, int dest, 
     60int MPI_Rsend_init(const void *buf, int count, MPI_Datatype datatype, int dest, 
    6161                   int tag, MPI_Comm comm, MPI_Request *request) 
    6262{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/send.c

    r3177 r3914  
    5858.seealso: MPI_Isend, MPI_Bsend 
    5959@*/ 
    60 int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     60int MPI_Send(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    6161             MPI_Comm comm) 
    6262{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/send_init.c

    r3177 r3914  
    5858.seealso: MPI_Start, MPI_Startall, MPI_Request_free 
    5959@*/ 
    60 int MPI_Send_init(void *buf, int count, MPI_Datatype datatype, int dest, 
     60int MPI_Send_init(const void *buf, int count, MPI_Datatype datatype, int dest, 
    6161                  int tag, MPI_Comm comm, MPI_Request *request) 
    6262{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/sendrecv.c

    r3177 r3914  
    6363 
    6464@*/ 
    65 int MPI_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype sendtype,  
     65int MPI_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype,  
    6666                 int dest, int sendtag, 
    6767                 void *recvbuf, int recvcount, MPI_Datatype recvtype,  

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/ssend.c

    r3177 r3914  
    5252.N MPI_ERR_RANK 
    5353@*/ 
    54 int MPI_Ssend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
     54int MPI_Ssend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, 
    5555              MPI_Comm comm) 
    5656{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/ssend_init.c

    r3177 r3914  
    5555.N MPI_ERR_RANK 
    5656@*/ 
    57 int MPI_Ssend_init(void *buf, int count, MPI_Datatype datatype, int dest, 
     57int MPI_Ssend_init(const void *buf, int count, MPI_Datatype datatype, int dest, 
    5858                   int tag, MPI_Comm comm, MPI_Request *request) 
    5959{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/pt2pt/test_cancelled.c

    r100 r3914  
    4646.N MPI_ERR_ARG 
    4747@*/ 
    48 int MPI_Test_cancelled(MPI_Status *status, int *flag) 
     48int MPI_Test_cancelled(const MPI_Status *status, int *flag) 
    4949{ 
    5050#ifdef HAVE_ERROR_CHECKING 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/rma/accumulate.c

    r3177 r3914  
    6060.N MPI_ERR_WIN 
    6161@*/ 
    62 int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype 
     62int MPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype 
    6363                   origin_datatype, int target_rank, MPI_Aint 
    6464                   target_disp, int target_count, MPI_Datatype 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/rma/put.c

    r3177 r3914  
    5656.N MPI_ERR_WIN 
    5757@*/ 
    58 int MPI_Put(void *origin_addr, int origin_count, MPI_Datatype 
     58int MPI_Put(const void *origin_addr, int origin_count, MPI_Datatype 
    5959            origin_datatype, int target_rank, MPI_Aint target_disp, 
    6060            int target_count, MPI_Datatype target_datatype, MPI_Win 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/rma/win_set_name.c

    r100 r3914  
    4646.N MPI_ERR_ARG 
    4747@*/ 
    48 int MPI_Win_set_name(MPI_Win win, char *win_name) 
     48int MPI_Win_set_name(MPI_Win win, const char *win_name) 
    4949{ 
    5050#ifdef HAVE_ERROR_CHECKING 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/include/mpio.h.in

    r3903 r3914  
    203203 
    204204/* Section 9.5.3 */ 
    205 int MPI_Register_datarep(char *, 
     205int MPI_Register_datarep(const char *, 
    206206                         MPI_Datarep_conversion_function *, 
    207207                         MPI_Datarep_conversion_function *, 
    … …  
    303303 
    304304/* Section 9.2 */ 
    305 int PMPI_File_open(MPI_Comm, char *, int, MPI_Info, MPI_File *); 
     305int PMPI_File_open(MPI_Comm, const char *, int, MPI_Info, MPI_File *); 
    306306int PMPI_File_close(MPI_File *); 
    307 int PMPI_File_delete(char *, MPI_Info); 
     307int PMPI_File_delete(const char *, MPI_Info); 
    308308int PMPI_File_set_size(MPI_File, MPI_Offset); 
    309309int PMPI_File_preallocate(MPI_File, MPI_Offset); 
    … …  
    315315 
    316316/* Section 9.3 */ 
    317 int PMPI_File_set_view(MPI_File, MPI_Offset,  
    318     MPI_Datatype, MPI_Datatype, char *, MPI_Info); 
     317int PMPI_File_set_view(MPI_File, MPI_Offset, MPI_Datatype, const MPI_Datatype, char *, MPI_Info); 
    319318int PMPI_File_get_view(MPI_File, MPI_Offset *,  
    320319      MPI_Datatype *, MPI_Datatype *, char *); 
    … …  
    325324int PMPI_File_read_at_all(MPI_File, MPI_Offset, void *, 
    326325              int, MPI_Datatype, MPI_Status *); 
    327 int PMPI_File_write_at(MPI_File, MPI_Offset, void *, 
    328               int, MPI_Datatype, MPI_Status *); 
    329 int PMPI_File_write_at_all(MPI_File, MPI_Offset, void *, 
     326int PMPI_File_write_at(MPI_File, MPI_Offset, const void *, 
     327              int, MPI_Datatype, MPI_Status *); 
     328int PMPI_File_write_at_all(MPI_File, MPI_Offset, const void *, 
    330329              int, MPI_Datatype, MPI_Status *); 
    331330 
    … …  
    336335int PMPI_File_iread_at(MPI_File, MPI_Offset, void *, 
    337336              int, MPI_Datatype, MPIO_Request *); 
    338 int PMPI_File_iwrite_at(MPI_File, MPI_Offset, void *, 
     337int PMPI_File_iwrite_at(MPI_File, MPI_Offset, const void *, 
    339338              int, MPI_Datatype, MPIO_Request *); 
    340339 
    … …  
    342341int PMPI_File_read(MPI_File, void *, int, MPI_Datatype, MPI_Status *);  
    343342int PMPI_File_read_all(MPI_File, void *, int, MPI_Datatype, MPI_Status *);  
    344 int PMPI_File_write(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
    345 int PMPI_File_write_all(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
     343int PMPI_File_write(MPI_File, const void *, int, MPI_Datatype, MPI_Status *); 
     344int PMPI_File_write_all(MPI_File, const void *, int, MPI_Datatype, MPI_Status *); 
    346345 
    347346/* nonblocking calls currently use MPIO_Request, because generalized 
    … …  
    350349 
    351350int PMPI_File_iread(MPI_File, void *, int, MPI_Datatype, MPIO_Request *);  
    352 int PMPI_File_iwrite(MPI_File, void *, int, MPI_Datatype, MPIO_Request *); 
     351int PMPI_File_iwrite(MPI_File, const void *, int, MPI_Datatype, MPIO_Request *); 
    353352 
    354353int PMPI_File_seek(MPI_File, MPI_Offset, int); 
    … …  
    358357/* Section 9.4.4 */ 
    359358int PMPI_File_read_shared(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
    360 int PMPI_File_write_shared(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
     359int PMPI_File_write_shared(MPI_File, const void *, int, MPI_Datatype, MPI_Status *); 
    361360int PMPI_File_iread_shared(MPI_File, void *, int,  
    362361                           MPI_Datatype, MPIO_Request *); 
    363 int PMPI_File_iwrite_shared(MPI_File, void *, int,  
     362int PMPI_File_iwrite_shared(MPI_File, const void *, int,  
    364363                            MPI_Datatype, MPIO_Request *); 
    365364int PMPI_File_read_ordered(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
    366 int PMPI_File_write_ordered(MPI_File, void *, int, MPI_Datatype, MPI_Status *); 
     365int PMPI_File_write_ordered(MPI_File, const void *, int, MPI_Datatype, MPI_Status *); 
    367366int PMPI_File_seek_shared(MPI_File, MPI_Offset, int); 
    368367int PMPI_File_get_position_shared(MPI_File, MPI_Offset *); 
    … …  
    372371                               int, MPI_Datatype); 
    373372int PMPI_File_read_at_all_end(MPI_File, void *, MPI_Status *); 
    374 int PMPI_File_write_at_all_begin(MPI_File, MPI_Offset, void *, 
     373int PMPI_File_write_at_all_begin(MPI_File, MPI_Offset, const void *, 
    375374                                int, MPI_Datatype); 
    376 int PMPI_File_write_at_all_end(MPI_File, void *, MPI_Status *); 
    377 int PMPI_File_read_all_begin(MPI_File, void *, int, MPI_Datatype); 
    378 int PMPI_File_read_all_end(MPI_File, void *, MPI_Status *); 
     375int PMPI_File_write_at_all_end(MPI_File, const void *, MPI_Status *); 
     376int PMPI_File_read_all_begin(MPI_File, const void *, int, MPI_Datatype); 
     377int PMPI_File_read_all_end(MPI_File, const void *, MPI_Status *); 
    379378int PMPI_File_write_all_begin(MPI_File, void *, int, MPI_Datatype); 
    380379int PMPI_File_write_all_end(MPI_File, void *, MPI_Status *); 
    381380int PMPI_File_read_ordered_begin(MPI_File, void *, int, MPI_Datatype); 
    382381int PMPI_File_read_ordered_end(MPI_File, void *, MPI_Status *); 
    383 int PMPI_File_write_ordered_begin(MPI_File, void *, int, MPI_Datatype); 
    384 int PMPI_File_write_ordered_end(MPI_File, void *, MPI_Status *); 
     382int PMPI_File_write_ordered_begin(MPI_File, const void *, int, MPI_Datatype); 
     383int PMPI_File_write_ordered_end(MPI_File, const void *, MPI_Status *); 
    385384 
    386385/* Section 9.5.1 */ 
    … …  
    388387 
    389388/* Section 9.5.3 */ 
    390 int PMPI_Register_datarep(char *, 
    391                         MPI_Datarep_conversion_function *, 
    392                         MPI_Datarep_conversion_function *, 
    393                         MPI_Datarep_extent_function *, 
    394                         void *); 
     389int PMPI_Register_datarep(const char *, 
     390                          MPI_Datarep_conversion_function *, 
     391                          MPI_Datarep_conversion_function *, 
     392                          MPI_Datarep_extent_function *, 
     393                          void *); 
    395394 
    396395/* Section 9.6.1 */ 
    … …  
    440439 
    441440int PMPI_Info_create(MPI_Info *); 
    442 int PMPI_Info_set(MPI_Info, char *, char *); 
    443 int PMPI_Info_delete(MPI_Info, char *); 
    444 int PMPI_Info_get(MPI_Info, char *, int, char *, int *); 
    445 int PMPI_Info_get_valuelen(MPI_Info, char *, int *, int *); 
     441int PMPI_Info_set(MPI_Info, const char *, const char *); 
     442int PMPI_Info_delete(MPI_Info, const char *); 
     443int PMPI_Info_get(MPI_Info, const char *, int, char *, int *); 
     444int PMPI_Info_get_valuelen(MPI_Info, const char *, int *, int *); 
    446445int PMPI_Info_get_nkeys(MPI_Info, int *); 
    447446int PMPI_Info_get_nthkey(MPI_Info, int, char *); 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/delete.c

    r3177 r3914  
    3535.N fortran 
    3636@*/ 
    37 int MPI_File_delete(char *filename, MPI_Info info) 
     37int MPI_File_delete(const char *filename, MPI_Info info) 
    3838{ 
    3939    int flag, error_code, file_system; 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/iwrite.c

    r3407 r3914  
    4242#endif 
    4343 
    44 int MPI_File_iwrite(MPI_File mpi_fh, void *buf, int count,  
     44int MPI_File_iwrite(MPI_File mpi_fh, const void *buf, int count,  
    4545                    MPI_Datatype datatype, MPI_Request *request) 
    4646{ 
    … …  
    7979                      MPI_Offset offset, 
    8080                      int file_ptr_type, 
    81                       void *buf, 
     81                      const void *buf, 
    8282                      int count, 
    8383                      MPI_Datatype datatype, 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/iwrite_at.c

    r100 r3914  
    4343#endif 
    4444 
    45 int MPI_File_iwrite_at(MPI_File mpi_fh, MPI_Offset offset, void *buf, 
     45int MPI_File_iwrite_at(MPI_File mpi_fh, MPI_Offset offset, const void *buf, 
    4646                       int count, MPI_Datatype datatype,  
    4747                       MPIO_Request *request) 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/iwrite_sh.c

    r3177 r3914  
    4242#endif 
    4343 
    44 int MPI_File_iwrite_shared(MPI_File mpi_fh, void *buf, int count,  
     44int MPI_File_iwrite_shared(MPI_File mpi_fh, const void *buf, int count,  
    4545                           MPI_Datatype datatype, MPIO_Request *request) 
    4646{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/open.c

    r3177 r3914  
    4040.N fortran 
    4141@*/ 
    42 int MPI_File_open(MPI_Comm comm, char *filename, int amode,  
     42int MPI_File_open(MPI_Comm comm, const char *filename, int amode,  
    4343                  MPI_Info info, MPI_File *fh) 
    4444{ 

  • mpich2/branches/dev/mpi_binding_const/src/mpi/romio/mpi-io/set_view.c

    r3177 r3914