assumed_charlen_function_2.f90 428 Bytes