Lines Matching refs:ITDRPTR
2540 INTEGER ITDRPTR, ITDCPTR, ISRRPTR
2713 ITDRPTR = 1
2714 ITDCPTR = ITDRPTR + M
2733 CALL ZMUMPS_650(WRKRC(ITDRPTR),M,
2738 CALL ZMUMPS_670(WRKRC(ITDRPTR),M, RZERO)
2749 IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
2750 WRKRC(ITDRPTR-1+IR)= ELM
2764 IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
2765 WRKRC(ITDRPTR-1+IR)= ELM
2784 & WRKRC(ITDRPTR), M, TAG_ITERS+2+ITER,
2798 & WRKRC(ITDRPTR), M,
2814 CALL ZMUMPS_665(ROWSCA, WRKRC(ITDRPTR),
2831 & WRKRC(ITDRPTR), M)
2841 CALL ZMUMPS_666(ROWSCA, WRKRC(ITDRPTR), M)
2859 WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
2870 WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
2886 & WRKRC(ITDRPTR), M, TAG_ITERS+2+ITER,
2899 & WRKRC(ITDRPTR), M,
2915 CALL ZMUMPS_665(ROWSCA, WRKRC(ITDRPTR),
2927 & WRKRC(ITDRPTR), M)
2937 CALL ZMUMPS_666(ROWSCA, WRKRC(ITDRPTR), M)
2947 CALL ZMUMPS_665(ROWSCA, WRKRC(ITDRPTR), M,
2951 CALL ZMUMPS_666(ROWSCA, WRKRC(ITDRPTR), M)
3009 INTEGER ITDRPTR, ISRRPTR, OSRRPTR
3123 ITDRPTR = 1
3124 ISRRPTR = ITDRPTR + N
3136 CALL ZMUMPS_650(WRKRC(ITDRPTR),N,
3139 CALL ZMUMPS_670(WRKRC(ITDRPTR),N, RZERO)
3149 IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
3150 WRKRC(ITDRPTR-1+IR)= ELM
3152 IF(WRKRC(ITDRPTR-1+IC)<ELM) THEN
3153 WRKRC(ITDRPTR-1+IC)= ELM
3164 IF(WRKRC(ITDRPTR-1+IR)<ELM) THEN
3165 WRKRC(ITDRPTR-1+IR)= ELM
3167 IF(WRKRC(ITDRPTR-1+IC)<ELM) THEN
3168 WRKRC(ITDRPTR-1+IC)= ELM
3174 & WRKRC(ITDRPTR), N, TAG_ITERS+2+ITER,
3188 & WRKRC(ITDRPTR), N,
3194 CALL ZMUMPS_665(SCA, WRKRC(ITDRPTR), N,
3210 & WRKRC(ITDRPTR), N)
3213 CALL ZMUMPS_666(SCA, WRKRC(ITDRPTR), N)
3231 WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
3233 WRKRC(ITDRPTR-1+IC) =
3234 & WRKRC(ITDRPTR-1+IC) + ELM
3245 WRKRC(ITDRPTR-1+IR) = WRKRC(ITDRPTR-1+IR) + ELM
3247 WRKRC(ITDRPTR-1+IC) = WRKRC(ITDRPTR-1+IC) + ELM
3253 & WRKRC(ITDRPTR), N, TAG_ITERS+2+ITER,
3266 & WRKRC(ITDRPTR), N,
3272 CALL ZMUMPS_665(SCA, WRKRC(ITDRPTR), N,
3283 & WRKRC(ITDRPTR), N)
3286 CALL ZMUMPS_666(SCA, WRKRC(ITDRPTR), N)
3294 CALL ZMUMPS_665(SCA, WRKRC(ITDRPTR), N,
3297 CALL ZMUMPS_666(SCA, WRKRC(ITDRPTR), N)