assumed_charlen_function_4.f90 417 Bytes