a <- read.delim ("diseño.csv")
d <- read.fwf ("datos", a$Long..Campo)