fortran assignment that i wrote for a friend studying fortran