Lines Matching refs:NIDIM
63 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
128 READ( NIN, FMT = * )NIDIM
129 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
133 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
134 DO 10 I = 1, NIDIM
158 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
308 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
322 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
336 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
344 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
350 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
364 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
426 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
447 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
457 INTEGER IDIM( NIDIM )
490 DO 110 IM = 1, NIDIM
493 DO 100 IN = 1, NIDIM
505 DO 90 IK = 1, NIDIM
756 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
777 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
787 INTEGER IDIM( NIDIM )
821 DO 100 IM = 1, NIDIM
824 DO 90 IN = 1, NIDIM
1078 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1098 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1107 INTEGER IDIM( NIDIM )
1148 DO 140 IM = 1, NIDIM
1151 DO 130 IN = 1, NIDIM
1441 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1462 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1472 INTEGER IDIM( NIDIM )
1506 DO 100 IN = 1, NIDIM
1517 DO 90 IK = 1, NIDIM
1851 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1872 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1882 INTEGER IDIM( NIDIM )
1916 DO 130 IN = 1, NIDIM
1927 DO 120 IK = 1, NIDIM