Reduce computational time of several do loops to compute a sum

Question

I would like to compute the following sum in Fortran90:

\\sum_{i,j,l,t} L_{a,i,j}L{a,l,t} \\sum_k \\alpha_k A_{i,k} A_{j,k} A_{l,k} A_{t,k}

For the last sum, I