bocal.f