GREPOS: Removde debug print

sandialabs · Apr 9, 2024 · 677c290 · 677c290
1 parent b9d6d90
commit 677c290
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/packages/seacas/applications/grepos/gp_mapvar.f b/packages/seacas/applications/grepos/gp_mapvar.f
@@ -49,7 +49,6 @@ subroutine mapvar(nold, nnew, nvar, map, vars, scr)
 
       do 30 ivar = 1, nvar
         do 10 i = 1, nnew
-           write (*,*) i, map(i)
           scr(i) = vars(map(i) + nold * (ivar-1) )
  10     continue