withSvdCreateSetupSolve :: Comm -> Mat -> (SVD -> IO a) -> IO a
withSvdCreateSetupSolve cc oper postsolve = withSvdCreateSetup cc oper $ \s -> do
  chk0 $ svdSolve' s
  postsolve s
withSvdCreateSetupSolve :: Comm -> Mat -> (SVD -> IO a) -> IO a
withSvdCreateSetupSolve cc oper postsolve = withSvdCreateSetup cc oper $ \s -> do
  chk0 $ svdSolve' s
  postsolve s
withSvdCreateSetupSolve cc oper postsolve = withSvdCreateSetup cc oper $ \s -> do
  chk0 $ svdSolve' s
  postsolve s