hecmw_dist_result_copy_c2f.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
subroutine hecmw_dist_result_copy_c2f(hecMESHnew, adapRES)
  use   hecmw_util
  use   hecmw_result
  use   hecmw_io
  use   hecmw_dist_copy_f2c_f
  type (hecmwST_local_mesh) :: hecMESHnew
  type (hecmwST_result_data):: adapRES
 
  if(adapres%nn_component .gt.0) then
    do i=1, adapres%nn_component
      in=in+adapres%nn_dof(i)
    enddo
    allocate (adapres%node_val_item(in*hecmeshnew%n_node))
    call hecmw_dlb_get_result_node(adapres%node_val_item)
  endif
  if(adapres%ne_component .gt.0) then
    do i=1, adapres%ne_component
      in=in+adapres%ne_dof(i)
    enddo
    allocate (adapres%elem_val_item(in*hecmeshnew%n_elem))
    call hecmw_dlb_get_result_elem(adapres%elem_val_item)
  endif
 
end subroutine  hecmw_dist_result_copy_c2f