Johan Hellsvik · 0324874c
--- a/poisson2d/f90/main.f90

+ 3

− 0

View file @ 0324874c

Open in Web IDE
+++ b/poisson2d/f90/main.f90

+ 3

− 0

View file @ 0324874c

Open in Web IDE
 @@ -39,6 +39,9 @@ program poisson2d
    real(kind=8)                                :: x
    real(kind=8)                                :: y

+    integer                                     :: ix
+    integer                                     :: iy
+
    ! Allocate memory
    allocate(v(NX, NY), f(NX, NY))