hecmw_transfer_result_c.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_f2c(adapRES)
  use   hecmw_util
  use   hecmw_result
  use   hecmw_io
  use   hecmw_dist_copy_f2c_f
  type (hecmwST_result_data):: adapRES
 
 
 
  if(adapres%nn_component .gt.0) then
    call  hecmw_set_result_node(adapres%nn_component,adapres%nn_dof,adapres%node_label, &
      adapres%node_val_item)
    deallocate (adapres%node_val_item)
  endif
  if(adapres%ne_component .gt.0) then
    call  hecmw_set_result_elem(adapres%ne_component,adapres%ne_dof, adapres%elem_label, &
      adapres%elem_val_item)
    deallocate (adapres%elem_val_item)
  endif
 
end subroutine  hecmw_dist_result_copy_f2c