Lines Matching refs:NALF
63 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
141 READ( NIN, FMT = * )NALF
142 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
146 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
159 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
308 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
322 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
336 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
344 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
350 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
364 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
426 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
447 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
451 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
558 DO 60 IA = 1, NALF
756 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
777 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
781 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
875 DO 60 IA = 1, NALF
1078 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1098 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1102 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1189 DO 80 IA = 1, NALF
1441 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1462 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1466 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1550 DO 60 IA = 1, NALF
1851 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1872 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1877 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1977 DO 90 IA = 1, NALF