Fix extra space after goto

ralna · Aug 23, 2024 · bb8cc92 · bb8cc92
1 parent 4a0a722
commit bb8cc92
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ssids/gpu/factor.f90 b/src/ssids/gpu/factor.f90
@@ -97,7 +97,7 @@ subroutine parfactor(pos_def, child_ptr, child_list, n, nptr, gpu_nlist,    &
     ! Determine level structure
     allocate(stream_data%lvllist(nnodes), &
          stream_data%lvlptr(nnodes + 1), stat=stats%st)
-    if (stats%st .ne. 0) goto  100
+    if (stats%st .ne. 0) goto 100
     call assign_nodes_to_levels(nnodes, sparent, gpu_contribs, &
          stream_data%num_levels, stream_data%lvlptr, stream_data%lvllist, stats%st)
     if (stats%st .ne. 0) goto 100