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