Fortran codes