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

00001 subroutine update_parameter(conv_den)
00002   use grid_parameter, only : EQ_point
00003   use interface_update_parameter_axisym
00004   use interface_update_parameter_triaxial
00005   implicit none
00006   real(8), intent(in) :: conv_den
00007   if (EQ_point.eq.'XZ') call update_parameter_axisym(conv_den)
00008   if (EQ_point.eq.'XY') call update_parameter_triaxial(conv_den)
00009 end subroutine update_parameter

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