My code from FORTRAN assignment in first year Mech Eng degree