question on the Shioda-Tate formula

Has anyone created GP-Pari code for implementing the Shioda-Tate formula 
for elliptic curves (and elliptic curves subset) ?

I was talking to a mathematician about the elliptic curve y^2 = x^3 + 
n^2*x and he suggested that I try to use the Shioda-Tate formula to 
bound the rank on the curve. I do know that the rank is >= 1 for this 
type of curve.

I currently am using ellrank(elliptic curve) to a good degree of success.

Randall