#include "implicit_f.inc"
Go to the source code of this file.
◆ allocate_comm_struct()
| subroutine allocate_comm_struct |
( |
type(mpi_comm_struct) | object, |
|
|
integer, intent(in) | s1, |
|
|
integer, intent(in) | s2 ) |
Definition at line 62 of file mpi_comm_mod.F.
64
65
66
67
68#include "implicit_f.inc"
69 TYPE(MPI_COMM_STRUCT) :: OBJECT
70 INTEGER, INTENT(IN) :: S1,S2
71 ALLOCATE(object%SEND_RQ(s1,s2))
72 ALLOCATE(object%RECV_RQ(s1,s2))
73 ALLOCATE(object%TAG (s1,s2))
74 ALLOCATE(object%SIZ (s1,s2))
◆ deallocate_comm_struct()
| subroutine deallocate_comm_struct |
( |
type(mpi_comm_struct) | object, |
|
|
integer, intent(in) | s1, |
|
|
integer, intent(in) | s2 ) |
Definition at line 83 of file mpi_comm_mod.F.
85
86
87
88#include "implicit_f.inc"
89 TYPE(MPI_COMM_STRUCT) :: OBJECT
90 INTEGER, INTENT(IN) :: S1,S2
91 DEALLOCATE(object%SEND_RQ)
92 DEALLOCATE(object%RECV_RQ)
93 DEALLOCATE(object%TAG )
94 DEALLOCATE(object%SIZ )