hecmw_couple_struct_f.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
module hecmw_couple_struct_f
 
  use hecmw_util
 
  implicit none
  private
 
  type, public :: hecmw_couple_value
    integer(kind=kint)                        :: n
    integer(kind=kint)                        :: item_type
    integer(kind=kint)                        :: n_dof
    integer(kind=kint), dimension(:), pointer :: item
    real(kind=kreal),   dimension(:), pointer :: value
  end type hecmw_couple_value
 
end module hecmw_couple_struct_f