Home
last modified time | relevance | path

Searched refs:NSING (Results 1 – 22 of 22) sorted by relevance

/dports/math/slatec/src/
H A Dqrsolv.f89 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 Ddqrslv.f92 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 Ddmpar.f110 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 Dlmpar.f107 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 Dqrsolv.f85 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 Dlmpar.f103 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 Dlucia_icci0.F1 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 Dlucia_ic.F3545 & 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 Dlucia_icei.F3088 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 Dlucia_nortci.F2173 & 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 Dlucia_icci0.F1 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 Dlucia_ic.F3545 & 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 Dlucia_icei.F3088 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 Dlucia_nortci.F2173 & 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 Dlusol.c385 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 Dlusol1.h36 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 Dlusol.c391 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 Dlusol1.c36 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 Drodas.f576 NSING=0
844 80 NSING=NSING+1
845 IF (NSING.GE.5) GOTO 176
H A Dradau5.f755 NSING=0
1093 NSING=NSING+1
1094 IF (NSING.GE.5) GOTO 176
H A Dradaup.f738 NSING=0
1094 NSING=NSING+1
1095 IF (NSING.GE.5) GOTO 176
H A Dradau.f801 NSING=0
1660 NSING=NSING+1
1661 IF (NSING.GE.5) GOTO 176