V3FIT
Main Page
Related Pages
Modules
Modules List
Module Members
All
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
Functions/Subroutines
a
b
c
d
e
f
g
h
i
l
m
o
p
r
s
t
u
v
w
y
Variables
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
z
Data Types List
Data Types List
Data Types
Class Hierarchy
Data Fields
All
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
v
w
x
y
z
~
Functions/Subroutines
a
b
c
d
e
f
g
i
l
m
n
p
r
s
t
u
v
x
y
~
Variables
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
v
w
x
y
z
Files
File List
File Members
All
b
c
g
i
l
m
n
p
t
v
w
Functions/Subroutines
b
c
g
i
m
p
t
v
w
Variables
Enumerations
Macros
•
All
Classes
Namespaces
Files
Functions
Variables
Enumerations
Macros
Pages
LIBSTELL
Sources
Lsode
vnorm.f
1
FUNCTION
vnorm (n, v, w)
2
USE
stel_kinds
3
IMPLICIT NONE
4
C-----------------------------------------------
5
C D u m m y A r g u m e n t s
6
C-----------------------------------------------
7
INTEGER
n
8
REAL
(rprec),
DIMENSION(n)
:: v, w
9
C-----------------------------------------------
10
C L o c a l V a r i a b l e s
11
C-----------------------------------------------
12
REAL
(rprec) :: sum0, vnorm
13
C-----------------------------------------------
14
clll. optimize
15
c-----------------------------------------------------------------------
16
c this function routine computes the weighted root-mean-square norm
17
c of the vector of length n contained in the array v, with weights
18
c contained in the array w of length n..
19
c vnorm = SQRT( (1/n) * SUM( v(i)*w(i) )**2 )
20
c-----------------------------------------------------------------------
21
sum0 = sum((v*w)**2)
22
vnorm = sqrt(sum0/(n))
23
24
END FUNCTION
vnorm
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17
1.8.17
