FUNCTION read_txt, infilename
	
    ; Get the number of lines
    nlines = FILE_LINES(infilename)
    
    OPENR, lun1, infilename, /GET_LUN
    ;Used to store a line
    tmp_str = ''
    
    ;Get columns of the input file
    READF, lun1, tmp_str
    tmp = STRSPLIT(tmp_str, COUNT = col_count)
    POINT_LUN, lun1, 0
    
    ;Allocate memory
    data = FLTARR(col_count, nlines)
    FOR i=0L,nlines-1 do begin
		READF, lun1, tmp_str
        IF ~STRCMP(tmp_str, '') THEN BEGIN
            tmp_str_split = STRSPLIT(tmp_str, /EXTRACT)
            data_line = FLOAT(tmp_str_split)
			data[*, i] = data_line
        ENDIF        
	ENDFOR
    FREE_LUN, lun1
    RETURN, data
END