my_hecmw_util_f_lag.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 my_hecmw_util_lag
  implicit none
 
  integer(kind=4), parameter:: kint  = 4
  integer(kind=4), parameter:: kreal = 8
 
  type hecmwst_matrix
    integer(kind=kint) ::  np, npl, ndof
    real(kind=kreal), pointer :: d(:), b(:), x(:)
    real(kind=kreal), pointer :: al(:)
    integer(kind=kint), pointer :: indexl(:)
    integer(kind=kint), pointer ::  iteml(:)
    integer(kind=kint ), dimension(100) :: iarray
    real   (kind=kreal), dimension(100) :: rarray
  end type hecmwst_matrix
 
end module my_hecmw_util_lag