00001 module def_metric_pBH_mpt
00002 use phys_constant, only : long, nnrg, nnmpt
00003 implicit none
00004 real(long) :: R_trpBH_(0:nnrg,nnmpt), hR_trpBH_(nnrg,nnmpt)
00005 real(long) :: psi_trpBH_(0:nnrg,nnmpt), hpsi_trpBH_(nnrg,nnmpt)
00006 real(long) :: alph_trpBH_(0:nnrg,nnmpt), halph_trpBH_(nnrg,nnmpt)
00007 real(long) :: bvr_trpBH_(0:nnrg,nnmpt), hbvr_trpBH_(nnrg,nnmpt)
00008 real(long), pointer :: wme_(:,:,:,:), log_wme_(:,:,:,:), log_N_(:,:,:,:)
00009 real(long), pointer :: aij_trpBH_(:,:,:,:,:,:), aijaij_trpBH_(:,:,:,:)
00010 real(long), pointer :: aij_trpBH_grid_(:,:,:,:,:,:)
00011 real(long), pointer :: aijaij_trpBH_grid_(:,:,:,:)
00012 end module def_metric_pBH_mpt
