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