FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
heat_mat_ass_bc_CFLUX.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!-------------------------------------------------------------------------------
8contains
9 !C
10 !C***
11 !C*** MAT_ASS_BC_CFLUX
12 !C***
13 !C
14 subroutine heat_mat_ass_bc_cflux( hecMAT, fstrHEAT, CTIME, DTIME, beta )
15
16 use m_fstr
18
19 implicit none
20 integer(kind=kint) :: ib, in, ia
21 real(kind=kreal) :: ctime, dtime, qq, beta
22 type(fstr_heat) :: fstrheat
23 type(hecmwst_matrix) :: hecMAT
24
25 do ib = 1, fstrheat%Q_NOD_tot
26 in = fstrheat%Q_NOD_node(ib)
27 ia = fstrheat%Q_NOD_ampl(ib)
28 call heat_get_amplitude ( fstrheat,ia,ctime,qq )
29 hecmat%B(in) = hecmat%B(in) + qq*fstrheat%Q_NOD_val(ib)
30 enddo
31
32 return
33 end subroutine heat_mat_ass_bc_cflux
This module defined coomon data and basic structures for analysis.
Definition: m_fstr.f90:15
This moudle provide a function to get amplitude definition.
subroutine heat_get_amplitude(fstrheat, id, tt, qq, outofrange)
This module provides a subroutine for setting concerntrated heat flux boundary conditions.
subroutine heat_mat_ass_bc_cflux(hecmat, fstrheat, ctime, dtime, beta)
Data for HEAT ANSLYSIS (fstrHEAT)
Definition: m_fstr.f90:394