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

00001 subroutine update_parameter_qeos(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_axisym_qeos
00005   use interface_update_parameter_triaxial_qeos
00006   use interface_update_parameter_spherical_qeos
00007   use interface_update_parameter_axisym_peos_drot
00008   implicit none
00009   real(8), intent(in) :: conv_den
00010   if (ROT_LAW.eq.'DR') then 
00011     call update_parameter_axisym_peos_drot(conv_den)
00012   else 
00013     if (EQ_point.eq.'XZ'.and.nrf.ne.nrf_deform) &
00014     &                     call update_parameter_axisym_qeos(conv_den)
00015     if (EQ_point.eq.'XY') call update_parameter_triaxial_qeos(conv_den)
00016     if (EQ_point.eq.'XZ'.and.nrf.eq.nrf_deform) &
00017     &                     call update_parameter_spherical_qeos(conv_den)
00018   end if
00019 end subroutine update_parameter_qeos

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