can anyone improve on this sudoku solver.
MODULE utils
IMPLICIT NONE
CONTAINS
SUBROUTINE read_puzzle(known)
! Read in the puzzle grid from puzzle.dat.
! Gives array with known numbers.
IMPLICIT NONE
INTEGER, INTENT(out) :: known(9,9)
INTEGER :: i,j,k,ierr...