Home
last modified time | relevance | path

Searched refs:DIAG_ORIG (Results 1 – 8 of 8) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_front_type2_aux.F16 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL, argument
32 DOUBLE PRECISION DIAG_ORIG(SIZEDIAG_ORIG) local
144 DIAG_ORIG (IPIV) = abs(A(POSPV1))
147 DIAG_ORIG = RZERO
151 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
153 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
227 DIAG_ORIG(IPIV) = ABS_PIVOT
358 & / DIAG_ORIG(JMAX)
411 RSWOP = DIAG_ORIG(LPIV)
412 DIAG_ORIG(LPIV) = DIAG_ORIG(NPIVP1)
[all …]
H A Dcfac_front_type2_aux.F16 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL, argument
32 REAL DIAG_ORIG(SIZEDIAG_ORIG) local
144 DIAG_ORIG (IPIV) = abs(A(POSPV1))
147 DIAG_ORIG = RZERO
151 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
153 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
227 DIAG_ORIG(IPIV) = ABS_PIVOT
358 & / DIAG_ORIG(JMAX)
411 RSWOP = DIAG_ORIG(LPIV)
412 DIAG_ORIG(LPIV) = DIAG_ORIG(NPIVP1)
[all …]
H A Ddfac_front_type2_aux.F16 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL, argument
32 DOUBLE PRECISION DIAG_ORIG(SIZEDIAG_ORIG) local
145 DIAG_ORIG (IPIV) = abs(A(POSPV1))
148 DIAG_ORIG = RZERO
152 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
154 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
229 DIAG_ORIG(IPIV) = ABS_PIVOT
361 & / DIAG_ORIG(JMAX)
419 RSWOP = DIAG_ORIG(LPIV)
420 DIAG_ORIG(LPIV) = DIAG_ORIG(NPIVP1)
[all …]
H A Dsfac_front_type2_aux.F16 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL, argument
32 REAL DIAG_ORIG(SIZEDIAG_ORIG) local
145 DIAG_ORIG (IPIV) = abs(A(POSPV1))
148 DIAG_ORIG = RZERO
152 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
154 DIAG_ORIG(IPIV) = max( abs(A(POSPV1)), DIAG_ORIG(IPIV) )
229 DIAG_ORIG(IPIV) = ABS_PIVOT
361 & / DIAG_ORIG(JMAX)
419 RSWOP = DIAG_ORIG(LPIV)
420 DIAG_ORIG(LPIV) = DIAG_ORIG(NPIVP1)
[all …]
H A Dsfac_front_LDLT_type2.F97 REAL , ALLOCATABLE, DIMENSION ( : ) :: DIAG_ORIG local
221 ALLOCATE ( DIAG_ORIG(SIZEDIAG_ORIG), stat = allocok )
325 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL,
666 IF (allocated(DIAG_ORIG)) DEALLOCATE(DIAG_ORIG)
H A Dzfac_front_LDLT_type2.F97 DOUBLE PRECISION , ALLOCATABLE, DIMENSION ( : ) :: DIAG_ORIG local
221 ALLOCATE ( DIAG_ORIG(SIZEDIAG_ORIG), stat = allocok )
325 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL,
666 IF (allocated(DIAG_ORIG)) DEALLOCATE(DIAG_ORIG)
H A Ddfac_front_LDLT_type2.F97 DOUBLE PRECISION , ALLOCATABLE, DIMENSION ( : ) :: DIAG_ORIG local
221 ALLOCATE ( DIAG_ORIG(SIZEDIAG_ORIG), stat = allocok )
325 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL,
666 IF (allocated(DIAG_ORIG)) DEALLOCATE(DIAG_ORIG)
H A Dcfac_front_LDLT_type2.F97 REAL , ALLOCATABLE, DIMENSION ( : ) :: DIAG_ORIG local
221 ALLOCATE ( DIAG_ORIG(SIZEDIAG_ORIG), stat = allocok )
325 & DIAG_ORIG, SIZEDIAG_ORIG, GW_FACTCUMUL,
666 IF (allocated(DIAG_ORIG)) DEALLOCATE(DIAG_ORIG)