Lines Matching refs:NIDIM
58 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
122 READ( NIN, FMT = * )NIDIM
123 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
127 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
128 DO 10 I = 1, NIDIM
152 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
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
445 INTEGER IDIM( NIDIM )
477 DO 110 IM = 1, NIDIM
480 DO 100 IN = 1, NIDIM
492 DO 90 IK = 1, NIDIM
745 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
764 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
773 INTEGER IDIM( NIDIM )
805 DO 100 IM = 1, NIDIM
808 DO 90 IN = 1, NIDIM
1056 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1074 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1082 INTEGER IDIM( NIDIM )
1122 DO 140 IM = 1, NIDIM
1125 DO 130 IN = 1, NIDIM
1414 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1433 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1442 INTEGER IDIM( NIDIM )
1475 DO 100 IN = 1, NIDIM
1487 DO 90 IK = 1, NIDIM
1731 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1750 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1759 INTEGER IDIM( NIDIM )
1792 DO 130 IN = 1, NIDIM
1804 DO 120 IK = 1, NIDIM