Lines Matching refs:NBET
59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
143 READ( NIN, FMT = * )NBET
144 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
148 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
155 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
279 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
285 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
296 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
375 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
381 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
487 DO 50 IB = 1, NBET
638 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
656 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
662 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
755 DO 50 IB = 1, NBET
1213 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1231 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1237 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1319 DO 50 IB = 1, NBET
1488 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1506 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1512 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1611 DO 80 IB = 1, NBET