V3FIT
GTOVMI
Sources
General
shiftx.f
1
FUNCTION
shiftx
(x,n,m)
2
! shift elememts of x(n) bu m ; USEful for calculating dx
3
USE
precision
4
IMPLICIT NONE
5
INTEGER
:: m, n
6
REAL
(rprec) :: x(n)
7
REAL
(rprec),
DIMENSION(n)
:: x1
8
REAL
(rprec) :: shiftx(n)
9
x1=0
10
IF
(m .eq. 0)
THEN
11
x1=x
12
ELSEIF
(m .gt. 0)
THEN
13
x1(m+1:n)=x(1:n-m)
14
x1(1:m)=x(n-m+1:n)
15
ELSE
16
x1(1:n+m)=x(1-m:n)
17
x1(n+m+1:n)=x(1:-m)
18
ENDIF
19
shiftx
=x1
20
RETURN
21
END FUNCTION
shiftx
22
23
shiftx
Definition:
mapout_nc.f:102
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17