update fotran