anchor.diff:  
       calls = 1
       call search(ps, size(ps), cube, sols)
  -    call cpu_time(t1)
  -
  -    print '("Solutions:       ", i12)', sols%length
  -    print '("Calls of search: ", i12)', calls
  -    print '("Search time(s):  ", f12.3)', t1 - t0
  -    call print_cubes(sols)
  +    call finish()
   
   contains
       subroutine init_mrot(mrot)
  
positive.code:             print *, "********************************"
          end do
      end subroutine
  end program
  
negative.code:             if (sols%length <= size(sols%d, 4)) then
                  sols%d(:, :, :, sols%length) = cube
              end if
              if (one_sol) then
                  call finish()
                  stop
              end if
              return
          end if
  
  