fortran open(1000,File