small improvement in extra_bits/external_function.f95