subroutine ShowPair ! Uses use Pattern_mod ! Calls call ShowClusterCoord ! Variables integer, INTENT(in) :: iwindow integer, INTENT(in) :: ipair type (cluster_type), INTENT(in) :: cl integer :: iclu end subroutine ShowPair
integer, INTENT(in) :: iwindow
integer, INTENT(in) :: ipair
type (cluster_type), INTENT(in) :: cl
integer :: iclu