[ci fpe] Fix some fpe's

Author: rjfarmer

star/private/profile_getval.f90

@@ -1130,9 +1130,9 @@ subroutine getval_for_profile(s, c, k, val, int_flag, int_val)
                val = s% eps_grav_ad(k)% val
 
             case (p_log_xm_div_delta_m)
-               val = safe_log10((s% m(1) - s% m(k))/abs(s% dt*s% mstar_dot))
+               if(abs(s% dt*s% mstar_dot) > 0) val = safe_log10((s% m(1) - s% m(k))/abs(s% dt*s% mstar_dot))
             case (p_xm_div_delta_m)
-               val = (s% m(1) - s% m(k))/abs(s% dt*s% mstar_dot)
+               if(abs(s% dt*s% mstar_dot) > 0) val = (s% m(1) - s% m(k))/abs(s% dt*s% mstar_dot)
 
             case (p_env_eps_grav)
                val = -s% gradT_sub_grada(k)*s% grav(k)*s% mstar_dot*s% Cp(k)*s% T(k) / &

star/test_suite/5M_cepheid_blue_loop/src/run_star_extras.f90

@@ -133,7 +133,13 @@ integer function extras_check_model(id)
 
          real(dp) function get_blue_logT(log_L)
             real(dp), intent(in) :: log_L
-            get_blue_logT = logT2 + (log_L - logL2)*(logT1 - logT2)/(logL1 - logL2)
+            get_blue_logT = -1d99
+            if (abs(logL1 - logL2) > 1d-10) then
+               get_blue_logT = logT2 + (log_L - logL2)*(logT1 - logT2)/(logL1 - logL2)
+            else
+               get_blue_logT = 1d-99
+            end if
+
          end function get_blue_logT
 
          real(dp) function get_red_logT(log_L)

star/test_suite/cburn_inward/src/run_star_extras.f90

@@ -271,7 +271,7 @@ subroutine extras_photo_read(id, iounit, ierr)
 
          select case (s% x_integer_ctrl(1))
          case(2)
-            read(iounit,iostat=ierr) ign_mass, ign_density, ign_co_core_mass
+            read(iounit,iostat=ierr) ign_mass, ign_density, ign_co_core_mass,flame_mass
          end select
 
        end subroutine extras_photo_read
@@ -287,7 +287,7 @@ subroutine extras_photo_write(id, iounit)
 
          select case (s% x_integer_ctrl(1))
          case(2)
-            write(iounit) ign_mass, ign_density, ign_co_core_mass
+            write(iounit) ign_mass, ign_density, ign_co_core_mass,flame_mass
          end select
 
        end subroutine extras_photo_write