/dports/math/mumps/mumps-5.1.2/src/ |
H A D | csol_bwd_aux.F | 174 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 D | dsol_bwd_aux.F | 174 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 D | ssol_bwd_aux.F | 174 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 D | zsol_bwd_aux.F | 174 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 D | ctools.F | 238 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 D | dtools.F | 238 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 D | stools.F | 238 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 D | ztools.F | 238 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 D | zmumps_part8.F | 6822 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 D | cmumps_part8.F | 6822 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 D | smumps_part8.F | 6818 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 D | dmumps_part8.F | 6818 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 D | smumps_part3.F | 1288 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 D | dmumps_part3.F | 1288 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 D | cmumps_part3.F | 1288 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 D | zmumps_part3.F | 1288 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 D | cmumps_part8.F | 6822 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 D | dmumps_part8.F | 6818 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 D | zmumps_part8.F | 6822 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 D | smumps_part8.F | 6818 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 D | cmumps_part3.F | 1288 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 D | zmumps_part8.F | 6822 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 D | smumps_part8.F | 6818 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 D | cmumps_part8.F | 6822 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 D | dmumps_part8.F | 6818 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 …]
|