Lines Matching refs:NIDIM
65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
131 READ( NIN, FMT = * )NIDIM
132 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
136 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
137 DO 10 I = 1, NIDIM
161 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
288 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
294 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
300 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
305 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
311 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
368 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
388 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
398 INTEGER IDIM( NIDIM )
431 DO 110 IM = 1, NIDIM
434 DO 100 IN = 1, NIDIM
446 DO 90 IK = 1, NIDIM
653 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
673 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
683 INTEGER IDIM( NIDIM )
717 DO 100 IM = 1, NIDIM
720 DO 90 IN = 1, NIDIM
932 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
953 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
962 INTEGER IDIM( NIDIM )
1003 DO 140 IM = 1, NIDIM
1006 DO 130 IN = 1, NIDIM
1243 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1263 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1273 INTEGER IDIM( NIDIM )
1307 DO 100 IN = 1, NIDIM
1318 DO 90 IK = 1, NIDIM
1575 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1596 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1606 INTEGER IDIM( NIDIM )
1640 DO 130 IN = 1, NIDIM
1651 DO 120 IK = 1, NIDIM