heat_mat_ass_bc_FIXT.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 m_heat_mat_ass_bc_fixt
contains
 
  subroutine heat_mat_ass_bc_fixt(hecMAT, fstrHEAT, CTIME, DTIME, beta)
    use m_fstr
    use m_heat_get_amplitude
    implicit none
    type(fstr_heat)      :: fstrHEAT
    type(hecmwst_matrix) :: hecMAT
    integer(kind=kint) :: ib, ii, id
    real(kind=kreal)   :: ctime, dtime, qq, beta
    logical :: OutOfRange
 
    do ib = 1, fstrheat%T_FIX_tot
      ii = fstrheat%T_FIX_node(ib)
      id = fstrheat%T_FIX_ampl(ib)
      call heat_get_amplitude(fstrheat, id, ctime, qq, outofrange)
 
      if(outofrange) cycle
 
      call hecmw_mat_ass_bc(hecmat, ii, 1, fstrheat%T_FIX_VAL(ib)*qq)
    enddo
  end subroutine heat_mat_ass_bc_fixt
end module m_heat_mat_ass_bc_fixt