FUNCTION data_readin, lcfile
  readcol,lcfile,obscode,tel,tstart,tend,det,mag,magerr,format='a,i,f,f,i,f,f'

  t=where(obscode eq 'obs',nplot)
  IF nplot GT 0 THEN BEGIN 
      tel = tel[t]
      tstart = tstart[t]
      tend = tend[t]
      det = det[t]
      mag = mag[t]
      magerr = magerr[t]
  ENDIF 

  readcol,lcfile,telcode,telnum,telname,telsym,format='a,i,a,i',delimiter='_'
  
  single = create_struct('scope',0,'t',findgen(4),'detect',0,'m',0.0,'merr',0.0)
  lc = replicate(single,n_elements(tel))
  
  lc.scope = tel
  lc.t[0] = tstart
  lc.t[1] = tend
  lc.t[2] = (tstart+tend)/2.
  lc.t[3] = (tend-tstart)/2.
  lc.detect = det
  lc.m = mag
  lc.merr = magerr

  return, lc
END