Fix bug in qinit from xi and yj not being declared real(kind=8)

Author: mandli

examples/advection_2d_inflow/qinit.f90

@@ -10,6 +10,7 @@ subroutine qinit(meqn,mbc,mx,my,xlower,ylower,dx,dy,q,maux,aux)
     real(kind=8), intent(in out) :: q(meqn, 1-mbc:mx+mbc, 1-mbc:my+mbc)
     real(kind=8), intent(in out) :: aux(maux, 1-mbc:mx+mbc, 1-mbc:my+mbc)
 
+    real(kind=8) :: xi, yj
     real(kind=8), external :: qtrue
 
     ! set concentration profile
@@ -21,4 +22,4 @@ subroutine qinit(meqn,mbc,mx,my,xlower,ylower,dx,dy,q,maux,aux)
         end do
     end do
 
-end subroutine qinit
+end subroutine qinit