mpi.h

CCSM Research Tools: Community Atmosphere Model (CAM)

      MPIUNI_TMP = (void*)(long) (array_of_requests),\
      MPIUNI_TMP = (void*)(long) (outcount),\
      MPIUNI_TMP = (void*)(long) (array_of_indices),\
      MPIUNI_TMP = (void*)(long) (array_of_statuses),\
      MPI_SUCCESS)
#define MPI_Comm_group(comm,group) \
     (MPIUNI_TMP = (void*)(long) (comm),\
      MPIUNI_TMP = (void*)(long) (group),\
      MPI_SUCCESS)
#define MPI_Group_incl(group,n,ranks,newgroup) \
     (MPIUNI_TMP = (void*)(long) (group),\
      MPIUNI_TMP = (void*)(long) (n),\
      MPIUNI_TMP = (void*)(long) (ranks),\
      MPIUNI_TMP = (void*)(long) (newgroup),\
      MPI_SUCCESS)
#define MPI_Testsome(incount,array_of_requests,outcount,\
                     array_of_indices,array_of_statuses) MPI_SUCCESS
#define MPI_Iprobe(source,tag,comm,flag,status) (*(flag)=0, MPI_SUCCESS)
#define MPI_Probe(source,tag,comm,status) MPI_SUCCESS
#define MPI_Cancel(request) (MPIUNI_TMP = (void*)(long) (request),MPI_SUCCESS)
#define MPI_Test_cancelled(status,flag) (*(flag)=0,MPI_SUCCESS)
#define MPI_Send_init(buf,count, datatype,dest,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (dest),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Bsend_init(buf,count, datatype,dest,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (dest),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Ssend_init(buf,count, datatype,dest,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (dest),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Bsend_init(buf,count, datatype,dest,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (dest),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Rsend_init(buf,count, datatype,dest,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (dest),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Recv_init(buf,count, datatype,source,tag,comm,request) \
     (MPIUNI_TMP = (void*)(long) (buf),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (source),\
     MPIUNI_TMP = (void*)(long) (tag),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (request),\
     MPI_SUCCESS)
#define MPI_Start(request) (MPIUNI_TMP = (void*)(long) (request),MPI_SUCCESS)
#define MPI_Startall(count,array_of_requests) \
     (MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (array_of_requests),\
     MPI_SUCCESS)
#define MPI_Op_create(function,commute,op) \
     (MPIUNI_TMP = (void*)(long) (function),\
     MPIUNI_TMP = (void*)(long) (commute),\
     MPIUNI_TMP = (void*)(long) (op),\
     MPI_SUCCESS)
#define MPI_Op_free(op) \
     (MPIUNI_TMP = (void*)(long) (op),\
     MPI_SUCCESS)
     /* Need to determine sizeof "sendtype" */
#define MPI_Sendrecv(sendbuf,sendcount, sendtype,\
     dest,sendtag,recvbuf,recvcount,\
     recvtype,source,recvtag,\
     comm,status) \
     MPIUNI_Memcpy(recvbuf,sendbuf,(sendcount) * (sendtype))
#define MPI_Sendrecv_replace(buf,count, datatype,dest,sendtag,\
     source,recvtag,comm,status) MPI_SUCCESS
#define MPI_Type_contiguous(count, oldtype,newtype) \
     (*(newtype) = (count)*(oldtype),MPI_SUCCESS)
#define MPI_Type_vector(count,blocklength,stride,oldtype, newtype) MPI_SUCCESS
#define MPI_Type_hvector(count,blocklength,stride,oldtype, newtype) MPI_SUCCESS
#define MPI_Type_indexed(count,array_of_blocklengths,\
     array_of_displacements, oldtype,\
     newtype) MPI_SUCCESS
#define MPI_Type_hindexed(count,array_of_blocklengths,\
     array_of_displacements, oldtype,\
     newtype) MPI_SUCCESS
#define MPI_Type_struct(count,array_of_blocklengths,\
     array_of_displacements,\
     array_of_types, newtype) MPI_SUCCESS
#define MPI_Address(location,address) \
     (*(address) = (long)(char *)(location),MPI_SUCCESS)
#define MPI_Type_extent(datatype,extent) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Type_size(datatype,size) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Type_lb(datatype,displacement) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Type_ub(datatype,displacement) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Type_commit(datatype) (MPIUNI_TMP = (void*)(long) (datatype),\
     MPI_SUCCESS)
#define MPI_Type_free(datatype) MPI_SUCCESS
#define MPI_Get_elements(status, datatype,count) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Pack(inbuf,incount, datatype,outbuf,\
     outsize,position, comm) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Unpack(inbuf,insize,position,outbuf,\
     outcount, datatype,comm) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Pack_size(incount, datatype,comm,size) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Barrier(comm) \
     (MPIUNI_TMP = (void*)(long) (comm),\
     MPI_SUCCESS)
#define MPI_Bcast(buffer,count,datatype,root,comm) \
     (MPIUNI_TMP = (void*)(long) (buffer),\
     MPIUNI_TMP = (void*)(long) (count),\
     MPIUNI_TMP = (void*)(long) (datatype),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPI_SUCCESS)
#define MPI_Gather(sendbuf,sendcount, sendtype,\
     recvbuf,recvcount, recvtype,\
     root,comm) \
     (MPIUNI_TMP = (void*)(long) (recvcount),\
     MPIUNI_TMP = (void*)(long) (root),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_Memcpy(recvbuf,sendbuf,(sendcount)* (sendtype)),\
     MPI_SUCCESS)
#define MPI_Gatherv(sendbuf,sendcount, sendtype,\
     recvbuf,recvcounts,displs,\
     recvtype,root,comm) \
     (MPIUNI_TMP = (void*)(long) (recvcounts),\
     MPIUNI_TMP = (void*)(long) (displs),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (root),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_Memcpy(recvbuf,sendbuf,(sendcount)* (sendtype)),\
     MPI_SUCCESS)
#define MPI_Scatter(sendbuf,sendcount, sendtype,\
     recvbuf,recvcount, recvtype,\
     root,comm) \
     (MPIUNI_TMP = (void*)(long) (sendbuf),\
     MPIUNI_TMP = (void*)(long) (sendcount),\
     MPIUNI_TMP = (void*)(long) (sendtype),\
     MPIUNI_TMP = (void*)(long) (recvbuf),\
     MPIUNI_TMP = (void*)(long) (recvcount),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (root),\
     MPIUNI_TMP = (void*)(long) (comm),MPI_Abort(MPI_COMM_WORLD,0))
#define MPI_Scatterv(sendbuf,sendcounts,displs,\
     sendtype, recvbuf,recvcount,\
     recvtype,root,comm) \
     (MPIUNI_TMP = (void*)(long) (sendbuf),\
     MPIUNI_TMP = (void*)(long) (sendcounts),\
     MPIUNI_TMP = (void*)(long) (displs),\
     MPIUNI_TMP = (void*)(long) (sendtype),\
     MPIUNI_TMP = (void*)(long) (recvbuf),\
     MPIUNI_TMP = (void*)(long) (recvcount),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (root),\
     MPIUNI_TMP = (void*)(long) (comm),MPI_Abort(MPI_COMM_WORLD,0))
#define MPI_Allgather(sendbuf,sendcount, sendtype,\
     recvbuf,recvcount, recvtype,comm) \
     (MPIUNI_TMP = (void*)(long) (recvcount),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_Memcpy(recvbuf,sendbuf,(sendcount)* (sendtype)),\
     MPI_SUCCESS)
#define MPI_Allgatherv(sendbuf,sendcount, sendtype,\
     recvbuf,recvcounts,displs,recvtype,comm) \
     (MPIUNI_TMP = (void*)(long) (recvcounts),\
     MPIUNI_TMP = (void*)(long) (displs),\
     MPIUNI_TMP = (void*)(long) (recvtype),\
     MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_Memcpy(recvbuf,sendbuf,(sendcount)* (sendtype)),\
     MPI_SUCCESS)
#define MPI_Alltoall(sendbuf,sendcount, sendtype,\
     recvbuf,recvcount, recvtype,\
     comm) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Alltoallv(sendbuf,sendcounts,sdispls,\
     sendtype, recvbuf,recvcounts,\
     rdispls, recvtype,comm) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Reduce(sendbuf, recvbuf,count,\
     datatype,op,root,comm) \
     (MPIUNI_Memcpy(recvbuf,sendbuf,(count)*(datatype)),\
     MPIUNI_TMP = (void*)(long) (comm),MPI_SUCCESS)
#define MPI_Allreduce(sendbuf, recvbuf,count,datatype,op,comm) \
     (MPIUNI_Memcpy(recvbuf,sendbuf,(count)*(datatype)),\
     MPIUNI_TMP = (void*)(long) (comm),MPI_SUCCESS)
#define MPI_Scan(sendbuf, recvbuf,count,datatype,op,comm) \
     (MPIUNI_Memcpy(recvbuf,sendbuf,(count)*(datatype)),\
     MPIUNI_TMP = (void*)(long) (comm),MPI_SUCCESS)
#define MPI_Reduce_scatter(sendbuf, recvbuf,recvcounts,\
     datatype,op,comm) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Group_size(group,size) (*(size)=1,MPI_SUCCESS)
#define MPI_Group_rank(group,rank) (*(rank)=0,MPI_SUCCESS)
#define MPI_Group_translate_ranks (group1,n,ranks1,\
     group2,ranks2) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Group_compare(group1,group2,result) \
     (*(result)=1,MPI_SUCCESS)
#define MPI_Group_union(group1,group2,newgroup) MPI_SUCCESS
#define MPI_Group_intersection(group1,group2,newgroup) MPI_SUCCESS
#define MPI_Group_difference(group1,group2,newgroup) MPI_SUCCESS
#define MPI_Group_excl(group,n,ranks,newgroup) MPI_SUCCESS
#define MPI_Group_range_incl(group,n,ranges,newgroup) MPI_SUCCESS
#define MPI_Group_range_excl(group,n,ranges,newgroup) MPI_SUCCESS
#define MPI_Group_free(group) \
     (MPIUNI_TMP = (void*)(long) (group),\
     MPI_SUCCESS)
#define MPI_Comm_size(comm,size) \
     (MPIUNI_TMP = (void*)(long) (comm),\
     *(size)=1,\
     MPI_SUCCESS)
#define MPI_Comm_rank(comm,rank) \
     (MPIUNI_TMP = (void*)(long) (comm),\
     *(rank)=0,\
     MPI_SUCCESS)
#define MPI_Comm_compare(comm1,comm2,result) \
     (MPIUNI_TMP = (void*)(long) (comm1),\
     MPIUNI_TMP = (void*)(long) (comm2),\
     *(result)=MPI_IDENT,\
     MPI_SUCCESS)
#define MPI_Comm_create(comm,group,newcomm)  \
     (*(newcomm) =  (comm),\
     MPIUNI_TMP = (void*)(long) (group),\
     MPI_SUCCESS)
#define MPI_Comm_split(comm,color,key,newcomm) MPI_SUCCESS
#define MPI_Comm_test_inter(comm,flag) (*(flag)=1,MPI_SUCCESS)
#define MPI_Comm_remote_size(comm,size) (*(size)=1,MPI_SUCCESS)
#define MPI_Comm_remote_group(comm,group) MPI_SUCCESS
#define MPI_Intercomm_create(local_comm,local_leader,peer_comm,\
     remote_leader,tag,newintercomm) MPI_SUCCESS
#define MPI_Intercomm_merge(intercomm,high,newintracomm) MPI_SUCCESS

#define MPI_Topo_test(comm,status) MPI_SUCCESS
#define MPI_Cart_create(comm_old,ndims,dims,periods,\
     reorder,comm_cart) MPI_SUCCESS
#define MPI_Dims_create(nnodes,ndims,dims) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Graph_create(comm,a,b,c,d,e) MPI_SUCCESS
#define MPI_Graphdims_Get(comm,nnodes,nedges) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Graph_get(comm,a,b,c,d) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cartdim_get(comm,ndims) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_get(comm,maxdims,dims,periods,coords) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_rank(comm,coords,rank) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_coords(comm,rank,maxdims,coords) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Graph_neighbors_count(comm,rank,nneighbors) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Graph_neighbors(comm,rank,maxneighbors,neighbors) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_shift(comm,direction,disp,rank_source,rank_dest) \
     MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_sub(comm,remain_dims,newcomm) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Cart_map(comm,ndims,dims,periods,newrank) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Graph_map(comm,a,b,c,d) MPI_Abort(MPI_COMM_WORLD,0)
#define MPI_Get_processor_name(name,result_len) \
     (MPIUNI_Memcpy(name,"localhost",9*sizeof(char)),name[10] = 0,*(result_len) = 10)
#define MPI_Errhandler_create(function,errhandler) \
     (MPIUNI_TMP = (void*)(long) (errhandler),\
     MPI_SUCCESS)
#define MPI_Errhandler_set(comm,errhandler) \
     (MPIUNI_TMP = (void*)(long) (comm),\
     MPIUNI_TMP = (void*)(long) (errhandler),\
     MPI_SUCCESS)
#define MPI_Errhandler_get(comm,errhandler) MPI_SUCCESS
#define MPI_Errhandler_free(errhandler) MPI_SUCCESS
#define MPI_Error_string(errorcode,string,result_len) MPI_SUCCESS
#define MPI_Error_class(errorcode,errorclass) MPI_SUCCESS
#define MPI_Wtick() 1.0
#define MPI_Wtime() 0.0
#define MPI_Pcontrol(level) MPI_SUCCESS

#define MPI_NULL_COPY_FN   0
#define MPI_NULL_DELETE_FN 0

#endif