Update b_field.f