FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_etype_f.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
8 use hecmw_util
9 implicit none
10
11contains
12
13 function hecmw_get_max_node(etype)
14 integer(kind=kint) :: hecmw_get_max_node
15 integer(kind=kint) :: etype
17 integer(kind=kint) :: hecmw_get_max_node_if
18
20
21 end function hecmw_get_max_node
22
23 function hecmw_is_etype_rod(etype)
24 logical :: hecmw_is_etype_rod
25 integer(kind=kint) :: etype
27 integer(kind=kint) :: hecmw_is_etype_rod_if
28
29 if (hecmw_is_etype_rod_if(etype) /= 0) then
30 hecmw_is_etype_rod = .true.
31 else
32 hecmw_is_etype_rod = .false.
33 endif
34 end function hecmw_is_etype_rod
35
36 function hecmw_is_etype_surface(etype)
37 logical :: hecmw_is_etype_surface
38 integer(kind=kint) :: etype
40 integer(kind=kint) :: hecmw_is_etype_surface_if
41
42 if (hecmw_is_etype_surface_if(etype) /= 0) then
44 else
46 endif
47 end function hecmw_is_etype_surface
48
49 function hecmw_is_etype_solid(etype)
50 logical :: hecmw_is_etype_solid
51 integer(kind=kint) :: etype
53 integer(kind=kint) :: hecmw_is_etype_solid_if
54
55 if (hecmw_is_etype_solid_if(etype) /= 0) then
57 else
58 hecmw_is_etype_solid = .false.
59 endif
60 end function hecmw_is_etype_solid
61
64 integer(kind=kint) :: etype
66 integer(kind=kint) :: hecmw_is_etype_interface_if
67
68 if (hecmw_is_etype_interface_if(etype) /= 0) then
70 else
72 endif
73 end function hecmw_is_etype_interface
74
75 function hecmw_is_etype_beam(etype)
76 logical :: hecmw_is_etype_beam
77 integer(kind=kint) :: etype
79 integer(kind=kint) :: hecmw_is_etype_beam_if
80
81 if (hecmw_is_etype_beam_if(etype) /= 0) then
82 hecmw_is_etype_beam = .true.
83 else
84 hecmw_is_etype_beam = .false.
85 endif
86 end function hecmw_is_etype_beam
87
88 function hecmw_is_etype_shell(etype)
89 logical :: hecmw_is_etype_shell
90 integer(kind=kint) :: etype
92 integer(kind=kint) :: hecmw_is_etype_shell_if
93
94 if (hecmw_is_etype_shell_if(etype) /= 0) then
96 else
97 hecmw_is_etype_shell = .false.
98 endif
99 end function hecmw_is_etype_shell
100
101 function hecmw_is_etype_link(etype)
102 logical :: hecmw_is_etype_link
103 integer(kind=kint) :: etype
105 integer(kind=kint) :: hecmw_is_etype_link_if
106
107 if (hecmw_is_etype_link_if(etype) /= 0) then
108 hecmw_is_etype_link = .true.
109 else
110 hecmw_is_etype_link = .false.
111 endif
112 end function hecmw_is_etype_link
113
115 logical :: hecmw_is_etype_33struct
116 integer(kind=kint) :: etype
118 integer(kind=kint) :: hecmw_is_etype_33struct_if
119
120 if (hecmw_is_etype_33struct_if(etype) /= 0) then
122 else
124 endif
125 end function hecmw_is_etype_33struct
126
127 function hecmw_is_etype_patch(etype)
128 logical :: hecmw_is_etype_patch
129 integer(kind=kint) :: etype
131 integer(kind=kint) :: hecmw_is_etype_patch_if
132
133 if (hecmw_is_etype_patch_if(etype) /= 0) then
134 hecmw_is_etype_patch = .true.
135 else
136 hecmw_is_etype_patch = .false.
137 endif
138 end function hecmw_is_etype_patch
139
140end module hecmw_etype
int hecmw_is_etype_interface_if(int *etype)
Definition: hecmw_etype.c:2153
int hecmw_get_max_node_if(int *etype)
Definition: hecmw_etype.c:2121
int hecmw_is_etype_link_if(int *etype)
Definition: hecmw_etype.c:2180
int hecmw_is_etype_beam_if(int *etype)
Definition: hecmw_etype.c:2166
int hecmw_is_etype_33struct_if(int *etype)
Definition: hecmw_etype.c:2185
int hecmw_is_etype_shell_if(int *etype)
Definition: hecmw_etype.c:2171
int hecmw_is_etype_solid_if(int *etype)
Definition: hecmw_etype.c:2144
int hecmw_is_etype_patch_if(int *etype)
Definition: hecmw_etype.c:2207
int hecmw_is_etype_rod_if(int *etype)
Definition: hecmw_etype.c:2126
int hecmw_is_etype_surface_if(int *etype)
Definition: hecmw_etype.c:2131
I/O and Utility.
logical function hecmw_is_etype_solid(etype)
logical function hecmw_is_etype_patch(etype)
logical function hecmw_is_etype_beam(etype)
logical function hecmw_is_etype_shell(etype)
logical function hecmw_is_etype_rod(etype)
integer(kind=kint) function hecmw_get_max_node(etype)
logical function hecmw_is_etype_interface(etype)
logical function hecmw_is_etype_link(etype)
logical function hecmw_is_etype_33struct(etype)
logical function hecmw_is_etype_surface(etype)
I/O and Utility.
Definition: hecmw_util_f.F90:7