Lines Matching refs:IDIM
78 INTEGER IDIM( NIDMAX ) variable
135 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
137 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
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
397 INTEGER IDIM( NIDIM ) local
431 M = IDIM( IM )
434 N = IDIM( IN )
446 K = IDIM( IK )
652 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
682 INTEGER IDIM( NIDIM ) local
717 M = IDIM( IM )
720 N = IDIM( IN )
931 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
960 INTEGER IDIM( NIDIM ) local
1002 M = IDIM( IM )
1005 N = IDIM( IN )
1241 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1271 INTEGER IDIM( NIDIM ) local
1306 N = IDIM( IN )
1317 K = IDIM( IK )
1573 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1603 INTEGER IDIM( NIDIM ) local
1638 N = IDIM( IN )
1649 K = IDIM( IK )