cross Subroutine
subroutine cross(x1, x2, cr12)
@# KKRmerge: same as crospr.f - Cross product cr12 = X1 cross X2
i Inputs: i x1 :first vector to multiply i x2 :second vector to multiply o Outputs: o cr12 :cross product
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=8) | :: | x1(3) | ||||
| real(kind=8) | :: | x2(3) | ||||
| real(kind=8) | :: | cr12(3) |