Lines Matching refs:n
9 integer , intent(in) :: n local
10 real(kind=8) , intent(inout) :: F(0:n+1,0:n+1,0:n+1)
11 real(kind=8) , intent(in) :: x(n,n,n)
12 real(kind=8) , intent(inout) :: y(n,n,n)
14 F(1:n,1:n,1:n) = x
16 y(:,:,:) = 6.0 * F(1:n,1:n,1:n) &
17 - F(0:n-1,1:n,1:n) &
18 - F(2:n+1,1:n,1:n) &
19 - F(1:n,0:n-1,1:n) &
20 - F(1:n,2:n+1,1:n) &
21 - F(1:n,1:n,0:n-1) &
22 - F(1:n,1:n,2:n+1)