D | cblat2.f | 98 INTEGER IDIM( NIDMAX ), INC( NINMAX ), KB( NKBMAX ) variable 171 READ( NIN, FMT = * )( KB( I ), I = 1, NKB ) 173 IF( KB( I ).LT.0 )THEN 210 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB ) 308 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, 314 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, 321 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, 399 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument 429 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB ) local 487 KU = KB( IKU ) [all …]
|