00001 subroutine reset_kerr_parameter 00002 use phys_constant, only : long, pi 00003 use def_bh_parameter, only : ome_bh, mass_pBH, m_kerr, a_kerr 00004 implicit none 00005 m_kerr = mass_pBH 00006 a_kerr = ome_bh 00007 end subroutine reset_kerr_parameter
1.6.1
