updated extra_bits/external_function.f90 to f95