Lines Matching refs:NIDIM
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
130 READ( NIN, FMT = * )NIDIM
131 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
135 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
136 DO 10 I = 1, NIDIM
160 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
287 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
293 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
299 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
304 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
310 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
367 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
387 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
397 INTEGER IDIM( NIDIM )
430 DO 110 IM = 1, NIDIM
433 DO 100 IN = 1, NIDIM
445 DO 90 IK = 1, NIDIM
652 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
672 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
682 INTEGER IDIM( NIDIM )
716 DO 100 IM = 1, NIDIM
719 DO 90 IN = 1, NIDIM
931 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
951 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
960 INTEGER IDIM( NIDIM )
1001 DO 140 IM = 1, NIDIM
1004 DO 130 IN = 1, NIDIM
1241 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1261 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1271 INTEGER IDIM( NIDIM )
1305 DO 100 IN = 1, NIDIM
1316 DO 90 IK = 1, NIDIM
1573 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1593 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1603 INTEGER IDIM( NIDIM )
1637 DO 130 IN = 1, NIDIM
1648 DO 120 IK = 1, NIDIM