Finalize the environment. This routine is called by tem_finalize which should be the very last action in a program.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(tem_comm_env_type) | :: | proc | The process communicator type |
subroutine tem_comm_env_fin( proc )
! ---------------------------------------------------------------------------
!> The process communicator type
type( tem_comm_env_type ) :: proc
! ---------------------------------------------------------------------------
!> Error flag
integer :: iError
! ---------------------------------------------------------------------------
! Free the communicator again
call mpi_comm_free( proc%comm, iError )
end subroutine tem_comm_env_fin