Lines Matching refs:IDIM
72 INTEGER IDIM( NIDMAX ) variable
128 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
130 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
279 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
285 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
291 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
296 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
384 INTEGER IDIM( NIDIM ) local
417 M = IDIM( IM )
420 N = IDIM( IN )
432 K = IDIM( IK )
638 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
665 INTEGER IDIM( NIDIM ) local
698 M = IDIM( IM )
701 N = IDIM( IN )
908 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
934 INTEGER IDIM( NIDIM ) local
975 M = IDIM( IM )
978 N = IDIM( IN )
1213 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1240 INTEGER IDIM( NIDIM ) local
1274 N = IDIM( IN )
1286 K = IDIM( IK )
1488 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1515 INTEGER IDIM( NIDIM ) local
1549 N = IDIM( IN )
1561 K = IDIM( IK )