withSvdCreateSetup :: Comm -> Mat -> (SVD -> IO a) -> IO a
withSvdCreateSetup cc oper act = withSvdCreate cc $ \s -> do
  chk0 $ svdSetOperator' s oper
  act s
withSvdCreateSetup :: Comm -> Mat -> (SVD -> IO a) -> IO a
withSvdCreateSetup cc oper act = withSvdCreate cc $ \s -> do
  chk0 $ svdSetOperator' s oper
  act s
withSvdCreateSetup cc oper act = withSvdCreate cc $ \s -> do
  chk0 $ svdSetOperator' s oper
  act s