fix

Author: wpbonelli

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