Lines Matching refs:NIDIM
84 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,
154 READ( NIN, FMT = * )NIDIM
155 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
159 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
160 DO 10 I = 1, NIDIM
210 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
315 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
322 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
327 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
339 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
400 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
420 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
431 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
472 DO 120 IN = 1, NIDIM
746 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
766 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
777 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
820 DO 110 IN = 1, NIDIM
1095 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1115 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1123 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1171 DO 110 IN = 1, NIDIM
1457 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1478 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1488 INTEGER IDIM( NIDIM ), INC( NINC )
1520 DO 120 IN = 1, NIDIM
1735 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1756 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1766 INTEGER IDIM( NIDIM ), INC( NINC )
1806 DO 100 IN = 1, NIDIM
2020 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2041 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2051 INTEGER IDIM( NIDIM ), INC( NINC )
2092 DO 140 IN = 1, NIDIM