Lines Matching refs:NALF
58 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
135 READ( NIN, FMT = * )NALF
136 IF( NALF.LT.1.OR.NALF.GT.NALMAX )THEN
140 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
153 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
295 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
301 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
315 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
329 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
343 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
417 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
436 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
440 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
545 DO 60 IA = 1, NALF
745 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
764 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
768 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
860 DO 60 IA = 1, NALF
1056 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1074 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1078 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1163 DO 80 IA = 1, NALF
1414 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1433 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1437 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1518 DO 60 IA = 1, NALF
1731 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1750 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1755 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1852 DO 90 IA = 1, NALF