Home
last modified time | relevance | path

Searched refs:NELT (Results 1 – 25 of 378) sorted by relevance

12345678910>>...16

/dports/math/slatec/
H A Ddrmgen.f116 NELT = 0
134 NELT = NELT + 1
140 JA(NELT) = ICOL
150 NELT = NELT + 1
156 JA(NELT) = IA(NELT-1)
157 A(NELT) = A(NELT-1)*FACTOR
158 DSUM(JA(NELT)) = DSUM(JA(NELT)) + A(NELT)
160 DSUM(IA(NELT)) = DSUM(IA(NELT)) + A(NELT)
168 NELT = NELT + 1
174 A(NELT) = 0.0D0
[all …]
H A Dsrmgen.f116 NELT = 0
134 NELT = NELT + 1
140 JA(NELT) = ICOL
150 NELT = NELT + 1
156 JA(NELT) = IA(NELT-1)
157 A(NELT) = A(NELT-1)*FACTOR
158 DSUM(JA(NELT)) = DSUM(JA(NELT)) + A(NELT)
160 DSUM(IA(NELT)) = DSUM(IA(NELT)) + A(NELT)
168 NELT = NELT + 1
174 A(NELT) = 0.0E0
[all …]
H A Dslapqc.f157 CALL SRMGEN( NELTMX, FACTOR, IERR, N, NELT,
165 DENS = REAL(NELT)/(N*N)
167 DENS = REAL(2*NELT)/(N*N)
170 WRITE(LUN,1020) N, NELT, DENS
177 CALL SS2Y( N, NELT, IA, JA, A, ISYM )
194 CALL SSJAC(N, F, XITER, NELT, IA, JA, A, ISYM,
207 CALL SSGS(N, F, XITER, NELT, IA, JA, A, ISYM,
343 CALL SSDOMN(N, F, XITER, NELT, IA, JA, A,
359 CALL SSLUOM(N, F, XITER, NELT, IA, JA, A,
376 CALL SSDGMR(N, F, XITER, NELT, IA, JA, A,
[all …]
H A Ddlapqc.f156 CALL DRMGEN( NELTMX, FACTOR, IERR, N, NELT,
164 DENS = REAL(NELT)/(N*N)
166 DENS = REAL(2*NELT)/(N*N)
169 WRITE(LUN,1020) N, NELT, DENS
176 CALL DS2Y( N, NELT, IA, JA, A, ISYM )
193 CALL DSJAC(N, F, XITER, NELT, IA, JA, A, ISYM,
206 CALL DSGS(N, F, XITER, NELT, IA, JA, A, ISYM,
342 CALL DSDOMN(N, F, XITER, NELT, IA, JA, A,
358 CALL DSLUOM(N, F, XITER, NELT, IA, JA, A,
375 CALL DSDGMR(N, F, XITER, NELT, IA, JA, A,
[all …]
/dports/math/mumps/mumps-5.1.2/src/
H A Dcana_aux_ELT.F158 CALL CMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR,
163 CALL CMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
167 CALL CMUMPS_ANA_G11_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
179 CALL CMUMPS_ANA_G2_ELT(N, NELT, ELTPTR(NELT+1)-1,
184 CALL CMUMPS_ANA_G12_ELT(N, NELT, ELTPTR(NELT+1)-1,
215 CALL CMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
225 CALL CMUMPS_ANA_G2_ELTNEW(N, NELT, ELTPTR(NELT+1)-1,
311 CALL CMUMPS_ANA_J1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
321 CALL CMUMPS_ANA_J2_ELT(N, NELT, ELTPTR(NELT+1)-1,
732 INTEGER(8) :: PTRAIW( NELT+1 ), PTRARW( NELT+1 )
[all …]
H A Dzana_aux_ELT.F158 CALL ZMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR,
163 CALL ZMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
167 CALL ZMUMPS_ANA_G11_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
179 CALL ZMUMPS_ANA_G2_ELT(N, NELT, ELTPTR(NELT+1)-1,
184 CALL ZMUMPS_ANA_G12_ELT(N, NELT, ELTPTR(NELT+1)-1,
215 CALL ZMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
225 CALL ZMUMPS_ANA_G2_ELTNEW(N, NELT, ELTPTR(NELT+1)-1,
311 CALL ZMUMPS_ANA_J1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
321 CALL ZMUMPS_ANA_J2_ELT(N, NELT, ELTPTR(NELT+1)-1,
732 INTEGER(8) :: PTRAIW( NELT+1 ), PTRARW( NELT+1 )
[all …]
H A Dsana_aux_ELT.F158 CALL SMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR,
163 CALL SMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
167 CALL SMUMPS_ANA_G11_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
179 CALL SMUMPS_ANA_G2_ELT(N, NELT, ELTPTR(NELT+1)-1,
184 CALL SMUMPS_ANA_G12_ELT(N, NELT, ELTPTR(NELT+1)-1,
215 CALL SMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
225 CALL SMUMPS_ANA_G2_ELTNEW(N, NELT, ELTPTR(NELT+1)-1,
311 CALL SMUMPS_ANA_J1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
321 CALL SMUMPS_ANA_J2_ELT(N, NELT, ELTPTR(NELT+1)-1,
732 INTEGER(8) :: PTRAIW( NELT+1 ), PTRARW( NELT+1 )
[all …]
H A Ddana_aux_ELT.F158 CALL DMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR,
163 CALL DMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
167 CALL DMUMPS_ANA_G11_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
179 CALL DMUMPS_ANA_G2_ELT(N, NELT, ELTPTR(NELT+1)-1,
184 CALL DMUMPS_ANA_G12_ELT(N, NELT, ELTPTR(NELT+1)-1,
215 CALL DMUMPS_ANA_G1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
225 CALL DMUMPS_ANA_G2_ELTNEW(N, NELT, ELTPTR(NELT+1)-1,
311 CALL DMUMPS_ANA_J1_ELT(N, NZ8, NELT, ELTPTR(NELT+1)-1,
321 CALL DMUMPS_ANA_J2_ELT(N, NELT, ELTPTR(NELT+1)-1,
732 INTEGER(8) :: PTRAIW( NELT+1 ), PTRARW( NELT+1 )
[all …]
/dports/math/slatec/src/
H A Dstin.f2 SUBROUTINE STIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
130 INTEGER ISYM, IUNIT, JOB, N, NELT
132 REAL A(NELT), RHS(N), SOLN(N)
133 INTEGER IA(NELT), JA(NELT)
142 NELTMX = NELT
143 READ(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
144 NELT = MIN( NELT, NELTMX )
147 DO 10 I = 1, NELT
H A Ddtin.f2 SUBROUTINE DTIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
131 INTEGER ISYM, IUNIT, JOB, N, NELT
133 DOUBLE PRECISION A(NELT), RHS(N), SOLN(N)
134 INTEGER IA(NELT), JA(NELT)
143 NELTMX = NELT
144 READ(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
145 NELT = MIN( NELT, NELTMX )
148 DO 10 I = 1, NELT
H A Ddir.f2 SUBROUTINE DIR (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE, argument
260 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
262 DOUBLE PRECISION A(NELT), B(N), DZ(N), R(N), RWORK(*), X(N), Z(N)
263 INTEGER IA(NELT), IWORK(*), JA(NELT)
291 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
295 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
297 IF( ISDIR(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
312 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
316 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
319 IF( ISDIR(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
H A Dssiccg.f2 SUBROUTINE SSICCG (N, B, X, NELT, IA, JA, A, ISYM, ITOL, TOL, argument
239 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, LENIW, LENW, N, NELT
241 REAL A(NELT), B(N), RWORK(LENW), X(N)
242 INTEGER IA(NELT), IWORK(LENIW), JA(NELT)
252 IF( N.LT.1 .OR. NELT.LT.1 ) THEN
258 CALL SS2Y( N, NELT, IA, JA, A, ISYM )
263 NL = (NELT + N)/2
265 NL = NELT
294 CALL SSICS(N, NELT, IA, JA, A, ISYM, NL, IWORK(LOCIEL),
307 CALL SCG(N, B, X, NELT, IA, JA, A, ISYM, SSMV, SSLLTI,
H A Dsir.f2 SUBROUTINE SIR (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE, argument
260 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
262 REAL A(NELT), B(N), DZ(N), R(N), RWORK(*), X(N), Z(N)
263 INTEGER IA(NELT), IWORK(*), JA(NELT)
291 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
295 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
297 IF( ISSIR(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
312 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
316 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
319 IF( ISSIR(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
H A Ddsiccg.f2 SUBROUTINE DSICCG (N, B, X, NELT, IA, JA, A, ISYM, ITOL, TOL, argument
241 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, LENIW, LENW, N, NELT
243 DOUBLE PRECISION A(NELT), B(N), RWORK(LENW), X(N)
244 INTEGER IA(NELT), IWORK(LENIW), JA(NELT)
254 IF( N.LT.1 .OR. NELT.LT.1 ) THEN
260 CALL DS2Y( N, NELT, IA, JA, A, ISYM )
265 NL = (NELT + N)/2
267 NL = NELT
296 CALL DSICS(N, NELT, IA, JA, A, ISYM, NL, IWORK(LOCIEL),
309 CALL DCG(N, B, X, NELT, IA, JA, A, ISYM, DSMV, DSLLTI,
H A Dss2y.f2 SUBROUTINE SS2Y (N, NELT, IA, JA, A, ISYM) argument
126 INTEGER ISYM, N, NELT
128 REAL A(NELT)
129 INTEGER IA(NELT), JA(NELT)
140 IF( JA(N+1).EQ.NELT+1 ) RETURN
145 CALL QS2I1R( JA, IA, A, NELT, 1 )
154 DO 10 J = JA(ICOL)+1, NELT
161 JA(N+1) = NELT+1
H A Dds2y.f2 SUBROUTINE DS2Y (N, NELT, IA, JA, A, ISYM) argument
127 INTEGER ISYM, N, NELT
129 DOUBLE PRECISION A(NELT)
130 INTEGER IA(NELT), JA(NELT)
141 IF( JA(N+1).EQ.NELT+1 ) RETURN
146 CALL QS2I1D( JA, IA, A, NELT, 1 )
155 DO 10 J = JA(ICOL)+1, NELT
162 JA(N+1) = NELT+1
H A Dsbcg.f2 SUBROUTINE SBCG (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MTTVEC, argument
268 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
270 REAL A(NELT), B(N), DZ(N), P(N), PP(N), R(N), RR(N), RWORK(*),
272 INTEGER IA(NELT), IWORK(*), JA(NELT)
306 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
311 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
312 CALL MTSOLV(N, RR, ZZ, NELT, IA, JA, A, ISYM, RWORK, IWORK)
314 IF( ISSBCG(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
345 CALL MATVEC(N, P, Z, NELT, IA, JA, A, ISYM)
354 CALL MTTVEC(N, PP, ZZ, NELT, IA, JA, A, ISYM)
[all …]
H A Ddbcg.f2 SUBROUTINE DBCG (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MTTVEC, argument
269 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
273 INTEGER IA(NELT), IWORK(*), JA(NELT)
308 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
313 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
314 CALL MTSOLV(N, RR, ZZ, NELT, IA, JA, A, ISYM, RWORK, IWORK)
316 IF( ISDBCG(N, B, X, NELT, IA, JA, A, ISYM, MSOLVE, ITOL, TOL,
347 CALL MATVEC(N, P, Z, NELT, IA, JA, A, ISYM)
356 CALL MTTVEC(N, PP, ZZ, NELT, IA, JA, A, ISYM)
358 CALL MSOLVE(N, R, Z, NELT, IA, JA, A, ISYM, RWORK, IWORK)
[all …]
H A Dss2lt.f2 SUBROUTINE SS2LT (N, NELT, IA, JA, A, ISYM, NEL, IEL, JEL, EL) argument
95 INTEGER ISYM, N, NEL, NELT
97 REAL A(NELT), EL(NELT)
98 INTEGER IA(NELT), IEL(NEL), JA(NELT), JEL(NEL)
127 NEL = NELT
128 DO 30 I = 1, NELT
H A Dds2lt.f2 SUBROUTINE DS2LT (N, NELT, IA, JA, A, ISYM, NEL, IEL, JEL, EL) argument
96 INTEGER ISYM, N, NEL, NELT
98 DOUBLE PRECISION A(NELT), EL(NELT)
99 INTEGER IA(NELT), IEL(NEL), JA(NELT), JEL(NEL)
128 NEL = NELT
129 DO 30 I = 1, NELT
H A Dssjac.f2 SUBROUTINE SSJAC (N, B, X, NELT, IA, JA, A, ISYM, ITOL, TOL, argument
220 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, LENIW, LENW, N, NELT
222 REAL A(NELT), B(N), RWORK(LENW), X(N)
223 INTEGER IA(NELT), IWORK(LENIW), JA(NELT)
231 IF( N.LT.1 .OR. NELT.LT.1 ) THEN
251 CALL SS2Y(N, NELT, IA, JA, A, ISYM )
255 CALL SSDS(N, NELT, IA, JA, A, ISYM, RWORK(LOCD))
258 CALL SIR(N, B, X, NELT, IA, JA, A, ISYM, SSMV, SSDI, ITOL, TOL,
H A Ddsjac.f2 SUBROUTINE DSJAC (N, B, X, NELT, IA, JA, A, ISYM, ITOL, TOL, argument
220 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, LENIW, LENW, N, NELT
222 DOUBLE PRECISION A(NELT), B(N), RWORK(LENW), X(N)
223 INTEGER IA(NELT), IWORK(LENIW), JA(NELT)
231 IF( N.LT.1 .OR. NELT.LT.1 ) THEN
251 CALL DS2Y(N, NELT, IA, JA, A, ISYM )
255 CALL DSDS(N, NELT, IA, JA, A, ISYM, RWORK(LOCD))
258 CALL DIR(N, B, X, NELT, IA, JA, A, ISYM, DSMV, DSDI, ITOL, TOL,
H A Dscgs.f2 SUBROUTINE SCGS (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE, argument
249 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
251 REAL A(NELT), B(N), P(N), Q(N), R(N), R0(N), RWORK(*), U(N),
253 INTEGER IA(NELT), IWORK(*), JA(NELT)
285 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
289 CALL MSOLVE(N, V1, R, NELT, IA, JA, A, ISYM, RWORK, IWORK)
291 IF( ISSCGS(N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE,
330 CALL MATVEC(N, P, V2, NELT, IA, JA, A, ISYM)
331 CALL MSOLVE(N, V2, V1, NELT, IA, JA, A, ISYM, RWORK, IWORK)
346 CALL MATVEC(N, V1, V2, NELT, IA, JA, A, ISYM)
[all …]
H A Ddcgs.f2 SUBROUTINE DCGS (N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE, argument
251 INTEGER IERR, ISYM, ITER, ITMAX, ITOL, IUNIT, N, NELT
255 INTEGER IA(NELT), IWORK(*), JA(NELT)
288 CALL MATVEC(N, X, R, NELT, IA, JA, A, ISYM)
292 CALL MSOLVE(N, V1, R, NELT, IA, JA, A, ISYM, RWORK, IWORK)
294 IF( ISDCGS(N, B, X, NELT, IA, JA, A, ISYM, MATVEC, MSOLVE,
333 CALL MATVEC(N, P, V2, NELT, IA, JA, A, ISYM)
334 CALL MSOLVE(N, V2, V1, NELT, IA, JA, A, ISYM, RWORK, IWORK)
349 CALL MATVEC(N, V1, V2, NELT, IA, JA, A, ISYM)
350 CALL MSOLVE(N, V2, V1, NELT, IA, JA, A, ISYM, RWORK, IWORK)
[all …]
/dports/net/mpich2/mpich2-1.5/src/armci/tests/ctree/
H A Dctree_test_rand.c10 #define NELT 1000 macro
12 uint8_t *data[NELT];
20 for (i = 0; i < NELT; i++) in main()
24 for (i = 0; i < NELT; i++) { in main()
25 int j = rand() % NELT; in main()
26 int k = rand() % NELT; in main()
32 for (i = 0; i < NELT; i++) { in main()
47 for (i = 0; i < NELT; i++) { in main()

12345678910>>...16