Home
last modified time | relevance | path

Searched refs:NRHS_B (Results 1 – 16 of 16) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dcsol_bwd.F88 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 Ddsol_bwd.F88 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 Dssol_bwd.F88 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 Dzsol_bwd.F88 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 Dcsol_bwd_aux.F180 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 Ddsol_bwd_aux.F180 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 Dssol_bwd_aux.F180 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 Dzsol_bwd_aux.F180 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 Dcsol_fwd_aux.F88 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 Ddsol_fwd_aux.F88 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 Dssol_fwd_aux.F88 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 Dzsol_fwd_aux.F88 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 Dzmumps_comm_buffer.F486 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 Dcmumps_comm_buffer.F486 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 Ddmumps_comm_buffer.F486 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 Dsmumps_comm_buffer.F486 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