declare work1 and work2 to avoid run-time error

Nek5000 · Jul 20, 2024 · 44430e5 · 44430e5
1 parent 0d42807
commit 44430e5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/time.f b/code/time.f
@@ -267,7 +267,7 @@ subroutine post
       save icalld
       data icalld /0/
 
-      real vort(lt)
+      real vort(lt),work1(lt),work2(lt)
 
       call rom_userchk