How to speed up code well using open MP or open ACC

Question

I would like to take some advice on how to parse the code well below using the openMP or openACC technology. The sequence program runs for 5.6s. Tried using different pragma