anchor.diff:          logical, intent(in) :: restart
           integer, intent(out) :: ierr
           type (star_info), pointer :: s
  -        real(dp) :: core_ov_full_on, core_ov_full_off, frac, rot_full_off, rot_full_on, frac2, vct30, vct100
  +        real(dp) :: frac, vct30, vct100
           ierr = 0
           call star_ptr(id, s, ierr)
           if (ierr /= 0) return
  
positive.code:         
      integer function extras_finish_step(id, id_extra)
          integer, intent(in) :: id, id_extra
          integer :: ierr, r, burn_category
          real(dp) :: envelope_mass_fraction, L_He, L_tot, min_center_h1_for_diff, critmass, feh
          real(dp) :: category_factors(num_categories)
          real(dp), parameter :: huge_dt_limit = 3.15d16 ! ~1 Gyr
          real(dp), parameter :: new_varcontrol_target = 1d-3
          real(dp), parameter :: Zsol = 0.0142
          type (star_info), pointer :: s
          type (Net_General_Info), pointer :: g
  	    logical :: diff_test1, diff_test2, diff_test3
          character (len=strlen) :: photoname
          
  
negative.code:         else
              call unpack_extra_info(s)
          end if
                        
  ! set VARCONTROL: for massive stars, turn up varcontrol gradually to help them evolve
          vct30 = 1e-4
          vct100 = 3e-3
  