subroutine KSHOWSS ! Calls call O_M call O_MIM call String_Sort ! Variables logical :: ORDER integer :: ISS character (len=50), dimension (maxss) :: ustring character (len=50), dimension (maxss) :: ostring end subroutine KSHOWSS
logical :: ORDER
integer :: ISS
character (len=50), dimension (maxss) :: ustring
character (len=50), dimension (maxss) :: ostring