anchor.diff:                  call vc_semiemp()
               case ('mamajek')
                   call log_warn('Pecaut and Mamajek only valid for MS, solar metallicity')
  -                call bc_mamajek(0.0_dp, 0.0_dp, 1, 1)
  +                call bc_mamajek(0.0_dp, 0.0_dp, 1, 1, dummy_array)
               case default
                   call log_warn('invalid bc_type in bc_init: default to marcs08')
                   call marcs(feh, afe)
  
positive.code:         integer :: i
  
          real(dp), intent(in) :: feh, afe
  
          character(len=15), intent(in) :: brand
          character(len=1), dimension(:), intent(in) :: filters
  
negative.code:             write(*, *) 'BC tables were not initialized.'
          else
              ! interpolate using 4-point lagrange interpolation
              m_bol = m_bol_sun - 2.5*logl
  
              ! hunt for Teff index
              do i = 1, n_teffs
  