/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/write_omega_last.f90
Go to the documentation of this file.00001 subroutine write_omega_last 00002 use def_bh_parameter, only : ome_bh 00003 use def_quantities 00004 use grid_parameter, only : rgin 00005 implicit none 00006 00007 open(15,file='omega_last.txt' ,status='unknown') 00008 write(15,'(1p,e10.4,1p,10e16.8)') rgin, ome_bh, admmass, komarmass, admmass_thr, & 00009 & app_hor_area_bh, irredmass, bindingene, & 00010 & angmom, angmom_thr, angmom_smarr 00011 close(15) 00012 00013 end subroutine write_omega_last
