blob: 17b7b3ba1d95c42cbc8eeba7a47e5d2adf6780d0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
.help vn Jun99 "Slalib Package"
.nf
SUBROUTINE slVN (V, UV, VM)
- - -
V N
- - -
Normalizes a 3-vector also giving the modulus (single precision)
Given:
V real(3) vector
Returned:
UV real(3) unit vector in direction of V
VM real modulus of V
If the modulus of V is zero, UV is set to zero as well
P.T.Wallace Starlink 23 November 1995
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
