homework3 without fortan part