V3FIT
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