fixed gengram call

Nek5000 · Mar 24, 2024 · 64a96a9 · 64a96a9
1 parent 1afe548
commit 64a96a9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/unit.f b/tests/unit.f
@@ -30,7 +30,7 @@ subroutine gramian_unit(iflag)
       param(173) = 0.
 
       call rom_setup
-      call gengram(ug,us0,ns,ldim,ips)
+      call gengram(ug,us0,ns,ldim,ips,1)
 
       call read_serial(vv,ls*ls,'tops/gu ',wk,nid)