Simple Fortran codes