assumed_charlen_function_3.f90 1.17 KB