[26] | 1 | MODULE transfert_mod |
---|
| 2 | |
---|
[31] | 3 | #ifdef CPP_USING_MPI |
---|
[146] | 4 | USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, & |
---|
[151] | 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 |
---|
[26] | 8 | #else |
---|
[151] | 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 |
---|
[26] | 13 | #endif |
---|
| 14 | |
---|
| 15 | END MODULE transfert_mod |
---|