Lines Matching full:idim
79 INTEGER IDIM( NIDMAX )
136 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
138 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
161 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
288 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
294 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
300 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
305 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
311 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
368 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
398 INTEGER IDIM( NIDIM )
432 M = IDIM( IM )
435 N = IDIM( IN )
447 K = IDIM( IK )
653 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
683 INTEGER IDIM( NIDIM )
718 M = IDIM( IM )
721 N = IDIM( IN )
932 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
962 INTEGER IDIM( NIDIM )
1004 M = IDIM( IM )
1007 N = IDIM( IN )
1243 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1273 INTEGER IDIM( NIDIM )
1308 N = IDIM( IN )
1319 K = IDIM( IK )
1575 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1606 INTEGER IDIM( NIDIM )
1641 N = IDIM( IN )
1652 K = IDIM( IK )
