cross_product_sngl Function

public function cross_product_sngl(a, b)

Computes 3D cross product of single precision vectors

Arguments

Type IntentOptional Attributes Name
real(kind=4), intent(in), DIMENSION( 3 ) :: a
real(kind=4), intent(in), DIMENSION( 3 ) :: b

Return Value real(kind=4), DIMENSION( 3 )


Called by

proc~~cross_product_sngl~~CalledByGraph proc~cross_product_sngl cross_product_sngl interface~cross_product cross_product interface~cross_product->proc~cross_product_sngl proc~influence3dgeogaussianraycen Influence3DGeoGaussianRayCen proc~influence3dgeogaussianraycen->interface~cross_product proc~influence3dgeohatraycen Influence3DGeoHatRayCen proc~influence3dgeohatraycen->interface~cross_product proc~reflect3d Reflect3D proc~reflect3d->interface~cross_product proc~step3d Step3D proc~step3d->interface~cross_product proc~bellhopcore BellhopCore proc~bellhopcore->proc~influence3dgeogaussianraycen proc~bellhopcore->proc~influence3dgeohatraycen proc~traceray3d TraceRay3D proc~bellhopcore->proc~traceray3d proc~traceray3d->proc~reflect3d proc~traceray3d->proc~step3d program~bellhop3d BELLHOP3D program~bellhop3d->proc~bellhopcore

Source Code

  FUNCTION cross_product_sngl( a, b )
    !! Computes 3D cross product of single precision vectors

    REAL (KIND=4), DIMENSION( 3 ) :: cross_product_sngl
    REAL (KIND=4), DIMENSION( 3 ), INTENT(  IN ) :: a, b

    cross_product_sngl( 1 ) = a( 2 ) * b( 3 ) - a( 3 ) * b( 2 )
    cross_product_sngl( 2 ) = a( 3 ) * b( 1 ) - a( 1 ) * b( 3 )
    cross_product_sngl( 3 ) = a( 1 ) * b( 2 ) - a( 2 ) * b( 1 )

  END FUNCTION cross_product_sngl