PRO RD_FICPOINT, FILE, TAB

    GET_LUN, UNIT
    OPENR, Unit, File
A=''
LIG = 0
    WHILE NOT EOF(Unit) DO BEGIN
        READF, Unit, A 
        Lig = Lig + 1
    END
    CLOSE, Unit

    TAB = STRARR(Lig)

    OPENR, Unit, File

    READF, Unit, TAB
    FREE_LUN,Unit

END