--- dvvpst.f90.orig
+++ dvvpst.f90
@@ -924,7 +924,7 @@
     idimt  = 1
     ientla = 0
 
-    iii = nvlsta-nvlsts
+!    iii = nvlsta-nvlsts
 
     do icla  = 0, nbclst
 
@@ -938,20 +938,20 @@
         ilpd1  = icla*nvlsta +ilpd
         iflu   = 0
 
-        if (ivarl.le.iii) then
+!        if (ivarl.le.iii) then
           if (ivarl.eq.ivarl1) then
             name80 = nomlag(ivarl)
           else
             WRITE(NAME80,'(A8,A4,I3)') NOMLAG(IVARL),'_grp',ICLA
           endif
-        else if (nvlsts.gt.0) then
-          if (ivarl.eq.ivarl1) then
-            name80 = nomlag(ilvu(ivarl-iii))
-          else
-            WRITE(NAME80,'(A8,A4,I3)')                            &
-                 NOMLAG(ILVU(IVARL-III)),'_grp',ICLA
-          endif
-        endif
+!        else if (nvlsts.gt.0) then
+!          if (ivarl.eq.ivarl1) then
+!            name80 = nomlag(ilvu(ivarl-iii))
+!          else
+!            WRITE(NAME80,'(A8,A4,I3)')                            &
+!                 NOMLAG(ILVU(IVARL-III)),'_grp',ICLA
+!          endif
+!        endif
 
         namevr = name80(1:32)
 
@@ -986,20 +986,20 @@
         ilpd1  = icla*nvlsta +ilpd
         iflu   = 1
 
-        if (ivarl.le.iii) then
+!        if (ivarl.le.iii) then
           if (ivarl.eq.ivarl1) then
             name80 = nomlav(ivarl)
           else
             WRITE(NAME80,'(A8,A4,I3)') NOMLAV(IVARL),'_grp',ICLA
           endif
-        else if (nvlsts.gt.0) then
-          if (ivarl.eq.ivarl1) then
-            name80 = nomlav(ilvu(ivarl-iii))
-          else
-            WRITE(NAME80,'(A8,A4,I3)')                            &
-                 NOMLAV(ILVU(IVARL-III)),'_grp',ICLA
-          endif
-        endif
+!        else if (nvlsts.gt.0) then
+!          if (ivarl.eq.ivarl1) then
+!            name80 = nomlav(ilvu(ivarl-iii))
+!          else
+!            WRITE(NAME80,'(A8,A4,I3)')                            &
+!                 NOMLAV(ILVU(IVARL-III)),'_grp',ICLA
+!          endif
+!        endif
 
         namevr = name80(1:32)