Lines Matching refs:NIDIM
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
129 READ( NIN, FMT = * )NIDIM
130 IF( NIDIM.LT.1.OR.NIDIM.GT.NIDMAX )THEN
134 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
135 DO 10 I = 1, NIDIM
159 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
303 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
317 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
331 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
345 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
359 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
365 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
427 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
448 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
458 INTEGER IDIM( NIDIM )
491 DO 110 IM = 1, NIDIM
494 DO 100 IN = 1, NIDIM
506 DO 90 IK = 1, NIDIM
757 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
778 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
788 INTEGER IDIM( NIDIM )
822 DO 100 IM = 1, NIDIM
825 DO 90 IN = 1, NIDIM
1079 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1099 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1108 INTEGER IDIM( NIDIM )
1149 DO 140 IM = 1, NIDIM
1152 DO 130 IN = 1, NIDIM
1442 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1463 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1473 INTEGER IDIM( NIDIM )
1507 DO 100 IN = 1, NIDIM
1518 DO 90 IK = 1, NIDIM
1852 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1873 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1883 INTEGER IDIM( NIDIM )
1917 DO 130 IN = 1, NIDIM
1928 DO 120 IK = 1, NIDIM