Lines Matching refs:NALF
110 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
189 READ( NIN, FMT = * )NALF
190 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
194 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
207 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
326 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
332 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
338 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
343 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
349 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
406 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
426 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
430 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
537 DO 60 IA = 1, NALF
691 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
711 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
715 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
809 DO 60 IA = 1, NALF
970 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
990 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
994 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1081 DO 80 IA = 1, NALF
1280 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1300 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1304 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1388 DO 60 IA = 1, NALF
1612 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1632 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1637 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1737 DO 90 IA = 1, NALF