Restore Lukas' fixes

Author: Katharine Hyatt

ext/TensorKitAMDGPUExt/TensorKitAMDGPUExt.jl

@@ -6,13 +6,13 @@ import AMDGPU: rand as rocrand, rand! as rocrand!, randn as rocrandn, randn! as
 
 using TensorKit
 using TensorKit.Factorizations
-using TensorKit.Strided
+using Strided
+using MatrixAlgebraKit
 using MatrixAlgebraKit: AbstractAlgorithm
 using TensorKit: SectorDict, tensormaptype, scalar, similarstoragetype, AdjointTensorMap, scalartype, project_symmetric_and_check
 import TensorKit: randisometry
 using Base: rand, randn
 
-using TensorKit: MatrixAlgebraKit
 
 using Random
 

ext/TensorKitAMDGPUExt/roctensormap.jl

@@ -86,9 +86,7 @@ for randfun in (:rocrand, :rocrandn)
         end
 
         function $randfun!(rng::Random.AbstractRNG, t::ROCTensorMap)
-            for (_, b) in blocks(t)
-                $randfun!(rng, b)
-            end
+            $randfun!(rng, b.data)
             return t
         end
     end