/dports/math/mumps/mumps-5.1.2/src/ |
H A D | csol_bwd.F | 88 INTEGER JBDEB, JBFIN, NRHS_B local 209 NRHS_B = JBFIN-JBDEB+1 213 NRHS_B = NRHS 399 POSWCB = POSWCB - int(NCB,8)*int(NRHS_B,8) 582 POSWCB = POSWCB - int(LIELL,8)*int(NRHS_B,8) 738 IF ( NRHS_B == 1 ) THEN 812 CALL cgemm( 'T', 'N', NBJ, NRHS_B, 869 IF (NRHS_B == 1) THEN 913 IF ( NRHS_B == 1 ) THEN 952 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | dsol_bwd.F | 88 INTEGER JBDEB, JBFIN, NRHS_B local 207 NRHS_B = JBFIN-JBDEB+1 211 NRHS_B = NRHS 397 POSWCB = POSWCB - int(NCB,8)*int(NRHS_B,8) 580 POSWCB = POSWCB - int(LIELL,8)*int(NRHS_B,8) 736 IF ( NRHS_B == 1 ) THEN 810 CALL dgemm( 'T', 'N', NBJ, NRHS_B, 867 IF (NRHS_B == 1) THEN 911 IF ( NRHS_B == 1 ) THEN 950 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | ssol_bwd.F | 88 INTEGER JBDEB, JBFIN, NRHS_B local 207 NRHS_B = JBFIN-JBDEB+1 211 NRHS_B = NRHS 397 POSWCB = POSWCB - int(NCB,8)*int(NRHS_B,8) 580 POSWCB = POSWCB - int(LIELL,8)*int(NRHS_B,8) 736 IF ( NRHS_B == 1 ) THEN 810 CALL sgemm( 'T', 'N', NBJ, NRHS_B, 867 IF (NRHS_B == 1) THEN 911 IF ( NRHS_B == 1 ) THEN 950 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | zsol_bwd.F | 88 INTEGER JBDEB, JBFIN, NRHS_B local 209 NRHS_B = JBFIN-JBDEB+1 213 NRHS_B = NRHS 399 POSWCB = POSWCB - int(NCB,8)*int(NRHS_B,8) 582 POSWCB = POSWCB - int(LIELL,8)*int(NRHS_B,8) 738 IF ( NRHS_B == 1 ) THEN 812 CALL zgemm( 'T', 'N', NBJ, NRHS_B, 869 IF (NRHS_B == 1) THEN 913 IF ( NRHS_B == 1 ) THEN 952 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | csol_bwd_aux.F | 180 INTEGER JBDEB, JBFIN, NRHS_B, allocok local 223 NRHS_B = JBFIN-JBDEB+1 305 NRHS_B = JBFIN-JBDEB+1 347 IF ( NRHS_B == 1 ) THEN 361 IF ( NRHS_B == 1 ) THEN 383 PLEFTW = PLEFTW - NROW_L * NRHS_B 419 PLEFTW = PLEFTW - NPIV * NRHS_B 432 NRHS_B = JBFIN-JBDEB+1 648 IF ( NRHS_B == 1 ) THEN 752 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | dsol_bwd_aux.F | 180 INTEGER JBDEB, JBFIN, NRHS_B, allocok local 221 NRHS_B = JBFIN-JBDEB+1 303 NRHS_B = JBFIN-JBDEB+1 345 IF ( NRHS_B == 1 ) THEN 359 IF ( NRHS_B == 1 ) THEN 381 PLEFTW = PLEFTW - NROW_L * NRHS_B 417 PLEFTW = PLEFTW - NPIV * NRHS_B 430 NRHS_B = JBFIN-JBDEB+1 646 IF ( NRHS_B == 1 ) THEN 750 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | ssol_bwd_aux.F | 180 INTEGER JBDEB, JBFIN, NRHS_B, allocok local 221 NRHS_B = JBFIN-JBDEB+1 303 NRHS_B = JBFIN-JBDEB+1 345 IF ( NRHS_B == 1 ) THEN 359 IF ( NRHS_B == 1 ) THEN 381 PLEFTW = PLEFTW - NROW_L * NRHS_B 417 PLEFTW = PLEFTW - NPIV * NRHS_B 430 NRHS_B = JBFIN-JBDEB+1 646 IF ( NRHS_B == 1 ) THEN 750 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | zsol_bwd_aux.F | 180 INTEGER JBDEB, JBFIN, NRHS_B, allocok local 223 NRHS_B = JBFIN-JBDEB+1 305 NRHS_B = JBFIN-JBDEB+1 347 IF ( NRHS_B == 1 ) THEN 361 IF ( NRHS_B == 1 ) THEN 383 PLEFTW = PLEFTW - NROW_L * NRHS_B 419 PLEFTW = PLEFTW - NPIV * NRHS_B 432 NRHS_B = JBFIN-JBDEB+1 648 IF ( NRHS_B == 1 ) THEN 752 IF ( NRHS_B == 1 ) THEN [all …]
|
H A D | csol_fwd_aux.F | 88 NRHS_B = JBFIN-JBDEB+1 121 DO K = 1, NRHS_B 166 NRHS_B = JBFIN-JBDEB+1 175 DO K=1, NRHS_B 181 DO K=1, NRHS_B 200 IF ( NRHS_B == 1 ) THEN 215 IF ( NRHS_B == 1 ) THEN 250 DO K=1, NRHS_B 267 DO K=1, NRHS_B 444 NRHS_B = JBFIN-JBDEB+1 [all …]
|
H A D | dsol_fwd_aux.F | 88 NRHS_B = JBFIN-JBDEB+1 121 DO K = 1, NRHS_B 166 NRHS_B = JBFIN-JBDEB+1 175 DO K=1, NRHS_B 181 DO K=1, NRHS_B 200 IF ( NRHS_B == 1 ) THEN 215 IF ( NRHS_B == 1 ) THEN 250 DO K=1, NRHS_B 267 DO K=1, NRHS_B 442 NRHS_B = JBFIN-JBDEB+1 [all …]
|
H A D | ssol_fwd_aux.F | 88 NRHS_B = JBFIN-JBDEB+1 121 DO K = 1, NRHS_B 166 NRHS_B = JBFIN-JBDEB+1 175 DO K=1, NRHS_B 181 DO K=1, NRHS_B 200 IF ( NRHS_B == 1 ) THEN 215 IF ( NRHS_B == 1 ) THEN 250 DO K=1, NRHS_B 267 DO K=1, NRHS_B 442 NRHS_B = JBFIN-JBDEB+1 [all …]
|
H A D | zsol_fwd_aux.F | 88 NRHS_B = JBFIN-JBDEB+1 121 DO K = 1, NRHS_B 166 NRHS_B = JBFIN-JBDEB+1 175 DO K=1, NRHS_B 181 DO K=1, NRHS_B 200 IF ( NRHS_B == 1 ) THEN 215 IF ( NRHS_B == 1 ) THEN 250 DO K=1, NRHS_B 267 DO K=1, NRHS_B 444 NRHS_B = JBFIN-JBDEB+1 [all …]
|
H A D | zmumps_comm_buffer.F | 486 SUBROUTINE ZMUMPS_BUF_SEND_VCB( NRHS_B, NODE1, NODE2, NCB, LDW, argument 494 INTEGER NRHS_B, NODE1, NODE2, NCB, LONG, JBDEB, JBFIN local 497 COMPLEX(kind=8) W( max( 1, LDW * NRHS_B ) ) 519 CALL MPI_PACK_SIZE( NRHS_B*LONG, MPI_DOUBLE_COMPLEX, 555 DO K=1, NRHS_B 575 DO K=1, NRHS_B
|
H A D | cmumps_comm_buffer.F | 486 SUBROUTINE CMUMPS_BUF_SEND_VCB( NRHS_B, NODE1, NODE2, NCB, LDW, argument 494 INTEGER NRHS_B, NODE1, NODE2, NCB, LONG, JBDEB, JBFIN local 497 COMPLEX W( max( 1, LDW * NRHS_B ) ) 519 CALL MPI_PACK_SIZE( NRHS_B*LONG, MPI_COMPLEX, 555 DO K=1, NRHS_B 575 DO K=1, NRHS_B
|
H A D | dmumps_comm_buffer.F | 486 SUBROUTINE DMUMPS_BUF_SEND_VCB( NRHS_B, NODE1, NODE2, NCB, LDW, argument 494 INTEGER NRHS_B, NODE1, NODE2, NCB, LONG, JBDEB, JBFIN local 497 DOUBLE PRECISION W( max( 1, LDW * NRHS_B ) ) 519 CALL MPI_PACK_SIZE( NRHS_B*LONG, MPI_DOUBLE_PRECISION, 555 DO K=1, NRHS_B 575 DO K=1, NRHS_B
|
H A D | smumps_comm_buffer.F | 486 SUBROUTINE SMUMPS_BUF_SEND_VCB( NRHS_B, NODE1, NODE2, NCB, LDW, argument 494 INTEGER NRHS_B, NODE1, NODE2, NCB, LONG, JBDEB, JBFIN local 497 REAL W( max( 1, LDW * NRHS_B ) ) 519 CALL MPI_PACK_SIZE( NRHS_B*LONG, MPI_REAL, 555 DO K=1, NRHS_B 575 DO K=1, NRHS_B
|