Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/update_parameter_BNS

00001 subroutine update_parameter_BNS_spin(conv_den)
00002   use grid_parameter, only : EQ_point, nrf_deform, nrf
00003   use def_matter_parameter, only : ROT_LAW
00004   use interface_update_parameter_BNS_peos_spin
00005   use interface_update_parameter_axisym_peos
00006   use interface_update_parameter_triaxial_peos
00007   use interface_update_parameter_spherical_peos
00008   use interface_update_parameter_axisym_peos_drot
00009   implicit none
00010   real(8), intent(in) :: conv_den
00011   if (ROT_LAW.eq.'DR') then 
00012     call update_parameter_axisym_peos_drot(conv_den)
00013   else 
00014     call update_parameter_BNS_peos_spin(conv_den)
00015 
00016 !    if (EQ_point.eq.'XZ'.and.nrf.ne.nrf_deform) &
00017 !    &                     call update_parameter_axisym_peos(conv_den)
00018 !    if (EQ_point.eq.'XY') call update_parameter_triaxial_peos(conv_den)
00019 !    if (EQ_point.eq.'XZ'.and.nrf.eq.nrf_deform) &
00020 !    &                     call update_parameter_spherical_peos(conv_den)
00021   end if
00022 end subroutine update_parameter_BNS_spin

/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/update_parameter_BNS_spin.f90