DLL package troubles

[Urs Wagner <wagner@itp.phys.ethz.ch>]

Hello

Who can help? I have my troubles with the dll's. The sample library 
gausssdl is loaded but the function call
to the C function gaussSeidel does not work.

Thanks

Urs

> sys.time({x1<-gaussSeidel(A,b)})         # timing the S version
Timing stopped at: 0.0159999999999982 0.0160000000005311
Problem: Couldn't find a function definition for "gaussSeidel"
Use traceback() to see the call stack
>  sys.time({x2<-.Call('gaussSeidel',A,b)}) # timing the .Call version
[1] 0 0
>  all.equal(x1,x2)                         # Should return T
Problem: Object "x1" not found
Use traceback() to see the call stack

> search()
...
[9] "sgui"                         "maps"                        
[11] "gausssdl"                     "main"