anchor.diff:  
     end subroutine
   
  -  subroutine get_filter_data(nb, wave_eff, mag_vega, mag_sun)
  -
  -    !get info about the filters
  -    implicit none
  -    integer, intent(in) :: nb
  -    double precision, dimension(nb), intent(out) :: wave_eff,mag_vega,mag_sun
  -    wave_eff = filter_leff
  -    mag_vega = magvega
  -    mag_sun = magsun
  -
  -  end subroutine
  -
     subroutine get_timefull(n_age,timefull)
   
       ! Get the actual time steps of the SSPs.
  
positive.code:        call ztinterp(zpos,spec,lbol,mass,zpow=pset%pmetals)
         call compsp(0,1,outfile,mass,lbol,spec,pset,ocompsp)
      endif
       
      
  
    end subroutine
  
    
    subroutine get_spec(ns,n_age,spec_out)
  
      ! Get the grid of spectra for the computed CSP at all ages.
  
negative.code:     
    end subroutine
  
    subroutine compute_zdep(ns,n_age,ztype)
  
      ! Compute the full CSP (and the SSPs if they aren't already cached).
  