Armstrong Numbers - Fortran | SlaveCode