Line limit tweak in Fortran

clairekope · Mar 23, 2023 · 50ee320 · 50ee320
1 parent 1d7f952
commit 50ee320
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/enzo/star_maker2.F b/src/enzo/star_maker2.F
@@ -202,7 +202,8 @@ subroutine star_maker2(nx, ny, nz,
                   divvel2 = div * div / (dx * dx)
                   curlvel2 = 2 / (dx*dx) * (dvx*dvx + dvy*dvy + dvz*dvz
      &                                    - dvy*dvz - dvx*dvz - dvy*dvx)
-                  alpha = betaprime * (divvel2+curlvel2) / (GravConst*d(i,j,k))
+                  alpha = betaprime * (divvel2+curlvel2)
+     &                  / (GravConst*d(i,j,k))
                   if (alpha .ge. 1) goto 10
                endif
 c