Neko
0.9.0
A portable framework for high-order spectral element flow simulations
entity.f90
Go to the documentation of this file.
1
! Copyright (c) 2019-2021, The Neko Authors
2
! All rights reserved.
3
!
4
! Redistribution and use in source and binary forms, with or without
5
! modification, are permitted provided that the following conditions
6
! are met:
7
!
8
! * Redistributions of source code must retain the above copyright
9
! notice, this list of conditions and the following disclaimer.
10
!
11
! * Redistributions in binary form must reproduce the above
12
! copyright notice, this list of conditions and the following
13
! disclaimer in the documentation and/or other materials provided
14
! with the distribution.
15
!
16
! * Neither the name of the authors nor the names of its
17
! contributors may be used to endorse or promote products derived
18
! from this software without specific prior written permission.
19
!
20
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21
! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22
! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23
! FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
24
! COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
25
! INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
26
! BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
27
! LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
28
! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29
! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
30
! ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
31
! POSSIBILITY OF SUCH DAMAGE.
32
!
33
module
entity
34
implicit none
35
private
36
38
type
,
public
,
abstract
::
entity_t
39
integer
,
private
:: id_ = -1
40
contains
41
procedure
, pass(this) :: id =>
entity_id
42
procedure
, pass(this) :: set_id =>
entity_set_id
43
end type
entity_t
44
45
contains
46
48
pure
function
entity_id
(this)
result
(id)
49
class
(
entity_t
),
intent(in)
:: this
50
integer
:: id
51
id = this%id_
52
end function
entity_id
53
55
subroutine
entity_set_id
(this, id)
56
class
(
entity_t
),
intent(inout)
:: this
57
integer
,
intent(in)
:: id
58
this%id_ = id
59
end subroutine
entity_set_id
60
61
end module
entity
entity
Definition:
entity.f90:33
entity::entity_set_id
subroutine entity_set_id(this, id)
Update the index of an entity.
Definition:
entity.f90:56
entity::entity_id
pure integer function entity_id(this)
Return the index of an entity.
Definition:
entity.f90:49
entity::entity_t
Base type for an entity.
Definition:
entity.f90:38
src
mesh
entity.f90
Generated on Thu Nov 7 2024 10:53:28 for Neko by
1.9.1