/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_msec_BNS_iterqt_from_mpt.f90

Go to the documentation of this file.

subroutine copy_msec_BNS_iterqt_from_mpt(x_vector,sw_master)
  use phys_constant, only : long
  use grid_parameter_mpt
  use def_quantities_mpt
  use def_matter_parameter_mpt
  use def_binary_parameter_mpt
  implicit none
  real(long), pointer :: x_vector(:)
  character(3), intent(in) :: sw_master
  real(long) :: emdc1, emdc2, rsf1, rsf2, dist1

  emdc1 = def_quantities_real_(49,1)
  emdc2 = def_quantities_real_(49,2)
  rsf1  = surf_param_real_(1,1)   !r_surf
  rsf2  = surf_param_real_(1,2)   
  dist1 = dis_(1) 

  select case (sw_master)
    case ("010", "030", "050")
      x_vector(1) = emdc1
    case ("020", "040", "060")
      x_vector(1) = dist1
      x_vector(2) = emdc1
      x_vector(3) = rsf2
      x_vector(4) = emdc2
    case ("110", "130", "150", "210", "230", "250")
      x_vector(1) = rsf1
      x_vector(2) = emdc1       
    case ("120", "140", "160", "220", "240", "260")
      x_vector(1) = rsf1
      x_vector(2) = dist1
      x_vector(3) = emdc1 
      x_vector(4) = rsf2 
      x_vector(5) = emdc2  
  end select

!  call copy_def_matter_parameter_from_mpt(1)
!  x_vector(1) = emdc
!  call copy_def_matter_parameter_from_mpt(2)
!  x_vector(2) = emdc
!  call copy_def_binary_parameter_from_mpt(1)
!  x_vector(3) = dis

!
end subroutine copy_msec_BNS_iterqt_from_mpt

---