get_cor_image Subroutine

public subroutine get_cor_image(x_3D, x_image)

Arguments

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

Calls

proc~~get_cor_image~~CallsGraph proc~get_cor_image get_cor_image proc~dot_product_loc dot_product_loc proc~get_cor_image->proc~dot_product_loc

Called by

proc~~get_cor_image~~CalledByGraph proc~get_cor_image get_cor_image proc~get_image get_image proc~get_image->proc~get_cor_image proc~integrate_emission_cartesian integrate_emission_cartesian proc~get_image->proc~integrate_emission_cartesian proc~get_spectrum get_spectrum proc~get_spectrum->proc~get_cor_image proc~integrate_spectra_cartesian integrate_spectra_cartesian proc~get_spectrum->proc~integrate_spectra_cartesian proc~integrate_emission_cartesian->proc~get_cor_image proc~integrate_spectra_cartesian->proc~get_cor_image proc~get_euv_image get_EUV_image proc~get_euv_image->proc~get_image proc~get_euv_spectrum get_EUV_spectrum proc~get_euv_spectrum->proc~get_spectrum 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(x_3D,x_image)
      double precision, intent(in) :: x_3D(1:3)
      double precision, intent(inout) :: x_image(1:2)
      double precision :: res,res_origin

      call dot_product_loc(x_3D,vec_xI1,res)
      call dot_product_loc(x_origin,vec_xI1,res_origin)
      x_image(1)=res-res_origin
      call dot_product_loc(x_3D,vec_xI2,res)
      call dot_product_loc(x_origin,vec_xI2,res_origin)
      x_image(2)=res-res_origin

    end subroutine get_cor_image