Searched refs:lentrim4 (Results 1 – 2 of 2) sorted by relevance
172 integer :: lentrim4 = len_trim(t1_param1%str1,KIND=4) variable226 result(19) = lentrim4
399 integer :: lentrim4 = len_trim(t1_param1%str1) variable693 result(154) = lentrim4