fortran scratch