get_cor_image_spherical Subroutine

public subroutine get_cor_image_spherical(x_3D_sph, x_image)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: x_3D_sph(1:3)
double precision, intent(inout) :: x_image(1:2)

Calls

proc~~get_cor_image_spherical~~CallsGraph proc~get_cor_image_spherical get_cor_image_spherical proc~dot_product_loc dot_product_loc proc~get_cor_image_spherical->proc~dot_product_loc proc~spherical_to_cartesian spherical_to_cartesian proc~get_cor_image_spherical->proc~spherical_to_cartesian dcos dcos proc~spherical_to_cartesian->dcos dsin dsin proc~spherical_to_cartesian->dsin

Called by

proc~~get_cor_image_spherical~~CalledByGraph proc~get_cor_image_spherical get_cor_image_spherical proc~integrate_emission_spherical integrate_emission_spherical proc~integrate_emission_spherical->proc~get_cor_image_spherical proc~integrate_whitelight_spherical integrate_whitelight_spherical proc~integrate_whitelight_spherical->proc~get_cor_image_spherical proc~get_image get_image proc~get_image->proc~integrate_emission_spherical proc~get_image->proc~integrate_whitelight_spherical proc~get_euv_image get_EUV_image proc~get_euv_image->proc~get_image proc~get_sxr_image get_SXR_image proc~get_sxr_image->proc~get_image proc~get_whitelight_image get_whitelight_image proc~get_whitelight_image->proc~get_image

Source Code

    subroutine get_cor_image_spherical(x_3D_sph,x_image)
      double precision, intent(in) :: x_3D_sph(1:3)
      double precision, intent(inout) :: x_image(1:2)
      double precision :: res,res_origin
      double precision :: x_3D(1:3)

      call spherical_to_cartesian(x_3D_sph,x_3D)
      call dot_product_loc(x_3D,vec_xI1,res)
      x_image(1)=res
      call dot_product_loc(x_3D,vec_xI2,res)
      x_image(2)=res

    end subroutine get_cor_image_spherical