Directory[]

SetDirectory["/home/maks/numerickemetode/v5"]

xyinterp = Import["InterpspF.dat", "Table"];

g1 = lPlot[xyinterp]

g2 = Plot[Log[x], {x, 0.1, 10}]

Show[g1, g2]

lPlot[matr_] := 
        Module[{g1}, 
          g1 = ListPlot[matr, DisplayFunction -> Identity, 
              Frame -> True]; 
          Show[g1, Prolog -> AbsolutePointSize[5], 
            DisplayFunction -> $DisplayFunction]];