Polya in fortran debugged.