00001 subroutine allocate_poisson_bbh_test
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric
00005 use def_vector_x
00006 use def_vector_phi
00007 use def_vector_bh
00008 use def_vector_irg
00009 use make_array_2d
00010 use make_array_3d
00011 implicit none
00012
00013 call alloc_array3d(psi, 0, nrg, 0, ntg, 0, npg)
00014 call alloc_array3d(alph, 0, nrg, 0, ntg, 0, npg)
00015 call alloc_array3d(alps, 0, nrg, 0, ntg, 0, npg)
00016 call alloc_array3d(bvxd, 0, nrg, 0, ntg, 0, npg)
00017 call alloc_array3d(bvyd, 0, nrg, 0, ntg, 0, npg)
00018 call alloc_array3d(bvzd, 0, nrg, 0, ntg, 0, npg)
00019 call allocate_vector_x
00020 call allocate_vector_phi
00021 call allocate_vector_bh
00022 call allocate_vector_irg
00023
00024 psi(0:nrg,0:ntg,0:npg) =1.0d0
00025 alph(0:nrg,0:ntg,0:npg)=1.0d0
00026 alps(0:nrg,0:ntg,0:npg)=1.0d0
00027
00028 end subroutine allocate_poisson_bbh_test
