diff --git a/sammy/src/npv/mnpv9.f b/sammy/src/npv/mnpv9.f
index b4f2e7556264c99e696a202114609d420a814cf0..adbe8d423da2e3483938c6ef88b342390a16611b 100644
--- a/sammy/src/npv/mnpv9.f
+++ b/sammy/src/npv/mnpv9.f
@@ -71,8 +71,8 @@ C        (  A(Iwdasi), A_Iwdbsi ) ->    A_Igx
          DO I=1,N
             A(Ith + I -1) =  A(Iwsigx + I -1)
          END DO
-         CALL Reorg ( A_Igx,  A(Iwdasi), A_Iwdbsi , Kdat)
       end if
+      CALL Reorg ( A_Igx,  A(Iwdasi), A_Iwdbsi , Kdat)
 C
 C
       IF (Ksolve.NE.2 .OR. Nfpall.GT.Nvpall) THEN