smooth.spline() function between s-plus and R

[array chip <arrayprofile@yahoo.com>]

Hi, all, I found that the smooth.spline() function produces different results 
between R and S-Plus. I was trying to play different parameters of the function 
without any success. The script of the function contains Fortran code, so it 
seems impossible to port the code from S-Plus to R (or I may be wrong). Can 
anyone suggest anything so that I can produce the same result in R as in S-plus?

Thanks

John