subroutine sub22x(n) common /table1/x(100),y(100) m=n type 1000,m write (1,1000) m 1000 format(x,'........Into SUB22X from ',I2) call ohandl(m) return end subroutine dum22() return end