dot_product_loc Subroutine

public subroutine dot_product_loc(vec1, vec2, res)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: vec1(1:3)
double precision, intent(in) :: vec2(1:3)
double precision, intent(out) :: res

Called by

proc~~dot_product_loc~~CalledByGraph proc~dot_product_loc dot_product_loc proc~get_cor_image get_cor_image proc~get_cor_image->proc~dot_product_loc proc~get_cor_image_spherical get_cor_image_spherical proc~get_cor_image_spherical->proc~dot_product_loc proc~integrate_emission_spherical integrate_emission_spherical proc~integrate_emission_spherical->proc~dot_product_loc proc~integrate_emission_spherical->proc~get_cor_image_spherical proc~integrate_spectra_cartesian integrate_spectra_cartesian proc~integrate_spectra_cartesian->proc~dot_product_loc proc~integrate_spectra_cartesian->proc~get_cor_image proc~integrate_whitelight_spherical integrate_whitelight_spherical proc~integrate_whitelight_spherical->proc~dot_product_loc proc~integrate_whitelight_spherical->proc~get_cor_image_spherical proc~get_image get_image proc~get_image->proc~get_cor_image proc~get_image->proc~integrate_emission_spherical proc~get_image->proc~integrate_whitelight_spherical 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~get_spectrum->proc~integrate_spectra_cartesian proc~integrate_emission_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 dot_product_loc(vec1,vec2,res)
      double precision, intent(in) :: vec1(1:3),vec2(1:3)
      double precision, intent(out) :: res

      res=vec1(1)*vec2(1)+vec1(2)*vec2(2)+vec1(3)*vec2(3)

    end subroutine dot_product_loc