/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_metric_BH_WL.f90
Go to the documentation of this file.00001 subroutine allocate_metric_BH_WL 00002 use grid_parameter, only : nrg, ntg, npg 00003 use def_vector_x 00004 use def_vector_phi 00005 use def_vector_bh 00006 use def_matter, only : omeg 00007 use make_array_3d 00008 implicit none 00009 ! 00010 call allocate_metric_WL 00011 call allocate_vector_x 00012 call allocate_vector_phi 00013 call allocate_vector_bh 00014 ! 00015 call alloc_array3d(omeg, 0, nrg, 0, ntg, 0, npg) 00016 ! 00017 end subroutine allocate_metric_BH_WL
