Lines Matching refs:KOUNT
35 DIMENSION NERTAB(10),LEVTAB(10),KOUNT(10)
36 SAVE MESTAB,NERTAB,LEVTAB,KOUNT,KOUNTX
39 DATA KOUNT(1),KOUNT(2),KOUNT(3),KOUNT(4),KOUNT(5),
40 1 KOUNT(6),KOUNT(7),KOUNT(8),KOUNT(9),KOUNT(10)
46 IF (KOUNT(1).EQ.0) RETURN
58 IF (KOUNT(I).EQ.0) GO TO 30
59 WRITE (IUNIT,15) MESTAB(I),NERTAB(I),LEVTAB(I),KOUNT(I)
72 70 KOUNT(I) = 0
82 IF (KOUNT(I).EQ.0) GO TO 110
94 100 KOUNT(II) = KOUNT(II) + 1
95 ICOUNT = KOUNT(II)
101 KOUNT(II) = 1