FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
my_hecmw_util_f_lag.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!-------------------------------------------------------------------------------
5
7 implicit none
8
9 integer(kind=4), parameter:: kint = 4
10 integer(kind=4), parameter:: kreal = 8
11
13 integer(kind=kint) :: np, npl, ndof
14 real(kind=kreal), pointer :: d(:), b(:), x(:)
15 real(kind=kreal), pointer :: al(:)
16 integer(kind=kint), pointer :: indexl(:)
17 integer(kind=kint), pointer :: iteml(:)
18 integer(kind=kint ), dimension(100) :: iarray
19 real (kind=kreal), dimension(100) :: rarray
20 end type hecmwst_matrix
21
22end module my_hecmw_util_lag
23
24
25
integer(kind=4), parameter kint
integer(kind=4), parameter kreal