Added re-done version of the code in fortran