00001 module def_metric_pBH
00002 use phys_constant, only : long, nnrg
00003 implicit none
00004 real(long) :: R_trpBH(0:nnrg), hR_trpBH(nnrg)
00005 real(long) :: psi_trpBH(0:nnrg), hpsi_trpBH(nnrg)
00006 real(long) :: alph_trpBH(0:nnrg), halph_trpBH(nnrg)
00007 real(long) :: bvr_trpBH(0:nnrg), hbvr_trpBH(nnrg)
00008 real(long), pointer :: wme(:,:,:), log_wme(:,:,:), log_N(:,:,:)
00009 real(long), pointer :: aij_trpBH(:,:,:,:,:), aijaij_trpBH(:,:,:)
00010 real(long), pointer :: aij_trpBH_grid(:,:,:,:,:), aijaij_trpBH_grid(:,:,:)
00011 integer, parameter :: index_wme = 2
00012 end module def_metric_pBH
