/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zmumps_f77.F | 37 & NZ_RHS, LSOL_loc 64 & NZ_RHS, LSOL_loc, LREDRHS local 179 mumps_par%NZ_RHS = NZ_RHS 240 & RHS_SPARSE(1:NZ_RHS) 242 & IRHS_SPARSE(1:NZ_RHS) 288 NZ_RHS = mumps_par%NZ_RHS
|
H A D | cmumps_f77.F | 37 & NZ_RHS, LSOL_loc 64 & NZ_RHS, LSOL_loc, LREDRHS local 179 mumps_par%NZ_RHS = NZ_RHS 240 & RHS_SPARSE(1:NZ_RHS) 242 & IRHS_SPARSE(1:NZ_RHS) 288 NZ_RHS = mumps_par%NZ_RHS
|
H A D | dmumps_f77.F | 37 & NZ_RHS, LSOL_loc 64 & NZ_RHS, LSOL_loc, LREDRHS local 179 mumps_par%NZ_RHS = NZ_RHS 240 & RHS_SPARSE(1:NZ_RHS) 242 & IRHS_SPARSE(1:NZ_RHS) 288 NZ_RHS = mumps_par%NZ_RHS
|
H A D | smumps_f77.F | 37 & NZ_RHS, LSOL_loc 64 & NZ_RHS, LSOL_loc, LREDRHS local 179 mumps_par%NZ_RHS = NZ_RHS 240 & RHS_SPARSE(1:NZ_RHS) 242 & IRHS_SPARSE(1:NZ_RHS) 288 NZ_RHS = mumps_par%NZ_RHS
|
H A D | zsol_c.F | 25 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG, JBEG_RHS argument 103 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 226 DO I = 1, NZ_RHS 243 DO I = 1, NZ_RHS 350 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 492 DO II = 1, NZ_RHS 510 DO II = 1, NZ_RHS 743 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 2270 INTEGER, intent(in) :: NZ_RHS, IRHS_SPARSE(NZ_RHS) local 2373 DO I =1, NZ_RHS [all …]
|
H A D | csol_c.F | 25 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG, JBEG_RHS argument 103 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 226 DO I = 1, NZ_RHS 243 DO I = 1, NZ_RHS 350 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 492 DO II = 1, NZ_RHS 510 DO II = 1, NZ_RHS 743 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 2270 INTEGER, intent(in) :: NZ_RHS, IRHS_SPARSE(NZ_RHS) local 2373 DO I =1, NZ_RHS [all …]
|
H A D | ssol_c.F | 25 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG, JBEG_RHS argument 103 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 226 DO I = 1, NZ_RHS 243 DO I = 1, NZ_RHS 350 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 492 DO II = 1, NZ_RHS 510 DO II = 1, NZ_RHS 743 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 2270 INTEGER, intent(in) :: NZ_RHS, IRHS_SPARSE(NZ_RHS) local 2373 DO I =1, NZ_RHS [all …]
|
H A D | dsol_c.F | 25 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG, JBEG_RHS argument 103 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 226 DO I = 1, NZ_RHS 243 DO I = 1, NZ_RHS 350 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 492 DO II = 1, NZ_RHS 510 DO II = 1, NZ_RHS 743 & IRHS_PTR, NBCOL_INBLOC, IRHS_SPARSE, NZ_RHS, 2270 INTEGER, intent(in) :: NZ_RHS, IRHS_SPARSE(NZ_RHS) local 2373 DO I =1, NZ_RHS [all …]
|
H A D | mumps_sol_es.F | 207 & IRHS_PTR, NBCOL, IRHS_SPARSE, NZ_RHS, argument 216 INTEGER, INTENT(IN) :: NBCOL, NZ_RHS, SIZE_UNS_PERM_INV local 218 INTEGER, INTENT(IN) :: IRHS_PTR(NBCOL+1),IRHS_SPARSE(NZ_RHS)
|
H A D | zsol_driver.F | 690 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(237).NE.0)) THEN 693 id%INFO(2)=id%NZ_RHS 696 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(221).EQ.1)) THEN 700 id%INFO(2)=id%NZ_RHS 724 IF (id%IRHS_PTR(id%NRHS + 1).ne.id%NZ_RHS+1) THEN 737 & id%NZ_RHS,id%N,id%NRHS 745 IF (size(id%IRHS_SPARSE) < id%NZ_RHS) THEN 750 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 910 CALL MPI_BCAST(id%NZ_RHS,1,MPI_INTEGER,MASTER, 913 IF (id%NZ_RHS.EQ.0) THEN [all …]
|
H A D | csol_driver.F | 690 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(237).NE.0)) THEN 693 id%INFO(2)=id%NZ_RHS 696 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(221).EQ.1)) THEN 700 id%INFO(2)=id%NZ_RHS 724 IF (id%IRHS_PTR(id%NRHS + 1).ne.id%NZ_RHS+1) THEN 737 & id%NZ_RHS,id%N,id%NRHS 745 IF (size(id%IRHS_SPARSE) < id%NZ_RHS) THEN 750 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 910 CALL MPI_BCAST(id%NZ_RHS,1,MPI_INTEGER,MASTER, 913 IF (id%NZ_RHS.EQ.0) THEN [all …]
|
H A D | dsol_driver.F | 690 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(237).NE.0)) THEN 693 id%INFO(2)=id%NZ_RHS 696 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(221).EQ.1)) THEN 700 id%INFO(2)=id%NZ_RHS 724 IF (id%IRHS_PTR(id%NRHS + 1).ne.id%NZ_RHS+1) THEN 737 & id%NZ_RHS,id%N,id%NRHS 745 IF (size(id%IRHS_SPARSE) < id%NZ_RHS) THEN 750 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 910 CALL MPI_BCAST(id%NZ_RHS,1,MPI_INTEGER,MASTER, 913 IF (id%NZ_RHS.EQ.0) THEN [all …]
|
H A D | ssol_driver.F | 690 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(237).NE.0)) THEN 693 id%INFO(2)=id%NZ_RHS 696 IF (( id%NZ_RHS .LE.0 ).AND.(KEEP(221).EQ.1)) THEN 700 id%INFO(2)=id%NZ_RHS 724 IF (id%IRHS_PTR(id%NRHS + 1).ne.id%NZ_RHS+1) THEN 737 & id%NZ_RHS,id%N,id%NRHS 745 IF (size(id%IRHS_SPARSE) < id%NZ_RHS) THEN 750 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 910 CALL MPI_BCAST(id%NZ_RHS,1,MPI_INTEGER,MASTER, 913 IF (id%NZ_RHS.EQ.0) THEN [all …]
|
H A D | zini_driver.F | 118 id%NZ_RHS=0
|
H A D | dini_driver.F | 118 id%NZ_RHS=0
|
H A D | sini_driver.F | 118 id%NZ_RHS=0
|
H A D | cini_driver.F | 118 id%NZ_RHS=0
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | m_ts_mumps_init.F90 | 248 mum%NZ_RHS = nsize ! number of non-zero RHS elements 259 call memory('A','I',mum%NZ_RHS, 'allocate_mum') 260 allocate( mum%IRHS_SPARSE(mum%NZ_RHS) ) 275 allocate( Gf(max(no,mum%NZ_RHS)) ) 277 mum%RHS_SPARSE => Gf(1:mum%NZ_RHS) 376 if ( ind /= mum%NZ_RHS ) then
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
H A D | cmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
H A D | smumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
H A D | dmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
H A D | dmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|
H A D | zmumps_part8.F | 365 id%INFO(2)=id%NZ_RHS 370 id%INFO(2)=id%NZ_RHS 403 & id%NZ_RHS,id%N,id%NRHS 419 IF (size(id%RHS_SPARSE) < id%NZ_RHS) THEN 541 IF (id%NZ_RHS.EQ.0) THEN 3193 & , NZ_RHS, NBCOL_INBLOC, NRHS_ORIG 3262 INTEGER, intent(in) :: IRHS_SPARSE(NZ_RHS) 3368 DO I = 1, NZ_RHS 3385 DO I = 1, NZ_RHS 3617 DO II = 1, NZ_RHS [all …]
|