/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/copy_hgfn_dd_to_hgfn.f90

Go to the documentation of this file.

subroutine copy_hgfn_dd_to_hgfn
  use grid_parameter, only : nrg, nlg
  use copy_array_3d
  use radial_green_fn_grav, only : hgfn, gfnsf
  use radial_green_fn_grav_bhex_dd, only : hgfn_dd, gfnsf_dd
  implicit none
  call copy_array3d(hgfn_dd,hgfn,1,nrg,0,nlg,0,nrg)
  call copy_array3d(gfnsf_dd,gfnsf,0,nlg,0,nrg,1,4)
end subroutine copy_hgfn_dd_to_hgfn

---