Lines Matching defs:NIDIM
58 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA,
123 READ( NIN, FMT = * )NIDIM
124 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
128 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
129 DO 10 I = 1, NIDIM
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
296 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
310 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
324 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
338 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
344 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
352 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
418 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
436 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
445 INTEGER IDIM( NIDIM )
477 DO 110 IM = 1, NIDIM
480 DO 100 IN = 1, NIDIM
492 DO 90 IK = 1, NIDIM
742 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
760 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
769 INTEGER IDIM( NIDIM )
801 DO 100 IM = 1, NIDIM
804 DO 90 IN = 1, NIDIM
1052 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1070 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1078 INTEGER IDIM( NIDIM )
1118 DO 140 IM = 1, NIDIM
1121 DO 130 IN = 1, NIDIM
1410 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1437 INTEGER IDIM( NIDIM )
1470 DO 100 IN = 1, NIDIM
1482 DO 90 IK = 1, NIDIM
1726 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1745 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1754 INTEGER IDIM( NIDIM )
1787 DO 130 IN = 1, NIDIM
1799 DO 120 IK = 1, NIDIM