FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_solver_scaling.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 use hecmw_util
14 implicit none
15
18
19contains
20
21 subroutine hecmw_solver_scaling_fw(hecMESH, hecMAT, COMMtime)
22 implicit none
23 type (hecmwst_local_mesh), intent(in) :: hecmesh
24 type (hecmwst_matrix), intent(inout) :: hecmat
25 real(kind=kreal), intent(inout) :: commtime
26 select case(hecmat%NDOF)
27 case(3)
28 call hecmw_solver_scaling_fw_33(hecmesh, hecmat, commtime)
29 case(4)
30 call hecmw_solver_scaling_fw_44(hecmesh, hecmat, commtime)
31 case(6)
32 call hecmw_solver_scaling_fw_66(hecmesh, hecmat, commtime)
33 case default
34 call hecmw_solver_scaling_fw_nn(hecmesh, hecmat, commtime)
35 end select
36 end subroutine hecmw_solver_scaling_fw
37
38 subroutine hecmw_solver_scaling_bk(hecMAT)
39 use hecmw_util
40 implicit none
41 type (hecmwst_matrix), intent(inout) :: hecmat
42 select case(hecmat%NDOF)
43 case(3)
45 case(4)
47 case(6)
49 case default
51 end select
52
53 end subroutine hecmw_solver_scaling_bk
54
55end module hecmw_solver_scaling
subroutine, public hecmw_solver_scaling_bk_33(hecmat)
subroutine, public hecmw_solver_scaling_fw_33(hecmesh, hecmat, commtime)
subroutine, public hecmw_solver_scaling_fw_44(hecmesh, hecmat, commtime)
subroutine, public hecmw_solver_scaling_bk_44(hecmat)
subroutine, public hecmw_solver_scaling_fw_66(hecmesh, hecmat, commtime)
subroutine, public hecmw_solver_scaling_bk_66(hecmat)
subroutine, public hecmw_solver_scaling_fw_nn(hecmesh, hecmat, commtime)
subroutine, public hecmw_solver_scaling_bk_nn(hecmat)
subroutine, public hecmw_solver_scaling_fw(hecmesh, hecmat, commtime)
subroutine, public hecmw_solver_scaling_bk(hecmat)
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=4), parameter kreal