Lines Matching refs:NALF
65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
144 READ( NIN, FMT = * )NALF
145 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
149 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
162 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
288 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
294 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
300 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
305 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
311 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
368 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
388 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
392 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
499 DO 60 IA = 1, NALF
653 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
673 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
677 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
771 DO 60 IA = 1, NALF
932 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
953 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
957 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1044 DO 80 IA = 1, NALF
1243 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1263 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1267 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1351 DO 60 IA = 1, NALF
1575 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1596 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1601 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1701 DO 90 IA = 1, NALF