-- -----------------------------------------------------------------------------
runKernel :: Name -> Int -> Int -> String 
runKernel name threads sm = name ++ "<<<1, " ++ show threads ++ 
                            "," ++ show sm ++ ">>>(dvalues,gbase);\n"
runKernel :: Name -> Int -> Int -> String
runKernel name threads sm = name ++ "<<<1, " ++ show threads ++ 
                            "," ++ show sm ++ ">>>(dvalues,gbase);\n"
runKernel name threads sm = name ++ "<<<1, " ++ show threads ++ 
                            "," ++ show sm ++ ">>>(dvalues,gbase);\n"