break line

Nek5000 · Mar 24, 2024 · 552f5b5 · 552f5b5
1 parent b3cda43
commit 552f5b5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/code/rom.f b/code/rom.f
@@ -1345,7 +1345,8 @@ subroutine setc(cl,fname)
                enddo
                call breduce(rtmp1,nb,1)
                do i=1,nb
-                  call setc_local(cl,rtmp1(i,1),ic1,ic2,jc1,jc2,kc1,kc2,i,j,k)
+                  call setc_local(cl,rtmp1(i,1),
+     $               ic1,ic2,jc1,jc2,kc1,kc2,i,j,k)
                   if (nid.eq.0) write (100,*) cel
                enddo
             enddo