function_charlen_2.f90 684 Bytes