/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/msec_copy_to_iter_quantities.f90
Go to the documentation of this file.00001 subroutine msec_copy_to_iter_quantities(x_vector) 00002 use phys_constant, only : long 00003 use def_bh_parameter 00004 use def_quantities 00005 use def_iter_quantities 00006 implicit none 00007 real(long), pointer :: x_vector(:) 00008 integer :: i, niq, istep 00009 ! 00010 i=0 00011 i=i+1; ome_bh = x_vector(i) 00012 i=i+1; spin_bh = x_vector(i) 00013 ! 00014 end subroutine msec_copy_to_iter_quantities
