simplified starting code for Fortran Funit