-- -----------------------------------------------------------------------------       


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