anchor.diff:  
                       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
  
positive.code:                     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" 
                              (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, 
  
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
  