WRITESYMTABLE Subroutine

    SUBROUTINE WRITESYMTABLE(IUNIT)
        IMPLICIT NONE
        INTEGER IUNIT, I, J

        DO I = 0, NSYM - 1
            DO J = 0, NSYM - 1
                CALL WRITESYM(IUNIT, SYMTABLE(I + 1, J + 1), .FALSE.)
            end do
            write(IUNIT, *)
        end do
        IF (NSYM == 0) THEN
            write(stdout, *) "No Symmetry table found."
        end if
    END SUBROUTINE WRITESYMTABLE