Lines Matching refs:NIDIM
112 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
178 READ( NIN, FMT = * )NIDIM
179 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
183 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
184 DO 10 I = 1, NIDIM
208 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
328 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
334 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
340 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
345 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
408 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
438 INTEGER IDIM( NIDIM )
471 DO 110 IM = 1, NIDIM
474 DO 100 IN = 1, NIDIM
486 DO 90 IK = 1, NIDIM
693 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
713 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
723 INTEGER IDIM( NIDIM )
757 DO 100 IM = 1, NIDIM
760 DO 90 IN = 1, NIDIM
972 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
993 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
1002 INTEGER IDIM( NIDIM )
1043 DO 140 IM = 1, NIDIM
1046 DO 130 IN = 1, NIDIM
1283 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1303 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1313 INTEGER IDIM( NIDIM )
1347 DO 100 IN = 1, NIDIM
1358 DO 90 IK = 1, NIDIM
1615 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1636 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1646 INTEGER IDIM( NIDIM )
1680 DO 130 IN = 1, NIDIM
1691 DO 120 IK = 1, NIDIM