FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_couple_define_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
9 use hecmw_util
10
11 implicit none
12 private
13
14 integer(kind=kint), parameter, public :: hecmw_couple_type_undef = -100
15 integer(kind=kint), parameter, public :: hecmw_couple_type_mxn = 101
16 integer(kind=kint), parameter, public :: hecmw_couple_type_maxmn = 102
17 integer(kind=kint), parameter, public :: hecmw_couple_type_manual = 103
18
19 integer(kind=kint), parameter, public :: hecmw_couple_unit_undef = -200
20 integer(kind=kint), parameter, public :: hecmw_couple_unit1 = 201
21 integer(kind=kint), parameter, public :: hecmw_couple_unit2 = 202
22
23 integer(kind=kint), parameter, public :: hecmw_couple_direction_undef = -300
24 integer(kind=kint), parameter, public :: hecmw_couple_unit1_to_unit2 = 301
25 integer(kind=kint), parameter, public :: hecmw_couple_unit2_to_unit1 = 302
26
27 integer(kind=kint), parameter, public :: hecmw_couple_group_undef = -400
28 integer(kind=kint), parameter, public :: hecmw_couple_node_group = 401
29 integer(kind=kint), parameter, public :: hecmw_couple_element_group = 402
30 integer(kind=kint), parameter, public :: hecmw_couple_surface_group = 403
31
32 integer(kind=kint), parameter, public :: hecmw_couple_ip_undef = -500
33 integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_node = 501
34 integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_elem = 502
35 integer(kind=kint), parameter, public :: hecmw_couple_ip_node_to_surf = 503
36 integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_node = 511
37 integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_elem = 512
38 integer(kind=kint), parameter, public :: hecmw_couple_ip_elem_to_surf = 513
39 integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_node = 521
40 integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_elem = 522
41 integer(kind=kint), parameter, public :: hecmw_couple_ip_surf_to_surf = 523
42
43 integer(kind=kint), parameter, public :: hecmw_couple_map_undef = -600
44 integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_node = 601
45 integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_elem = 602
46 integer(kind=kint), parameter, public :: hecmw_couple_map_node_to_surf = 603
47 integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_node = 611
48 integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_elem = 612
49 integer(kind=kint), parameter, public :: hecmw_couple_map_elem_to_surf = 613
50 integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_node = 621
51 integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_elem = 622
52 integer(kind=kint), parameter, public :: hecmw_couple_map_surf_to_surf = 623
53
54end module hecmw_couple_define_f
integer(kind=kint), parameter, public hecmw_couple_ip_elem_to_surf
integer(kind=kint), parameter, public hecmw_couple_unit2
integer(kind=kint), parameter, public hecmw_couple_direction_undef
integer(kind=kint), parameter, public hecmw_couple_ip_undef
integer(kind=kint), parameter, public hecmw_couple_type_mxn
integer(kind=kint), parameter, public hecmw_couple_ip_surf_to_surf
integer(kind=kint), parameter, public hecmw_couple_type_undef
integer(kind=kint), parameter, public hecmw_couple_unit_undef
integer(kind=kint), parameter, public hecmw_couple_surface_group
integer(kind=kint), parameter, public hecmw_couple_node_group
integer(kind=kint), parameter, public hecmw_couple_map_elem_to_elem
integer(kind=kint), parameter, public hecmw_couple_unit2_to_unit1
integer(kind=kint), parameter, public hecmw_couple_ip_elem_to_elem
integer(kind=kint), parameter, public hecmw_couple_element_group
integer(kind=kint), parameter, public hecmw_couple_ip_surf_to_node
integer(kind=kint), parameter, public hecmw_couple_unit1_to_unit2
integer(kind=kint), parameter, public hecmw_couple_group_undef
integer(kind=kint), parameter, public hecmw_couple_ip_node_to_elem
integer(kind=kint), parameter, public hecmw_couple_map_surf_to_elem
integer(kind=kint), parameter, public hecmw_couple_map_node_to_node
integer(kind=kint), parameter, public hecmw_couple_unit1
integer(kind=kint), parameter, public hecmw_couple_map_surf_to_node
integer(kind=kint), parameter, public hecmw_couple_ip_node_to_node
integer(kind=kint), parameter, public hecmw_couple_map_undef
integer(kind=kint), parameter, public hecmw_couple_map_node_to_surf
integer(kind=kint), parameter, public hecmw_couple_map_node_to_elem
integer(kind=kint), parameter, public hecmw_couple_ip_surf_to_elem
integer(kind=kint), parameter, public hecmw_couple_map_elem_to_surf
integer(kind=kint), parameter, public hecmw_couple_type_maxmn
integer(kind=kint), parameter, public hecmw_couple_type_manual
integer(kind=kint), parameter, public hecmw_couple_map_surf_to_surf
integer(kind=kint), parameter, public hecmw_couple_ip_elem_to_node
integer(kind=kint), parameter, public hecmw_couple_ip_node_to_surf
integer(kind=kint), parameter, public hecmw_couple_map_elem_to_node
I/O and Utility.
Definition: hecmw_util_f.F90:7