V3FIT
LIBSTELL
Sources
Miscel
multxy.f
1
SUBROUTINE
multxy(x,y,n)
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)
:: x, y
9
c-----------------------------------------------
10
11
x = x * y
12
13
END SUBROUTINE
multxy
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17