Lines Matching refs:NBET
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
149 READ( NIN, FMT = * )NBET
150 IF( NBET.LT.1.OR.NBET.GT.NBEMAX )THEN
154 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
161 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
303 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
317 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
345 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
359 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
365 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
427 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
448 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
454 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
562 DO 50 IB = 1, NBET
757 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
778 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
784 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
879 DO 50 IB = 1, NBET
1442 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1463 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1469 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1558 DO 50 IB = 1, NBET
1852 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1873 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1879 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1981 DO 80 IB = 1, NBET