extern fint mtbsr_c(fint *,fint *);