Lines Matching +full:- +full:m

3 ! $$ f2py -m bratu2df90 -c bratu2df90.f90
5 subroutine bratu2d (m, n, alpha, x, f)
6   !f2py intent(hide) :: m = shape(x,0)
8   integer                          :: m, n
10   real(kind=8), intent(in), target :: x(m,n)
11   real(kind=8), intent(inout)      :: f(m,n)
15   ! setup 5-points stencil
16   u  => x(2:m-1, 2:n-1) ! center
17   uN => x(2:m-1, 1:n-2) ! north
18   uS => x(2:m-1, 3:n  ) ! south
19   uW => x(1:m-2, 2:n-1) ! west
20   uE => x(3:m,   2:n-1) ! east
22   hx = 1.0/(m-1) ! x grid spacing
23   hy = 1.0/(n-1) ! y grid spacing
25   f(2:m-1, 2:n-1) =  &
26          (2*u - uE - uW) * (hy/hx) &
27        + (2*u - uN - uS) * (hx/hy) &
28        - alpha * exp(u)  * (hx*hy)