fscanf(fp,%lf,L i);