source: trunk/MagicSoft/slalib/vdv.c

Last change on this file was 732, checked in by tbretz, 24 years ago
*** empty log message ***
  • Property svn:executable set to *
File size: 523 bytes
Line 
1#include "slalib.h"
2#include "slamac.h"
3float slaVdv ( float va[3], float vb[3] )
4/*
5** - - - - - - -
6** s l a V d v
7** - - - - - - -
8**
9** Scalar product of two 3-vectors.
10**
11** (single precision)
12**
13** Given:
14** va float[3] first vector
15** vb float[3] second vector
16**
17** The result is the scalar product va.vb (single precision).
18**
19** Last revision: 15 July 1993
20**
21** Copyright P.T.Wallace. All rights reserved.
22*/
23{
24 return va[0] * vb[0] + va[1] * vb[1] + va[2] * vb[2];
25}
Note: See TracBrowser for help on using the repository browser.