fix

MODFLOW-USGS · Jun 27, 2024 · f7b8c52 · f7b8c52
1 parent b7ed0cb
commit f7b8c52
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Model/ParticleTracking/prt-prp.f90 b/src/Model/ParticleTracking/prt-prp.f90
@@ -413,8 +413,7 @@ subroutine release(this, ip, trelease)
     integer(I4B) :: irow, icol, ilay, icpl
     integer(I4B) :: ic, icu
     integer(I4B) :: np
-    real(DP) :: x, y, z
-    real(DP) :: xout, yout, zout
+    real(DP) :: x, y, z, xout, yout, zout
     real(DP) :: top, bot, hds
     real(DP), allocatable :: polyverts(:, :)
     character(len=LINELENGTH) :: errmsg