Searched defs:no_extui (Results 1 – 1 of 1) sorted by relevance
37 subroutine no_extui(ch) subroutine38 integer, parameter :: kind = selected_char_kind('ISO_10646')39 character(*, kind), intent(in) :: ch(:)40 integer :: i, j