tweak biseps.f90