cross_product_loc Subroutine

public subroutine cross_product_loc(vec_in1, vec_in2, vec_out)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: vec_in1(1:3)
double precision, intent(in) :: vec_in2(1:3)
double precision, intent(out) :: vec_out(1:3)

Called by

proc~~cross_product_loc~~CalledByGraph proc~cross_product_loc cross_product_loc proc~init_vectors_cartesian init_vectors_cartesian proc~init_vectors_cartesian->proc~cross_product_loc proc~init_vectors_spherical init_vectors_spherical proc~init_vectors_spherical->proc~cross_product_loc proc~get_image get_image proc~get_image->proc~init_vectors_cartesian proc~get_image->proc~init_vectors_spherical proc~get_spectrum get_spectrum proc~get_spectrum->proc~init_vectors_cartesian proc~get_spectrum->proc~init_vectors_spherical 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 cross_product_loc(vec_in1,vec_in2,vec_out)
      double precision, intent(in) :: vec_in1(1:3),vec_in2(1:3)
      double precision, intent(out) :: vec_out(1:3)

      vec_out(1)=vec_in1(2)*vec_in2(3)-vec_in1(3)*vec_in2(2)
      vec_out(2)=vec_in1(3)*vec_in2(1)-vec_in1(1)*vec_in2(3)
      vec_out(3)=vec_in1(1)*vec_in2(2)-vec_in1(2)*vec_in2(1)

    end subroutine cross_product_loc