00001 subroutine copy_to_bsjy_and_sbsjy(bsjy_bc,sbsjy_bc,sbsjyp_bc)
00002 use phys_constant, only : long
00003 use grid_parameter, only : nrg, nlg
00004 use copy_array_4d
00005 use copy_array_3d
00006 use radial_green_fn_helmholtz
00007 implicit none
00008 real(long), pointer :: bsjy_bc(:,:,:,:)
00009 real(long), pointer :: sbsjy_bc(:,:,:), sbsjyp_bc(:,:,:)
00010 call copy_array4d(bsjy_bc,bsjy,1,nrg,0,nlg,0,nlg,0,nrg)
00011 call copy_array3d(sbsjy_bc,sbsjy,0,nlg,0,nlg,0,nrg)
00012 call copy_array3d(sbsjyp_bc,sbsjyp,0,nlg,0,nlg,0,nrg)
00013 end subroutine copy_to_bsjy_and_sbsjy
