dynamic_var_init.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_dynamic_init_variables
 
  use m_fstr
  use m_dynamic_mat_ass_load
 
contains
 
  subroutine dynamic_init_varibles( hecMESH, hecMAT, fstrSOLID, fstrEIG, fstrDYNAMIC, fstrPARAM )
 
    implicit none
 
    type(hecmwst_local_mesh) :: hecMESH
    type(hecmwst_matrix)     :: hecMAT
    type(fstr_eigen)         :: fstrEIG
    type(fstr_solid)         :: fstrSOLID
    type(fstr_dynamic)       :: fstrDYNAMIC
    type(fstr_param)         :: fstrPARAM
 
    integer(kind=kint) :: j
 
    call dynamic_mat_ass_load (hecmesh, hecmat, fstrsolid, fstrdynamic, fstrparam)
 
    if( fstrsolid%VELOCITY_type == kbcinitial ) then
      do j = 1, hecmesh%n_node*hecmesh%n_dof
        fstrdynamic%ACC(j,1)=(hecmat%B(j)-fstrdynamic%ray_m*fstreig%mass(j)*fstrdynamic%VEL(j,1))/&
          fstreig%mass(j)
      enddo
    elseif( fstrsolid%ACCELERATION_type == kbcinitial ) then
      do j = 1, hecmesh%n_node*hecmesh%n_dof
        fstrdynamic%VEL(j,1)=(hecmat%B(j)-fstreig%mass(j)*fstrdynamic%ACC(j,1))/&
          (fstrdynamic%ray_m*fstreig%mass(j))
      enddo
    endif
 
  end subroutine dynamic_init_varibles
 
end module m_dynamic_init_variables