FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_solve_init.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
6!
7!C***
8!C*** hecmw_solve_init
9!C***
10!
11
13
14contains
15
16 subroutine hecmw_solve_init (hecMAT)
17 use hecmw_util
18 implicit real*8 (a-h,o-z)
19 type (hecmwST_matrix) :: hecMAT
20
21 hecmat%Iarray= 0
22 hecmat%Rarray= 0.d0
23
24 hecmat%Iarray(1)= 100
25 hecmat%Iarray(6)= 10
26
27 hecmat%Rarray(1)= 1.d-8
28 hecmat%Rarray(2)= 1.d0
29 hecmat%Rarray(3)= 0.d0
30 hecmat%Rarray(4)= 0.10d0
31 hecmat%Rarray(5)= 0.10d0
32
33 end subroutine hecmw_solve_init
34
35end module m_hecmw_solve_init
36
37
I/O and Utility.
Definition: hecmw_util_f.F90:7
subroutine hecmw_solve_init(hecmat)