OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
mpi_comm_mod.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Data Types

type  mpi_commod::mpi_comm_struct
type  mpi_commod::mpi_comm_nor_struct

Modules

module  mpi_commod

Functions/Subroutines

subroutine allocate_comm_struct (object, s1, s2)
subroutine deallocate_comm_struct (object, s1, s2)

Function/Subroutine Documentation

◆ 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.

63 USE mpi_commod
64
65C-----------------------------------------------
66C I m p l i c i t T y p e s
67C-----------------------------------------------
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.

84 USE mpi_commod
85C-----------------------------------------------
86C I m p l i c i t T y p e s
87C-----------------------------------------------
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 )