W W(:,:,1,1) = 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i W(:,:,2,1) = 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.0000 + 0.3536i 0.0000 + 0.3536i 0.0000 + 0.3536i 0.0000 + 0.3536i W(:,:,3,1) = 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i -0.3536 + 0.0000i -0.3536 + 0.0000i -0.3536 + 0.0000i -0.3536 + 0.0000i W(:,:,4,1) = 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i 0.3536 + 0.0000i -0.0000 - 0.3536i -0.0000 - 0.3536i -0.0000 - 0.3536i -0.0000 - 0.3536i W(:,:,1,2) = 0.3536 + 0.0000i 0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 + 0.3266i 0.3536 + 0.0000i 0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 + 0.3266i W(:,:,2,2) = 0.3536 + 0.0000i 0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 + 0.3266i 0.0000 + 0.3536i -0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 + 0.1353i W(:,:,3,2) = 0.3536 + 0.0000i 0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 + 0.3266i -0.3536 + 0.0000i -0.3266 - 0.1353i -0.2500 - 0.2500i -0.1353 - 0.3266i W(:,:,4,2) = 0.3536 + 0.0000i 0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 + 0.3266i -0.0000 - 0.3536i 0.1353 - 0.3266i 0.2500 - 0.2500i 0.3266 - 0.1353i W(:,:,1,3) = 0.3536 + 0.0000i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i 0.3536 + 0.0000i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i W(:,:,2,3) = 0.3536 + 0.0000i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i -0.3536 + 0.0000i -0.2500 - 0.2500i W(:,:,3,3) = 0.3536 + 0.0000i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i -0.3536 + 0.0000i -0.2500 - 0.2500i -0.0000 - 0.3536i 0.2500 - 0.2500i W(:,:,4,3) = 0.3536 + 0.0000i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 - 0.2500i 0.3536 - 0.0000i 0.2500 + 0.2500i W(:,:,1,4) = 0.3536 + 0.0000i 0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 - 0.1353i 0.3536 + 0.0000i 0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 - 0.1353i W(:,:,2,4) = 0.3536 + 0.0000i 0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 - 0.1353i 0.0000 + 0.3536i -0.3266 + 0.1353i -0.2500 - 0.2500i 0.1353 - 0.3266i W(:,:,3,4) = 0.3536 + 0.0000i 0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 - 0.1353i -0.3536 + 0.0000i -0.1353 - 0.3266i 0.2500 - 0.2500i 0.3266 + 0.1353i W(:,:,4,4) = 0.3536 + 0.0000i 0.1353 + 0.3266i -0.2500 + 0.2500i -0.3266 - 0.1353i -0.0000 - 0.3536i 0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 + 0.3266i W(:,:,1,5) = 0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i 0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i W(:,:,2,5) = 0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i 0.3536 - 0.0000i W(:,:,3,5) = 0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i 0.3536 - 0.0000i 0.0000 + 0.3536i W(:,:,4,5) = 0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i -0.0000 - 0.3536i -0.0000 - 0.3536i 0.3536 - 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i W(:,:,1,6) = 0.3536 + 0.0000i -0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 - 0.1353i 0.3536 + 0.0000i -0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 - 0.1353i W(:,:,2,6) = 0.3536 + 0.0000i -0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 - 0.1353i 0.0000 + 0.3536i -0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 + 0.3266i W(:,:,3,6) = 0.3536 + 0.0000i -0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 - 0.1353i -0.3536 + 0.0000i 0.1353 - 0.3266i 0.2500 + 0.2500i -0.3266 + 0.1353i W(:,:,4,6) = 0.3536 + 0.0000i -0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 - 0.1353i -0.0000 - 0.3536i 0.3266 + 0.1353i -0.2500 + 0.2500i -0.1353 - 0.3266i W(:,:,1,7) = 0.3536 + 0.0000i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i 0.3536 + 0.0000i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i W(:,:,2,7) = 0.3536 + 0.0000i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i 0.0000 + 0.3536i -0.2500 - 0.2500i 0.3536 - 0.0000i -0.2500 + 0.2500i W(:,:,3,7) = 0.3536 + 0.0000i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i -0.3536 + 0.0000i 0.2500 - 0.2500i 0.0000 + 0.3536i -0.2500 - 0.2500i W(:,:,4,7) = 0.3536 + 0.0000i -0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i -0.0000 - 0.3536i 0.2500 + 0.2500i -0.3536 + 0.0000i 0.2500 - 0.2500i W(:,:,1,8) = 0.3536 + 0.0000i -0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 + 0.3266i 0.3536 + 0.0000i -0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 + 0.3266i W(:,:,2,8) = 0.3536 + 0.0000i -0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 + 0.3266i 0.0000 + 0.3536i -0.1353 - 0.3266i 0.2500 + 0.2500i -0.3266 - 0.1353i W(:,:,3,8) = 0.3536 + 0.0000i -0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 + 0.3266i -0.3536 + 0.0000i 0.3266 - 0.1353i -0.2500 + 0.2500i 0.1353 - 0.3266i W(:,:,4,8) = 0.3536 + 0.0000i -0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 + 0.3266i -0.0000 - 0.3536i 0.1353 + 0.3266i -0.2500 - 0.2500i 0.3266 + 0.1353i W(:,:,1,9) = 0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i 0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i W(:,:,2,9) = 0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i 0.0000 + 0.3536i -0.0000 - 0.3536i 0.0000 + 0.3536i -0.0000 - 0.3536i W(:,:,3,9) = 0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i W(:,:,4,9) = 0.3536 + 0.0000i -0.3536 + 0.0000i 0.3536 - 0.0000i -0.3536 + 0.0000i -0.0000 - 0.3536i 0.0000 + 0.3536i -0.0000 - 0.3536i 0.0000 + 0.3536i W(:,:,1,10) = 0.3536 + 0.0000i -0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 - 0.3266i 0.3536 + 0.0000i -0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 - 0.3266i W(:,:,2,10) = 0.3536 + 0.0000i -0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 - 0.3266i 0.0000 + 0.3536i 0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 - 0.1353i W(:,:,3,10) = 0.3536 + 0.0000i -0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 - 0.3266i -0.3536 + 0.0000i 0.3266 + 0.1353i -0.2500 - 0.2500i 0.1353 + 0.3266i W(:,:,4,10) = 0.3536 + 0.0000i -0.3266 - 0.1353i 0.2500 + 0.2500i -0.1353 - 0.3266i -0.0000 - 0.3536i -0.1353 + 0.3266i 0.2500 - 0.2500i -0.3266 + 0.1353i W(:,:,1,11) = 0.3536 + 0.0000i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i 0.3536 + 0.0000i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i W(:,:,2,11) = 0.3536 + 0.0000i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i -0.3536 + 0.0000i 0.2500 + 0.2500i W(:,:,3,11) = 0.3536 + 0.0000i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i -0.3536 + 0.0000i 0.2500 + 0.2500i -0.0000 - 0.3536i -0.2500 + 0.2500i W(:,:,4,11) = 0.3536 + 0.0000i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 + 0.2500i 0.3536 - 0.0000i -0.2500 - 0.2500i W(:,:,1,12) = 0.3536 + 0.0000i -0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 + 0.1353i 0.3536 + 0.0000i -0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 + 0.1353i W(:,:,2,12) = 0.3536 + 0.0000i -0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 + 0.1353i 0.0000 + 0.3536i 0.3266 - 0.1353i -0.2500 - 0.2500i -0.1353 + 0.3266i W(:,:,3,12) = 0.3536 + 0.0000i -0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 + 0.1353i -0.3536 + 0.0000i 0.1353 + 0.3266i 0.2500 - 0.2500i -0.3266 - 0.1353i W(:,:,4,12) = 0.3536 + 0.0000i -0.1353 - 0.3266i -0.2500 + 0.2500i 0.3266 + 0.1353i -0.0000 - 0.3536i -0.3266 + 0.1353i 0.2500 + 0.2500i 0.1353 - 0.3266i W(:,:,1,13) = 0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i 0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i W(:,:,2,13) = 0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i 0.0000 + 0.3536i 0.3536 - 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i W(:,:,3,13) = 0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i 0.3536 - 0.0000i -0.0000 - 0.3536i W(:,:,4,13) = 0.3536 + 0.0000i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i -0.0000 - 0.3536i -0.3536 + 0.0000i 0.0000 + 0.3536i 0.3536 - 0.0000i W(:,:,1,14) = 0.3536 + 0.0000i 0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 + 0.1353i 0.3536 + 0.0000i 0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 + 0.1353i W(:,:,2,14) = 0.3536 + 0.0000i 0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 + 0.1353i 0.0000 + 0.3536i 0.3266 + 0.1353i 0.2500 - 0.2500i -0.1353 - 0.3266i W(:,:,3,14) = 0.3536 + 0.0000i 0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 + 0.1353i -0.3536 + 0.0000i -0.1353 + 0.3266i 0.2500 + 0.2500i 0.3266 - 0.1353i W(:,:,4,14) = 0.3536 + 0.0000i 0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 + 0.1353i -0.0000 - 0.3536i -0.3266 - 0.1353i -0.2500 + 0.2500i 0.1353 + 0.3266i W(:,:,1,15) = 0.3536 + 0.0000i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i 0.3536 + 0.0000i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i W(:,:,2,15) = 0.3536 + 0.0000i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i 0.0000 + 0.3536i 0.2500 + 0.2500i 0.3536 - 0.0000i 0.2500 - 0.2500i W(:,:,3,15) = 0.3536 + 0.0000i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i -0.3536 + 0.0000i -0.2500 + 0.2500i 0.0000 + 0.3536i 0.2500 + 0.2500i W(:,:,4,15) = 0.3536 + 0.0000i 0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i -0.0000 - 0.3536i -0.2500 - 0.2500i -0.3536 + 0.0000i -0.2500 + 0.2500i W(:,:,1,16) = 0.3536 + 0.0000i 0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 - 0.3266i 0.3536 + 0.0000i 0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 - 0.3266i W(:,:,2,16) = 0.3536 + 0.0000i 0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 - 0.3266i 0.0000 + 0.3536i 0.1353 + 0.3266i 0.2500 + 0.2500i 0.3266 + 0.1353i W(:,:,3,16) = 0.3536 + 0.0000i 0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 - 0.3266i -0.3536 + 0.0000i -0.3266 + 0.1353i -0.2500 + 0.2500i -0.1353 + 0.3266i W(:,:,4,16) = 0.3536 + 0.0000i 0.3266 - 0.1353i 0.2500 - 0.2500i 0.1353 - 0.3266i -0.0000 - 0.3536i -0.1353 - 0.3266i -0.2500 - 0.2500i -0.3266 - 0.1353i diary off