updated extra_bits/character_arrays.f to f95