path: root/ICH.FOR

	SUBROUTINE ICH(CH,IZV,N)
	CHARACTER CH(10)*40
	DIMENSION IZV(1)
	CALL PKURZ(3,32,IND)
	WRITE(*,1)
1	FORMAT('Vr  Zv')
	DO 10 I=1,N
	II=2*I+3
	CALL PKURZ(II,22,IND)
	WRITE(*,5)I,IZV(I),CH(I)
5	FORMAT(10X,I2,'. ',I2,1X,A40)
10	CONTINUE
	RETURN
	END