subroutine PrintWindowHits ! Uses use det_geom_mod use Pattern_mod ! Variables type (Window_type), INTENT(in) :: w integer :: iplane integer :: iwhit integer :: i end subroutine PrintWindowHits
type (Window_type), INTENT(in) :: w
integer :: iplane
integer :: iwhit
integer :: i