Lines Matching defs:KB
140 INTEGER IDIM( NIDMAX ), INC( NINMAX ), KB( NKBMAX )
212 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
214 IF( KB( I ).LT.0 )THEN
251 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
342 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
348 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
355 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
431 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
459 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
516 KU = KB( IKU )
772 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
800 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
852 K = KB( IK )
1115 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1139 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1196 K = KB( IK )