mumps-5.1.2/src/zfac_scalings_simScaleAbs.F

226       INTEGER ITDRPTR, ITDCPTR, ISRRPTR  local
435           ITDRPTR = 1
436           ITDCPTR = ITDRPTR + M
467                 CALL ZMUMPS_ZEROOUT(WRKRC(ITDRPTR),M,
472                 CALL ZMUMPS_INITREAL(WRKRC(ITDRPTR),M, RZERO)
484                          IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
485                             WRKRC(ITDRPTR-1+IR)= ELM
499                       IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
500                          WRKRC(ITDRPTR-1+IR)= ELM
520      &                  WRKRC(ITDRPTR), M, TAG_ITERS+2+ITER,
534      &                    WRKRC(ITDRPTR), M,
554      &                       WRKRC(ITDRPTR),M,
571      &                    WRKRC(ITDRPTR), M)
583                         CALL ZMUMPS_UPSCALE1(ROWSCA,  WRKRC(ITDRPTR), M)
603                         WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
614                      WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
631      &                 WRKRC(ITDRPTR), M, TAG_ITERS+2+ITER,
644      &                    WRKRC(ITDRPTR), M,
664      &                       WRKRC(ITDRPTR),M,
676      &                    WRKRC(ITDRPTR), M)
688                         CALL ZMUMPS_UPSCALE1(ROWSCA,  WRKRC(ITDRPTR), M)
698                CALL ZMUMPS_UPDATESCALE(ROWSCA,  WRKRC(ITDRPTR), M,
704                CALL ZMUMPS_UPSCALE1(ROWSCA,  WRKRC(ITDRPTR), M)
862       INTEGER ITDRPTR, ISRRPTR, OSRRPTR  local
1005           ITDRPTR = 1
1006           ISRRPTR = ITDRPTR + N
1022                 CALL ZMUMPS_ZEROOUT(WRKRC(ITDRPTR),N,
1025                 CALL ZMUMPS_INITREAL(WRKRC(ITDRPTR),N, RZERO)
1036                          IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
1037                             WRKRC(ITDRPTR-1+IR)= ELM
1039                          IF(WRKRC(ITDRPTR-1+IC)<ELM) THEN
1040                             WRKRC(ITDRPTR-1+IC)= ELM
1051                       IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
1052                          WRKRC(ITDRPTR-1+IR)= ELM
1054                       IF(WRKRC(ITDRPTR-1+IC)<ELM) THEN
1055                          WRKRC(ITDRPTR-1+IC)= ELM
1061      &                  WRKRC(ITDRPTR), N, TAG_ITERS+2+ITER,
1075      &                    WRKRC(ITDRPTR), N,
1081                         CALL ZMUMPS_UPDATESCALE(SCA,  WRKRC(ITDRPTR), N,
1098      &                    WRKRC(ITDRPTR), N)
1101                         CALL ZMUMPS_UPSCALE1(SCA,  WRKRC(ITDRPTR), N)
1121                         WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
1123                            WRKRC(ITDRPTR-1+IC) =
1124      &                          WRKRC(ITDRPTR-1+IC) + ELM
1135                      WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
1137                         WRKRC(ITDRPTR-1+IC) = WRKRC(ITDRPTR-1+IC) + ELM
1143      &                 WRKRC(ITDRPTR), N, TAG_ITERS+2+ITER,
1156      &                    WRKRC(ITDRPTR), N,
1163                         CALL ZMUMPS_UPDATESCALE(SCA,  WRKRC(ITDRPTR), N,
1175      &                    WRKRC(ITDRPTR), N)
1178                         CALL ZMUMPS_UPSCALE1(SCA,  WRKRC(ITDRPTR), N)
1186                CALL ZMUMPS_UPDATESCALE(SCA,  WRKRC(ITDRPTR), N,
1189                CALL ZMUMPS_UPSCALE1(SCA,  WRKRC(ITDRPTR), N)