/dports/math/slatec/src/ |
H A D | qrsolv.f | 89 INTEGER I,J,JP1,K,KP1,L,NSING 169 NSING = N 171 IF (SIGMA(J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 172 IF (NSING .LT. N) WA(J) = ZERO 174 IF (NSING .LT. 1) GO TO 150 175 DO 140 K = 1, NSING 176 J = NSING - K + 1 179 IF (NSING .LT. JP1) GO TO 130 180 DO 120 I = JP1, NSING
|
H A D | dqrslv.f | 92 INTEGER I,J,JP1,K,KP1,L,NSING 172 NSING = N 174 IF (SIGMA(J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 175 IF (NSING .LT. N) WA(J) = ZERO 177 IF (NSING .LT. 1) GO TO 150 178 DO 140 K = 1, NSING 179 J = NSING - K + 1 182 IF (NSING .LT. JP1) GO TO 130 183 DO 120 I = JP1, NSING
|
H A D | dmpar.f | 110 INTEGER I,ITER,J,JM1,JP1,K,L,NSING 122 NSING = N 125 IF (R(J,J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 126 IF (NSING .LT. N) WA1(J) = ZERO 128 IF (NSING .LT. 1) GO TO 50 129 DO 40 K = 1, NSING 130 J = NSING - K + 1 163 IF (NSING .LT. N) GO TO 120
|
H A D | lmpar.f | 107 INTEGER I,ITER,J,JM1,JP1,K,L,NSING 118 NSING = N 121 IF (R(J,J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 122 IF (NSING .LT. N) WA1(J) = ZERO 124 IF (NSING .LT. 1) GO TO 50 125 DO 40 K = 1, NSING 126 J = NSING - K + 1 159 IF (NSING .LT. N) GO TO 120
|
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/ |
H A D | qrsolv.f | 85 INTEGER I,J,JP1,K,KP1,L,NSING 164 NSING = N 166 IF (SIGMA(J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 167 IF (NSING .LT. N) WA(J) = ZERO 169 IF (NSING .LT. 1) GO TO 150 170 DO 140 K = 1, NSING 171 J = NSING - K + 1 174 IF (NSING .LT. JP1) GO TO 130 175 DO 120 I = JP1, NSING
|
H A D | lmpar.f | 103 INTEGER I,ITER,J,JM1,JP1,K,L,NSING 113 NSING = N 116 IF (R(J,J) .EQ. ZERO .AND. NSING .EQ. N) NSING = J - 1 117 IF (NSING .LT. N) WA1(J) = ZERO 119 IF (NSING .LT. 1) GO TO 50 120 DO 40 K = 1, NSING 121 J = NSING - K + 1 154 IF (NSING .LT. N) GO TO 120
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | lucia_icci0.F | 1 SUBROUTINE CHK_S_FOR_SING2(S,NDIM,NSING,X,SCR,SCR2,THRESG) argument 30 NSING = 0 38 IF(ABS(SCR(I)).LE.THRES) NSING = NSING + 1 45 WRITE(6,*) ' Number of singularities ', NSING 50 SUBROUTINE CHK_S_FOR_SING(S,NDIM,NSING,X,SCR,SCR2) argument 77 NSING = 0 80 IF(ABS(SCR(I)).LE.THRES) NSING = NSING + 1 87 WRITE(6,*) ' Number of singularities ', NSING 411 CALL CHK_S_FOR_SING(S,NDIM,NSING,WORK(KLSCR),WORK(KLSCR2)) 412 KLXNONSING = KLSCR + NSING*NDIM [all …]
|
H A D | lucia_ic.F | 3545 & NSING 3901 IF(NSING.NE.0) THEN 4772 NSING = 0 4777 NSING = NSING + 1 6010 CALL WRTMAT(WORK(KLMAT1),LEN,NSING,LEN,NSING) 6027 CALL WRTMAT(WORK(KLMAT1),LENS,NSING,LENS,NSING) 6043 CALL WRTMAT(WORK(KLMAT1),LENS,NSING,LENS,NSING) 6129 CALL WRTMAT(WORK(KLMAT1),NSX,NSING,NSX,NSING) 6166 DO I = 1, NSING 6206 CALL WRTMAT(WORK(KLMAT1),NSX,NSING,NSX,NSING) [all …]
|
H A D | lucia_icei.F | 3088 CALL CHK_S_FOR_SING2(WORK(KL_MATII2),LINT,NSING, 3091 NNONSING = LINT - NSING 3094 & NSING,NNONSING 3099 CALL COPVEC(WORK(KL_MATII2+(NSING+IORTN-1)*LINT), 3102 & WORK(KL_VECII1-1+NSING+IORTN)
|
H A D | lucia_nortci.F | 2173 & NSING,SCR,0) 3029 NSING = 0 3060 NSING = NSING + NSING_BLK 3072 IF(NSING.NE.0) THEN 3074 WRITE(6,*) ' Number of singularities in metric ', NSING
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | lucia_icci0.F | 1 SUBROUTINE CHK_S_FOR_SING2(S,NDIM,NSING,X,SCR,SCR2,THRESG) argument 30 NSING = 0 38 IF(ABS(SCR(I)).LE.THRES) NSING = NSING + 1 45 WRITE(6,*) ' Number of singularities ', NSING 50 SUBROUTINE CHK_S_FOR_SING(S,NDIM,NSING,X,SCR,SCR2) argument 77 NSING = 0 80 IF(ABS(SCR(I)).LE.THRES) NSING = NSING + 1 87 WRITE(6,*) ' Number of singularities ', NSING 411 CALL CHK_S_FOR_SING(S,NDIM,NSING,WORK(KLSCR),WORK(KLSCR2)) 412 KLXNONSING = KLSCR + NSING*NDIM [all …]
|
H A D | lucia_ic.F | 3545 & NSING 3901 IF(NSING.NE.0) THEN 4772 NSING = 0 4777 NSING = NSING + 1 6010 CALL WRTMAT(WORK(KLMAT1),LEN,NSING,LEN,NSING) 6027 CALL WRTMAT(WORK(KLMAT1),LENS,NSING,LENS,NSING) 6043 CALL WRTMAT(WORK(KLMAT1),LENS,NSING,LENS,NSING) 6129 CALL WRTMAT(WORK(KLMAT1),NSX,NSING,NSX,NSING) 6166 DO I = 1, NSING 6206 CALL WRTMAT(WORK(KLMAT1),NSX,NSING,NSX,NSING) [all …]
|
H A D | lucia_icei.F | 3088 CALL CHK_S_FOR_SING2(WORK(KL_MATII2),LINT,NSING, 3091 NNONSING = LINT - NSING 3094 & NSING,NNONSING 3099 CALL COPVEC(WORK(KL_MATII2+(NSING+IORTN-1)*LINT), 3102 & WORK(KL_VECII1-1+NSING+IORTN)
|
H A D | lucia_nortci.F | 2173 & NSING,SCR,0) 3029 NSING = 0 3060 NSING = NSING + NSING_BLK 3072 IF(NSING.NE.0) THEN 3074 WRITE(6,*) ' Number of singularities in metric ', NSING
|
/dports/math/R-cran-lpSolve/lpSolve/src/ |
H A D | lusol.c | 385 int NSING = LUSOL->luparm[LUSOL_IP_SINGULARITIES], in LUSOL_addSingularity() local 389 if((NSING > 0) && (NSING >= ASING)) { in LUSOL_addSingularity() 402 if(NSING == 1) in LUSOL_addSingularity() 403 LUSOL->isingular[NSING] = LUSOL->luparm[LUSOL_IP_SINGULARINDEX]; in LUSOL_addSingularity() 407 NSING++; in LUSOL_addSingularity() 408 if(NSING > 1) { in LUSOL_addSingularity() 409 LUSOL->isingular[0] = NSING; in LUSOL_addSingularity() 410 LUSOL->isingular[NSING] = singcol; in LUSOL_addSingularity() 412 LUSOL->luparm[LUSOL_IP_SINGULARITIES] = NSING; in LUSOL_addSingularity()
|
H A D | lusol1.h | 36 int *NSING, int IPVT[], int IX[]) argument 49 *NSING = 0; 72 (*NSING)++; 230 int *NSING, int IPVT[], int IX[]) argument 241 *NSING = 0; 258 (*NSING)++; 1662 int *LENL, int *LENU, int *NSING, argument 3049 *NRANK = MINMN-NSING; 3401 NSING = 0; 3592 NSING = LUSOL->luparm[LUSOL_IP_SINGULARITIES]; [all …]
|
/dports/math/lp_solve/lp_solve_5.5/bfp/bfp_LUSOL/LUSOL/ |
H A D | lusol.c | 391 int NSING = LUSOL->luparm[LUSOL_IP_SINGULARITIES], in LUSOL_addSingularity() local 395 if((NSING > 0) && (NSING >= ASING)) { in LUSOL_addSingularity() 408 if(NSING == 1) in LUSOL_addSingularity() 409 LUSOL->isingular[NSING] = LUSOL->luparm[LUSOL_IP_SINGULARINDEX]; in LUSOL_addSingularity() 413 NSING++; in LUSOL_addSingularity() 414 if(NSING > 1) { in LUSOL_addSingularity() 415 LUSOL->isingular[0] = NSING; in LUSOL_addSingularity() 416 LUSOL->isingular[NSING] = singcol; in LUSOL_addSingularity() 418 LUSOL->luparm[LUSOL_IP_SINGULARITIES] = NSING; in LUSOL_addSingularity()
|
H A D | lusol1.c | 36 int *NSING, int IPVT[], int IX[]) argument 49 *NSING = 0; 72 (*NSING)++; 230 int *NSING, int IPVT[], int IX[]) argument 241 *NSING = 0; 258 (*NSING)++; 1662 int *LENL, int *LENU, int *NSING, argument 3049 *NRANK = MINMN-NSING; 3401 NSING = 0; 3592 NSING = LUSOL->luparm[LUSOL_IP_SINGULARITIES]; [all …]
|
/dports/science/siconos/siconos-4.4.0/externals/hairer/ |
H A D | rodas.f | 576 NSING=0 844 80 NSING=NSING+1 845 IF (NSING.GE.5) GOTO 176
|
H A D | radau5.f | 755 NSING=0 1093 NSING=NSING+1 1094 IF (NSING.GE.5) GOTO 176
|
H A D | radaup.f | 738 NSING=0 1094 NSING=NSING+1 1095 IF (NSING.GE.5) GOTO 176
|
H A D | radau.f | 801 NSING=0 1660 NSING=NSING+1 1661 IF (NSING.GE.5) GOTO 176
|