Calculate the following Riemann tensor?

[firatdomrul]

Hi,

What code should I use to calculate the Rieman tensor?

grcalc[R[**up**,dn,dn,dn]] 

or

grcalc[R[dn,dn,dn,**up**]]

What is the Mathematica index priority? Thanks for your help.