/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_def_quantities_bh_to_mpt.f90
Go to the documentation of this file.00001 subroutine copy_def_quantities_bh_to_mpt(impt) 00002 use def_quantities_bh 00003 use def_quantities_bh_mpt 00004 implicit none 00005 integer :: i, impt 00006 ! 00007 i=0 00008 i=i+1; def_quantities_bh_(i,impt) = AHarea 00009 i=i+1; def_quantities_bh_(i,impt) = AHmass 00010 i=i+1; def_quantities_bh_(i,impt) = AHspin 00011 ! 00012 end subroutine copy_def_quantities_bh_to_mpt
