subroutine ShowClusterCoord ! Uses use Pattern_mod ! Variables type (coord_type), INTENT(in) :: coord end subroutine ShowClusterCoord
type (coord_type), INTENT(in) :: coord