assumed_charlen_function_1.f90 1.96 KB