Fortran code

I need someone to review my code and check if everything is in order. The code is with no errors but it did not give me the results i expect. So I wonder if there is something wrong with my coding.