00001 module def_quantities_bh 00002 use phys_constant, only : long 00003 implicit none 00004 ! -- quantities for BH 00005 real(long) :: AHarea, AHmass, AHspin 00006 ! 00007 end module def_quantities_bh