Home
last modified time | relevance | path

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

/dports/math/mumps/mumps-5.1.2/src/
H A Dzsol_driver.F103 INTEGER :: NRHS_NONEMPTY local
1055 NRHS_NONEMPTY = 0
1058 & NRHS_NONEMPTY = NRHS_NONEMPTY+1 !ith col in non empty
1060 IF (NRHS_NONEMPTY.LE.0) THEN
1065 & NRHS_NONEMPTY
1069 NRHS_NONEMPTY = id%NRHS
1120 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
1137 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
2289 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
2302 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dcsol_driver.F103 INTEGER :: NRHS_NONEMPTY local
1055 NRHS_NONEMPTY = 0
1058 & NRHS_NONEMPTY = NRHS_NONEMPTY+1 !ith col in non empty
1060 IF (NRHS_NONEMPTY.LE.0) THEN
1065 & NRHS_NONEMPTY
1069 NRHS_NONEMPTY = id%NRHS
1120 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
1137 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
2289 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
2302 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Ddsol_driver.F103 INTEGER :: NRHS_NONEMPTY local
1055 NRHS_NONEMPTY = 0
1058 & NRHS_NONEMPTY = NRHS_NONEMPTY+1 !ith col in non empty
1060 IF (NRHS_NONEMPTY.LE.0) THEN
1065 & NRHS_NONEMPTY
1069 NRHS_NONEMPTY = id%NRHS
1120 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
1137 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
2289 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
2302 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dssol_driver.F103 INTEGER :: NRHS_NONEMPTY local
1055 NRHS_NONEMPTY = 0
1058 & NRHS_NONEMPTY = NRHS_NONEMPTY+1 !ith col in non empty
1060 IF (NRHS_NONEMPTY.LE.0) THEN
1065 & NRHS_NONEMPTY
1069 NRHS_NONEMPTY = id%NRHS
1120 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
1137 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
2289 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
2302 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dcmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dsmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Ddmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Ddmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dzmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dsmumps_part8.F97 INTEGER :: NRHS_NONEMPTY
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dzmumps_part8.F97 INTEGER :: NRHS_NONEMPTY local
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dsmumps_part8.F97 INTEGER :: NRHS_NONEMPTY local
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Dcmumps_part8.F97 INTEGER :: NRHS_NONEMPTY local
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)
H A Ddmumps_part8.F97 INTEGER :: NRHS_NONEMPTY local
623 NRHS_NONEMPTY = 0
626 & NRHS_NONEMPTY = NRHS_NONEMPTY+1
628 IF (NRHS_NONEMPTY.LE.0) THEN
631 & NRHS_NONEMPTY
635 NRHS_NONEMPTY = id%NRHS
675 IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
681 CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
1358 DO WHILE (BEG_RHS.LE.NRHS_NONEMPTY)
1359 NBRHS_EFF = min(NRHS_NONEMPTY-BEG_RHS+1, NBRHS)