minor style issues with labelling exit and cycle

Author: pmocz

data/star_data/zams_models/create_z2m2_y28/src/run_star_extras.f90

@@ -177,7 +177,7 @@ subroutine do_create_zams( &
             if (init_m > 1) s% mesh_delta_coeff = 0.8d0
             if (init_m > 80) s% mesh_delta_coeff = 1
 
-            if (init_m > exp10(mhi)) exit
+            if (init_m > exp10(mhi)) exit mass_loop
             do j=1, 10
                write(*, *)
             end do
@@ -196,13 +196,13 @@ subroutine do_create_zams( &
                s% job% initial_zfracs, &
                s% job% dump_missing_metals_into_heaviest, &
                .false., '', s% job% pre_ms_relax_num_steps, ierr)
-            if (failed('star_create_pre_ms_model')) exit
+            if (failed('star_create_pre_ms_model')) exit mass_loop
 
             call evolve_to_zams(s, id, ierr)
-            if (failed('evolve_to_zams')) exit 
+            if (failed('evolve_to_zams')) exit mass_loop
 
             call write_model(id, io_ms_mod, io_ms_index, ierr)             
-            if (failed('write_model')) exit  
+            if (failed('write_model')) exit mass_loop
 
          end do mass_loop
 

kap/test/src/sample_kap.f90

@@ -223,4 +223,4 @@ program sample_kap
  3    format(a28,99(a26,1x))
  4    format(i28,99(1pes26.16e3,1x))
 
-      end program
+      end program sample_kap

kap/test/src/test_kap_quietly.f90

@@ -5,5 +5,5 @@ program test_kap_quietly
 
       call Do_One(.true.)
 
-      end   
+      end program test_kap_quietly
 

mtx/private/bcyclic.f90

@@ -129,13 +129,13 @@ subroutine bcyclic_factor ( &
                return
             end if
 
-            if (nstemp == 1) exit
+            if (nstemp == 1) exit factor_cycle
 
             nstemp = (nstemp+1)/2
             nlevel = nlevel+1
             ncycle = 2*ncycle
 
-            if (nlevel > maxlevels) exit
+            if (nlevel > maxlevels) exit factor_cycle
 
          end do factor_cycle
 
@@ -222,13 +222,13 @@ subroutine bcyclic_solve ( &
                return
             end if
 
-            if (nstemp == 1) exit
+            if (nstemp == 1) exit forward_cycle
 
             nstemp = (nstemp+1)/2
             nlevel = nlevel+1
             ncycle = 2*ncycle
 
-            if (nlevel > maxlevels) exit
+            if (nlevel > maxlevels) exit forward_cycle
 
          end do forward_cycle
 
@@ -250,7 +250,7 @@ subroutine bcyclic_solve ( &
             nlevel = nlevel-1
             if (nlevel < 1) then
                ierr = -1
-               exit
+               exit back_cycle
             end if
             nstemp = nslevel(nlevel)
             call cycle_solve( &

rates/private/load_weak.f90

@@ -516,7 +516,7 @@ subroutine load_user_weak_tables(ierr)
 
         rate_loop: do
            t = token(iounit, n, i, buffer, rate_name)
-           if (t == eof_token) exit
+           if (t == eof_token) exit rate_loop
            if (t /= name_token) then
               call error; return
            end if

rates/private/rates_initialize.f90

@@ -567,7 +567,7 @@ subroutine init_raw_rates_records(ierr)
 
          rate_loop: do
             t = token(iounit, n, i, buffer, rate_name)
-            if (t == eof_token) exit
+            if (t == eof_token) exit rate_loop
             if (t /= name_token) then
                call error; return
             end if

rates/private/reaclib_input.f90

@@ -322,7 +322,7 @@ subroutine extract_rates_from_reaclib(reaclib,nreaclib,nuclides,rates,set,use_we
                l = get_nuclide_index_in_set(reaclib% species(j,i),set)
                if (l == nuclide_not_found) then
                   include_this_rate = .false.
-                  exit
+                  exit loop_over_nuclides
                else
                   pspecies(j) = l
                end if
@@ -369,7 +369,7 @@ subroutine extract_rates_from_reaclib(reaclib,nreaclib,nuclides,rates,set,use_we
                         write(*,*) 'failed to find', indx
                         call mesa_error(__FILE__,__LINE__)
                      end if
-                     cycle
+                     cycle loop_over_rates
                   end if
                end if
                count = count + 1

rates/private/reaclib_support.f90

@@ -205,7 +205,7 @@ subroutine compute_rev_ratio(rates,winvn)
                rates% inverse_coefficients(:,i) = (/-huge(1d0), 0d0/)
                rates% inverse_exp(i) = 0d0
                rates% inverse_part(:,i) = 1d0
-               cycle
+               cycle loop_over_rates
             end if
             Ni = Nin(rates% chapter(i))
             No = Nout(rates% chapter(i))

rates/public/rates_def.f90

@@ -954,7 +954,7 @@ subroutine create_skip_warnings_dict(ierr)
 
       reaction_loop: do
             t = token(iounit, n, i, buffer, string)
-            if (t == eof_token) exit
+            if (t == eof_token) exit reaction_loop
             if (t /= name_token) then
                call error; return
             end if

star/job/run_star_support.f90

@@ -208,7 +208,7 @@ logical function do_evolve_one_step(s, dbg, ierr) result(continue_evolve_loop)
             if (stop_is_requested(s)) then
                continue_evolve_loop = .false.
                result = terminate
-               exit
+               exit step_loop
             end if
 
             result = star_evolve_step(id, first_try)