Some Fortran code for those trying to understand Fortran a little more