00001 subroutine printout_physq_console
00002 use def_matter, only : emd
00003 use def_matter_parameter, only : ome, radi
00004 use def_quantities
00005 implicit none
00006
00007 write (6,'(a20,1p,e14.6)') ' Omega M and ome = ', ome/radi*gravmass_sph
00008 write (6,'(a20,1p,e14.6)') ' Radius in x-axis = ', radi
00009 write (6,'(a20,1p,e14.6)') ' (p/rho)_c = ', emd(0,0,0)
00010 write (6,'(a20,1p,e14.6)') ' Rest mass = ', restmass
00011 write (6,'(a20,1p,e14.6)') ' ADM mass = ', admmass
00012 write (6,'(a20,1p,e14.6)') ' Komar mass = ', komarmass
00013 write (6,'(a20,1p,e14.6)') ' Angular momentum = ', angmom
00014 write (6,'(a20,1p,e14.6)') ' Charge = ', charge
00015 write (6,'(a20,1p,e14.6)') ' T/|W| = ', ToverW
00016 end subroutine printout_physq_console
