anchor.diff:                      let ldTrgt = trgt.LeadingDimension 
   
                       if Debug.TraceCalls then
  -                        printfn "Executing GemmBatched on stream %d with m=%d, n=%d, k=%d, ldA=%d, ldB=%d, ldTrgt=%d, \
  -                                 nSamples=%d" 
  +                        printfn "Executing GemmBatched on stream %d with m=%d, n=%d, k=%d, \
  +                                 ldA=%d, ldB=%d, ldTrgt=%d, nSamples=%d" 
                               (getStream strm).Pointer m n k ldA ldB ldTrgt a.NSamples
  -
  -                        let desiredVals = a.GetPointerArrayValues execEnv
  -                        printfn "desired pointer array values: %A" desiredVals
  -                        let valDevVar = a.GetPointerArrayDevice execEnv
  -                        let valsFromDev : CUdeviceptr [] = Array.zeroCreate desiredVals.Length
  -                        valDevVar.CopyToHost(valsFromDev)
  -                        printfn "pointer array location: %A" valDevVar.DevicePointer
  -                        printfn "pointer array values from device: %A" valsFromDev
  -
  -                        if List.ofArray desiredVals <> List.ofArray valsFromDev then
  -                            failwith "value mismatch!!!!!"
   
                       CudaSup.blas.Stream <- getStream strm
                       CudaSup.blas.GemmBatched(aOp.CudaBlasOperation, bOp.CudaBlasOperation, 
  
positive.code: 
                      if Debug.TraceCalls then
                          printfn "Initializing BLAS pointer array on stream %d" (getStream strm).Pointer
                          printfn "pointer array location: %A" ptrAryDevVar.DevicePointer
                          printfn "Values: %A" ptrAryValues
  
                  | ExecItem (ExtensionExecItem eei, strm) ->
                      eei.Execute execEnv strm
  
negative.code: 
                  previousCall <- Some call
  
                  if Debug.DisableStreams && not (Trace.isActive ()) then
                      // synchronize to make sure that CUDA errors occur here
                      try
                          CudaSup.context.Synchronize ()
                      with :? CudaException as ex ->
                          printfn "CUDA exception: %A" ex
                          match previousCall with
                          | Some pc -> printfn "Last call was %A" pc
                          | None -> ()
                          reraise()
  
          // initialize
          #if !CUDA_DUMMY
  