Skip to content
Snippets Groups Projects
Commit 8e90f2a0 authored by Dirk Pleiter's avatar Dirk Pleiter
Browse files

Merge branch 'edit-poisson2d' into '2021'

Added missing variable declarations

See merge request !1
parents 58bdd141 0324874c
No related branches found
No related tags found
1 merge request!1Added missing variable declarations
...@@ -39,6 +39,9 @@ program poisson2d ...@@ -39,6 +39,9 @@ program poisson2d
real(kind=8) :: x real(kind=8) :: x
real(kind=8) :: y real(kind=8) :: y
integer :: ix
integer :: iy
! Allocate memory ! Allocate memory
allocate(v(NX, NY), f(NX, NY)) allocate(v(NX, NY), f(NX, NY))
......
...@@ -44,6 +44,10 @@ subroutine solver(v, f, nx, ny, eps, nmax) ...@@ -44,6 +44,10 @@ subroutine solver(v, f, nx, ny, eps, nmax)
real(kind=8) :: d real(kind=8) :: d
real(kind=8), dimension(:,:), allocatable :: vp real(kind=8), dimension(:,:), allocatable :: vp
integer :: ix
integer :: iy
integer :: ifail
n = 0 n = 0
e = 2.0 * eps e = 2.0 * eps
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment