FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_couple_struct_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 type, public :: hecmw_couple_value
15 integer(kind=kint) :: n
16 integer(kind=kint) :: item_type
17 integer(kind=kint) :: n_dof
18 integer(kind=kint), dimension(:), pointer :: item
19 real(kind=kreal), dimension(:), pointer :: value
20 end type hecmw_couple_value
21
22end module hecmw_couple_struct_f
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=4), parameter kreal