diagnostics_is_on.f