00001 subroutine allocate_metric_and_matter_BHNS_test
00002 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00003 use def_metric
00004 use def_matter
00005 use make_array_3d
00006 use make_array_2d
00007 implicit none
00008
00009 call alloc_array2d(rs, 0, ntf, 0, npf)
00010 call alloc_array3d(emd, 0, nrf, 0, ntf, 0, npf)
00011 call alloc_array3d(emdg, 0, nrg, 0, ntg, 0, npg)
00012 call alloc_array3d(utf, 0, nrf, 0, ntf, 0, npf)
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(bvxd, 0, nrg, 0, ntg, 0, npg)
00016 call alloc_array3d(bvyd, 0, nrg, 0, ntg, 0, npg)
00017 call alloc_array3d(bvzd, 0, nrg, 0, ntg, 0, npg)
00018
00019 end subroutine allocate_metric_and_matter_BHNS_test
