inversion_vec Function

public function inversion_vec(in_vec) result(out_vec)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: in_vec(3)

Return Value integer, (3)


Contents

Source Code

inversion_vec

Source Code

    function inversion_vec(in_vec) result(out_vec)
        integer, intent(in) :: in_vec(3)
        integer :: out_vec(3)

        out_vec(1:2) = nint(matmul(inv_matrix, real(in_vec(1:2))))
        out_vec(3) = in_vec(3)

    end function inversion_vec