/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_process_end_facto_slave.F | 91 INTEGER IOLDPS, NROW, LDA local 105 IOLDPS = PTRIST(STEP(INODE)) 106 IWHANDLER_SAVE = IW(IOLDPS+XXA) 108 IW(IOLDPS+XXS)=S_ALL 117 IOLDPS = PTRIST(STEP(INODE)) 138 IW(IOLDPS+XXS)=S_NOLCBCONTIG 139 IW(IOLDPS+XXS)=S_NOLCBCONTIG 144 LCONT = IW(IOLDPS+KEEP(IXSZ)) 192 IOLDPS = PTRIST(STEP(INODE)) 218 & IW( IOLDPS + XXS ),0_8) [all …]
|
H A D | dfac_process_end_facto_slave.F | 91 INTEGER IOLDPS, NROW, LDA local 105 IOLDPS = PTRIST(STEP(INODE)) 106 IWHANDLER_SAVE = IW(IOLDPS+XXA) 108 IW(IOLDPS+XXS)=S_ALL 117 IOLDPS = PTRIST(STEP(INODE)) 138 IW(IOLDPS+XXS)=S_NOLCBCONTIG 139 IW(IOLDPS+XXS)=S_NOLCBCONTIG 144 LCONT = IW(IOLDPS+KEEP(IXSZ)) 192 IOLDPS = PTRIST(STEP(INODE)) 218 & IW( IOLDPS + XXS ),0_8) [all …]
|
H A D | zfac_process_end_facto_slave.F | 91 INTEGER IOLDPS, NROW, LDA local 105 IOLDPS = PTRIST(STEP(INODE)) 106 IWHANDLER_SAVE = IW(IOLDPS+XXA) 108 IW(IOLDPS+XXS)=S_ALL 117 IOLDPS = PTRIST(STEP(INODE)) 138 IW(IOLDPS+XXS)=S_NOLCBCONTIG 139 IW(IOLDPS+XXS)=S_NOLCBCONTIG 144 LCONT = IW(IOLDPS+KEEP(IXSZ)) 192 IOLDPS = PTRIST(STEP(INODE)) 218 & IW( IOLDPS + XXS ),0_8) [all …]
|
H A D | sfac_process_end_facto_slave.F | 91 INTEGER IOLDPS, NROW, LDA local 105 IOLDPS = PTRIST(STEP(INODE)) 106 IWHANDLER_SAVE = IW(IOLDPS+XXA) 108 IW(IOLDPS+XXS)=S_ALL 117 IOLDPS = PTRIST(STEP(INODE)) 138 IW(IOLDPS+XXS)=S_NOLCBCONTIG 139 IW(IOLDPS+XXS)=S_NOLCBCONTIG 144 LCONT = IW(IOLDPS+KEEP(IXSZ)) 192 IOLDPS = PTRIST(STEP(INODE)) 218 & IW( IOLDPS + XXS ),0_8) [all …]
|
H A D | cfac_front_LDLT_type1.F | 33 INTEGER MYID, IOLDPS local 125 NFRONT = IW(IOLDPS+XSIZE) 127 NASS = iabs(IW(IOLDPS+2+XSIZE)) 128 IW(IOLDPS+3+XSIZE) = -99999 156 LIWFAC = IW(IOLDPS+XXI) 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE 295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6 299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 319 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | dfac_front_LDLT_type1.F | 33 INTEGER MYID, IOLDPS local 125 NFRONT = IW(IOLDPS+XSIZE) 127 NASS = iabs(IW(IOLDPS+2+XSIZE)) 128 IW(IOLDPS+3+XSIZE) = -99999 156 LIWFAC = IW(IOLDPS+XXI) 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE 295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6 299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 319 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | sfac_front_LDLT_type1.F | 33 INTEGER MYID, IOLDPS local 125 NFRONT = IW(IOLDPS+XSIZE) 127 NASS = iabs(IW(IOLDPS+2+XSIZE)) 128 IW(IOLDPS+3+XSIZE) = -99999 156 LIWFAC = IW(IOLDPS+XXI) 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE 295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6 299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 319 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | zfac_front_LDLT_type1.F | 33 INTEGER MYID, IOLDPS local 125 NFRONT = IW(IOLDPS+XSIZE) 127 NASS = iabs(IW(IOLDPS+2+XSIZE)) 128 IW(IOLDPS+3+XSIZE) = -99999 156 LIWFAC = IW(IOLDPS+XXI) 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 263 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6+XSIZE 295 IWPOSP2 = IOLDPS+IW(IOLDPS+1+XSIZE)+6 299 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 319 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | sfac_front_LDLT_type2.F | 84 INTEGER IOLDPS, allocok, K263 local 178 NFRONT = IW(IOLDPS+XSIZE) 181 IW(IOLDPS+3+XSIZE) = -99999 247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE) 248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)) 261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6 373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+ 377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6), [all …]
|
H A D | zfac_front_LDLT_type2.F | 84 INTEGER IOLDPS, allocok, K263 local 178 NFRONT = IW(IOLDPS+XSIZE) 181 IW(IOLDPS+3+XSIZE) = -99999 247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE) 248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)) 261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6 373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+ 377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6), [all …]
|
H A D | dfac_front_LDLT_type2.F | 84 INTEGER IOLDPS, allocok, K263 local 178 NFRONT = IW(IOLDPS+XSIZE) 181 IW(IOLDPS+3+XSIZE) = -99999 247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE) 248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)) 261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6 373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+ 377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6), [all …]
|
H A D | cfac_front_LDLT_type2.F | 84 INTEGER IOLDPS, allocok, K263 local 178 NFRONT = IW(IOLDPS+XSIZE) 181 IW(IOLDPS+3+XSIZE) = -99999 247 & IW(IOLDPS+6+NFRONT+XSIZE+IW(IOLDPS+5+XSIZE) 248 & :IOLDPS+5+2*NFRONT+XSIZE+IW(IOLDPS+5+XSIZE)) 261 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 345 IWPOSPIV = IOLDPS+IW(IOLDPS+1+XSIZE)+6 373 IWPOSPIV = IOLDPS+XSIZE+IW(IOLDPS+1+XSIZE)+6+ 377 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + PIVSIZ 428 & IW(IOLDPS+KEEP(IXSZ)+IW(IOLDPS+5+KEEP(IXSZ))+6), [all …]
|
H A D | cfac_front_LU_type1.F | 39 INTEGER MYID, SLAVEF, IOLDPS local 126 NFRONT = IW(IOLDPS+XSIZE) 128 IW(IOLDPS+3+XSIZE) = -99999 154 LIWFAC = IW(IOLDPS+XXI) 187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1 306 & IW(IOLDPS), LIWFAC, 336 NPIV = IW(IOLDPS+1+XSIZE) 478 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | dfac_front_LU_type1.F | 39 INTEGER MYID, SLAVEF, IOLDPS local 126 NFRONT = IW(IOLDPS+XSIZE) 128 IW(IOLDPS+3+XSIZE) = -99999 154 LIWFAC = IW(IOLDPS+XXI) 187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1 306 & IW(IOLDPS), LIWFAC, 336 NPIV = IW(IOLDPS+1+XSIZE) 478 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | sfac_front_LU_type1.F | 39 INTEGER MYID, SLAVEF, IOLDPS local 126 NFRONT = IW(IOLDPS+XSIZE) 128 IW(IOLDPS+3+XSIZE) = -99999 154 LIWFAC = IW(IOLDPS+XXI) 187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1 306 & IW(IOLDPS), LIWFAC, 336 NPIV = IW(IOLDPS+1+XSIZE) 478 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | zfac_front_LU_type1.F | 39 INTEGER MYID, SLAVEF, IOLDPS local 126 NFRONT = IW(IOLDPS+XSIZE) 128 IW(IOLDPS+3+XSIZE) = -99999 154 LIWFAC = IW(IOLDPS+XXI) 187 HF = 6 + IW(IOLDPS+5+XSIZE)+XSIZE 189 CALL GET_CUT(IW(IOLDPS+HF:IOLDPS+HF+NFRONT-1), NASS, 288 IW(IOLDPS+1+XSIZE) = IW(IOLDPS+1+XSIZE) + 1 306 & IW(IOLDPS), LIWFAC, 336 NPIV = IW(IOLDPS+1+XSIZE) 478 & IW(IOLDPS), LIWFAC, [all …]
|
H A D | cfac_process_blocfacto_LDLT.F | 335 IOLDPS = PTRIST(STEP(INODE)) 484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0, 496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1), 602 LIWFAC = IW(IOLDPS+XXI) 680 & IW(IOLDPS+XXF), 724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV 725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV 726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ)) 794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ))) 839 IOLDPS = PTRIST(STEP(INODE)) [all …]
|
H A D | dfac_process_blocfacto_LDLT.F | 335 IOLDPS = PTRIST(STEP(INODE)) 484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0, 496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1), 602 LIWFAC = IW(IOLDPS+XXI) 680 & IW(IOLDPS+XXF), 724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV 725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV 726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ)) 794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ))) 839 IOLDPS = PTRIST(STEP(INODE)) [all …]
|
H A D | sfac_process_blocfacto_LDLT.F | 335 IOLDPS = PTRIST(STEP(INODE)) 484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0, 496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1), 602 LIWFAC = IW(IOLDPS+XXI) 680 & IW(IOLDPS+XXF), 724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV 725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV 726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ)) 794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ))) 839 IOLDPS = PTRIST(STEP(INODE)) [all …]
|
H A D | zfac_process_blocfacto_LDLT.F | 335 IOLDPS = PTRIST(STEP(INODE)) 484 CALL GET_CUT(IW(IOLDPS+HS:IOLDPS+HS+NROW1-1), 0, 496 CALL GET_CUT(IW(IOLDPS+HS+NROW1:IOLDPS+HS+NROW1+NCOL1-1), 602 LIWFAC = IW(IOLDPS+XXI) 680 & IW(IOLDPS+XXF), 724 IW(IOLDPS+KEEP(IXSZ)) = IW(IOLDPS+KEEP(IXSZ)) - NPIV 725 IW(IOLDPS + 3+KEEP(IXSZ)) = IW(IOLDPS+3+KEEP(IXSZ)) + NPIV 726 IF (LASTBL) IW(IOLDPS+1+KEEP(IXSZ)) = IW(IOLDPS + 3+KEEP(IXSZ)) 794 IW(IOLDPS+6+KEEP(IXSZ)) = huge(IW(IOLDPS+6+KEEP(IXSZ))) 839 IOLDPS = PTRIST(STEP(INODE)) [all …]
|
H A D | dfac_asm_ELT.F | 45 IOLDPS = PTRIST(STEP(INODE)) 47 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ)) 49 NASS = IW(IOLDPS+1+KEEP(IXSZ)) 50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ)) 54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS 62 K1 = IOLDPS + HF + NBROWF 104 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 110 K1 = IOLDPS + HF + NBROWF 118 K1 = IOLDPS + HF [all …]
|
H A D | zfac_asm_ELT.F | 45 IOLDPS = PTRIST(STEP(INODE)) 47 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ)) 49 NASS = IW(IOLDPS+1+KEEP(IXSZ)) 50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ)) 54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS 62 K1 = IOLDPS + HF + NBROWF 104 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 110 K1 = IOLDPS + HF + NBROWF 118 K1 = IOLDPS + HF [all …]
|
H A D | cfac_asm_ELT.F | 45 IOLDPS = PTRIST(STEP(INODE)) 47 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ)) 49 NASS = IW(IOLDPS+1+KEEP(IXSZ)) 50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ)) 54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS 62 K1 = IOLDPS + HF + NBROWF 104 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 110 K1 = IOLDPS + HF + NBROWF 118 K1 = IOLDPS + HF [all …]
|
H A D | sfac_asm_ELT.F | 45 IOLDPS = PTRIST(STEP(INODE)) 47 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 48 NBROWF = IW(IOLDPS+2+KEEP(IXSZ)) 49 NASS = IW(IOLDPS+1+KEEP(IXSZ)) 50 NSLAVES = IW(IOLDPS+5+KEEP(IXSZ)) 54 IW(IOLDPS+1+KEEP(IXSZ)) = NASS 62 K1 = IOLDPS + HF + NBROWF 104 NBCOLF = IW(IOLDPS+KEEP(IXSZ)) 110 K1 = IOLDPS + HF + NBROWF 118 K1 = IOLDPS + HF [all …]
|
H A D | dfac_asm.F | 40 IOLDPS = PTLUST_S(STEP(INODE)) 42 NFRONT = IW(IOLDPS+KEEP(IXSZ)) 44 NSLAVES= IW(IOLDPS+5+KEEP(IXSZ)) 154 IOLDPS = PTRIST(STEP(INODE)) 171 K1 = IOLDPS + HF + NBROWF 197 IOLDPS = PTRIST(STEP(INODE)) 203 K1 = IOLDPS + HF + NBROWF 562 & IOLDPS, ISTCHK, local 631 K1 = IOLDPS + HF + NBROWF 639 K1 = IOLDPS + HF [all …]
|