Lines Matching refs:NALF
80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
187 READ( NIN, FMT = * )NALF
188 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
192 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
207 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
303 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
321 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
327 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
392 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
409 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
414 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
533 DO 60 IA = 1, NALF
733 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
750 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
755 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
862 DO 60 IA = 1, NALF
1433 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1450 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1454 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1537 DO 80 IA = 1, NALF
1694 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1711 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1715 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1792 DO 70 IA = 1, NALF
1972 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1989 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1993 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2085 DO 100 IA = 1, NALF