subroutine PrintClusters ! Uses use Pattern_mod ! Calls call showPair ! Variables integer :: iwindow integer :: ipair end subroutine PrintClusters
integer :: iwindow
integer :: ipair