Problem with function

I found the function ShahST(G) in an old book about energy transfer systems. However when I want to use it I get an error. For the moment I seem to be unable to detect the cause. Would anyone be willing to have a look at it? Thanks