Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/copy_to_hgfn_and

00001 subroutine copy_to_hgfn_and_gfnsf(hgfn_bc,gfnsf_bc)
00002   use phys_constant, only  : long
00003   use grid_parameter, only : nrg, nlg
00004   use copy_array_3d
00005   use radial_green_fn_grav, only : hgfn, gfnsf
00006   implicit none
00007   real(long), pointer :: hgfn_bc(:,:,:), gfnsf_bc(:,:,:)
00008   call copy_array3d(hgfn_bc,hgfn,1,nrg,0,nlg,0,nrg)
00009   call copy_array3d(gfnsf_bc,gfnsf,0,nlg,0,nrg,1,4)
00010 end subroutine copy_to_hgfn_and_gfnsf

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