FUNCTION Dummy_rd, filen0

;open file
   openr, unit, filen0, /get_lun
   tstr = strarr(1)
   count = -1
   REPEAT BEGIN
      count = count+1
      readf, unit, tstr      ;reads a line of string
      abc = strcompress(tstr(0),/remove_all)
      abc = strmid(abc, 0, 1)
   ENDREP UNTIL abc NE ';'
   n_dummy = count
   free_lun, unit
   RETURN, n_dummy
END