Lines Matching refs:NIDIM
59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
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 )
279 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
285 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
291 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
296 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
375 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
384 INTEGER IDIM( NIDIM )
416 DO 110 IM = 1, NIDIM
419 DO 100 IN = 1, NIDIM
431 DO 90 IK = 1, NIDIM
638 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
656 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
665 INTEGER IDIM( NIDIM )
697 DO 100 IM = 1, NIDIM
700 DO 90 IN = 1, NIDIM
908 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
926 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
934 INTEGER IDIM( NIDIM )
974 DO 140 IM = 1, NIDIM
977 DO 130 IN = 1, NIDIM
1213 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1231 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1240 INTEGER IDIM( NIDIM )
1273 DO 100 IN = 1, NIDIM
1285 DO 90 IK = 1, NIDIM
1488 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1506 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1515 INTEGER IDIM( NIDIM )
1548 DO 130 IN = 1, NIDIM
1560 DO 120 IK = 1, NIDIM