cross_product Interface

public interface cross_product

Calls

interface~~cross_product~~CallsGraph interface~cross_product cross_product proc~cross_product_dble cross_product_dble interface~cross_product->proc~cross_product_dble proc~cross_product_sngl cross_product_sngl interface~cross_product->proc~cross_product_sngl

Called by

interface~~cross_product~~CalledByGraph interface~cross_product cross_product 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

Module Procedures

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 )

public function cross_product_dble(a, b)

Computes 3D cross product of double precision vectors

Arguments

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

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