...= runs(midpoint)
yrstats(updown,year,1) = totalcount
yrstats(updown,year,2) = totalrun
yrstats(updown,year,3) = mean
yrstats(updown,year,4) = median
end do
end do
write(*,fmt='(1XI4,1XI1,1XF3.0,1Xf4.0,1XF6.4,1XF2.0)') yrstats(:,:,1:4)
end subroutine...