assumed_charlen_function_1.f90 1.92 KB