/dports/math/slatec/ |
H A D | drmgen.f | 116 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 D | srmgen.f | 116 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 D | slapqc.f | 157 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 D | dlapqc.f | 156 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 D | cana_aux_ELT.F | 158 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 D | zana_aux_ELT.F | 158 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 D | sana_aux_ELT.F | 158 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 D | dana_aux_ELT.F | 158 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 D | stin.f | 2 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 D | dtin.f | 2 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 D | dir.f | 2 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 D | ssiccg.f | 2 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 D | sir.f | 2 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 D | dsiccg.f | 2 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 D | ss2y.f | 2 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 D | ds2y.f | 2 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 D | sbcg.f | 2 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 D | dbcg.f | 2 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 D | ss2lt.f | 2 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 D | ds2lt.f | 2 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 D | ssjac.f | 2 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 D | dsjac.f | 2 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 D | scgs.f | 2 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 D | dcgs.f | 2 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 D | ctree_test_rand.c | 10 #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()
|