Update hadvppm_with_comments.f