Lines Matching refs:NIDIM
79 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,
146 READ( NIN, FMT = * )NIDIM
147 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
151 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
152 DO 10 I = 1, NIDIM
202 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
317 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
323 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
331 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
337 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
346 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
352 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
360 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
366 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
374 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
380 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
388 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
394 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
457 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
474 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
485 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
526 DO 120 IN = 1, NIDIM
817 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,
834 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
845 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
888 DO 110 IN = 1, NIDIM
1177 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,
1202 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1250 DO 110 IN = 1, NIDIM
1564 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1581 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1591 INTEGER IDIM( NIDIM ), INC( NINC )
1621 DO 120 IN = 1, NIDIM
1836 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1853 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1863 INTEGER IDIM( NIDIM ), INC( NINC )
1903 DO 100 IN = 1, NIDIM
2132 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2149 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
2159 INTEGER IDIM( NIDIM ), INC( NINC )
2200 DO 140 IN = 1, NIDIM