Lines Matching refs:NALF
112 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
191 READ( NIN, FMT = * )NALF
192 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
196 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
209 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
328 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
334 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
340 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
345 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
408 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
432 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
539 DO 60 IA = 1, NALF
693 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
713 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
717 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
811 DO 60 IA = 1, NALF
972 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
993 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
997 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1084 DO 80 IA = 1, NALF
1283 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1303 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1307 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1391 DO 60 IA = 1, NALF
1615 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1636 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1641 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1741 DO 90 IA = 1, NALF