Home
last modified time | relevance | path

Searched refs:NROW_L (Results 1 – 25 of 32) sorted by relevance

12

/dports/math/mumps/mumps-5.1.2/src/
H A Dcsol_bwd_aux.F174 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
308 NROW_L = IW( IPOS + 1 )
320 IF ( NROW_L .NE. NROW_RECU ) THEN
324 LONG = NROW_L + NPIV
341 & W( P_SOL_MAS+(K-JBDEB)*NROW_L),NROW_L,
348 CALL cgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
354 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
383 PLEFTW = PLEFTW - NROW_L * NRHS_B
504 NROW_L = NPIV+NELIM
609 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Ddsol_bwd_aux.F174 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
306 NROW_L = IW( IPOS + 1 )
318 IF ( NROW_L .NE. NROW_RECU ) THEN
322 LONG = NROW_L + NPIV
339 & W( P_SOL_MAS+(K-JBDEB)*NROW_L),NROW_L,
346 CALL dgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
352 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
381 PLEFTW = PLEFTW - NROW_L * NRHS_B
502 NROW_L = NPIV+NELIM
607 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dssol_bwd_aux.F174 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
306 NROW_L = IW( IPOS + 1 )
318 IF ( NROW_L .NE. NROW_RECU ) THEN
322 LONG = NROW_L + NPIV
339 & W( P_SOL_MAS+(K-JBDEB)*NROW_L),NROW_L,
346 CALL sgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
352 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
381 PLEFTW = PLEFTW - NROW_L * NRHS_B
502 NROW_L = NPIV+NELIM
607 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dzsol_bwd_aux.F174 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
308 NROW_L = IW( IPOS + 1 )
320 IF ( NROW_L .NE. NROW_RECU ) THEN
324 LONG = NROW_L + NPIV
341 & W( P_SOL_MAS+(K-JBDEB)*NROW_L),NROW_L,
348 CALL zgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
354 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
383 PLEFTW = PLEFTW - NROW_L * NRHS_B
504 NROW_L = NPIV+NELIM
609 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dctools.F238 MonBloc%NROW = NROW_L
258 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
261 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
320 IW( POSI + 1 ) = NROW_L
330 DO I = 1, NROW_L
334 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
338 DO I = 1, NROW_L
370 FLOP1 = dble( NCOL_L * NROW_L) +
373 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
381 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Ddtools.F238 MonBloc%NROW = NROW_L
258 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
261 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
320 IW( POSI + 1 ) = NROW_L
330 DO I = 1, NROW_L
334 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
338 DO I = 1, NROW_L
370 FLOP1 = dble( NCOL_L * NROW_L) +
373 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
381 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Dstools.F238 MonBloc%NROW = NROW_L
258 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
261 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
320 IW( POSI + 1 ) = NROW_L
330 DO I = 1, NROW_L
334 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
338 DO I = 1, NROW_L
370 FLOP1 = dble( NCOL_L * NROW_L) +
373 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
381 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Dztools.F238 MonBloc%NROW = NROW_L
258 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
261 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
320 IW( POSI + 1 ) = NROW_L
330 DO I = 1, NROW_L
334 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
338 DO I = 1, NROW_L
370 FLOP1 = dble( NCOL_L * NROW_L) +
373 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
381 FLOP1 = dble( NASS * NROW_L) +
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL zgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dcmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL cgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dsmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL sgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Ddmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL dgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dsmumps_part3.F1288 MonBloc%NROW = NROW_L
1306 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
1309 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
1365 IW( POSI + 1 ) = NROW_L
1375 DO I = 1, NROW_L
1379 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
1383 DO I = 1, NROW_L
1415 FLOP1 = dble( NCOL_L * NROW_L) +
1418 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
1426 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Ddmumps_part3.F1288 MonBloc%NROW = NROW_L
1306 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
1309 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
1365 IW( POSI + 1 ) = NROW_L
1375 DO I = 1, NROW_L
1379 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
1383 DO I = 1, NROW_L
1415 FLOP1 = dble( NCOL_L * NROW_L) +
1418 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
1426 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Dcmumps_part3.F1288 MonBloc%NROW = NROW_L
1306 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
1309 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
1365 IW( POSI + 1 ) = NROW_L
1375 DO I = 1, NROW_L
1379 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
1383 DO I = 1, NROW_L
1415 FLOP1 = dble( NCOL_L * NROW_L) +
1418 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
1426 FLOP1 = dble( NASS * NROW_L) +
[all …]
H A Dzmumps_part3.F1288 MonBloc%NROW = NROW_L
1306 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
1309 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
1365 IW( POSI + 1 ) = NROW_L
1375 DO I = 1, NROW_L
1379 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
1383 DO I = 1, NROW_L
1415 FLOP1 = dble( NCOL_L * NROW_L) +
1418 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
1426 FLOP1 = dble( NASS * NROW_L) +
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL cgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Ddmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL dgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dzmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL zgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dsmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL sgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dcmumps_part3.F1288 MonBloc%NROW = NROW_L
1306 IF ((NCOL_L.EQ.0).OR.(NROW_L.EQ.0)) THEN
1309 LREQI = 4 + NCOL_L + NROW_L + KEEP(IXSZ)
1365 IW( POSI + 1 ) = NROW_L
1375 DO I = 1, NROW_L
1379 IW( POSI+NROW_L+3+I) = IW( ICOL_L+I-1 )
1383 DO I = 1, NROW_L
1415 FLOP1 = dble( NCOL_L * NROW_L) +
1418 FLOP1 = dble( NCOL_L ) * dble( NROW_L )
1426 FLOP1 = dble( NASS * NROW_L) +
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dzmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL zgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dsmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL sgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Dcmumps_part8.F6822 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
6924 NROW_L = IW( IPOS + 1 )
6936 IF ( NROW_L .NE. NROW_RECU ) THEN
6940 LONG = NROW_L + NPIV
6957 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6963 CALL cgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6968 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6991 PLEFTW = PLEFTW - NROW_L * NRHS
7095 NROW_L = NPIV+NELIM
7173 & int(NROW_L,8) * int(NPIV,8)
[all …]
H A Ddmumps_part8.F6818 INTEGER NPIV, NROW_L, IPOS, NROW_RECU local
6918 NROW_L = IW( IPOS + 1 )
6930 IF ( NROW_L .NE. NROW_RECU ) THEN
6934 LONG = NROW_L + NPIV
6951 & W( P_SOL_MAS+(K-1)*NROW_L),NROW_L,
6957 CALL dgemv( 'T', NROW_L, NPIV, ALPHA, A( APOS ), NROW_L,
6962 & NROW_L, W( P_SOL_MAS ), NROW_L, ZERO, W( P_UPDATE ),
6985 PLEFTW = PLEFTW - NROW_L * NRHS
7089 NROW_L = NPIV+NELIM
7167 & int(NROW_L,8) * int(NPIV,8)
[all …]

12