1 | MODULE transfert_mod |
---|
2 | |
---|
3 | #ifdef CPP_USING_MPI |
---|
4 | USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, & |
---|
5 | req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, & |
---|
6 | t_message,init_message=>init_message_mpi,transfert_message=>transfert_message_mpi, & |
---|
7 | send_message=>send_message_mpi,test_message=>test_message_mpi,wait_message=>wait_message_mpi,barrier |
---|
8 | #else |
---|
9 | USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_seq, req_i1,req_e1_vect, & |
---|
10 | req_e1_scal,req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, & |
---|
11 | t_message,init_message=>init_message_seq,transfert_message=>transfert_message_seq, & |
---|
12 | send_message=>send_message_seq,test_message=>test_message_seq,wait_message=>wait_message_seq,barrier |
---|
13 | #endif |
---|
14 | |
---|
15 | END MODULE transfert_mod |
---|