Lines Matching defs:NKB
80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,
161 READ( NIN, FMT = * )NKB
162 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
166 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
167 DO 20 I = 1, NKB
205 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
303 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
316 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
392 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
409 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
420 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
471 NK = NKB
733 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
750 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
761 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
807 NK = NKB
1076 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1092 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1100 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1151 NK = NKB