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

00001 subroutine update_parameter_peos(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_peos
00005   use interface_update_parameter_triaxial_peos
00006   use interface_update_parameter_spherical_peos
00007   use interface_update_parameter_axisym_peos_drot
00008   implicit none
00009   real(8), intent(in) :: conv_den
00010 !
00011   if (nrf.ne.nrf_deform) then 
00012     if (ROT_LAW.eq.'DR'.or.ROT_LAW.eq.'OJ') then 
00013       call update_parameter_axisym_peos_drot(conv_den)
00014     else if (EQ_point.eq.'XZ') then
00015       call update_parameter_axisym_peos(conv_den)
00016     else if (EQ_point.eq.'XY') then 
00017       call update_parameter_triaxial_peos(conv_den)
00018     end if
00019   else
00020     call update_parameter_spherical_peos(conv_den)
00021   end if
00022 end subroutine update_parameter_peos

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