V3FIT
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