/dports/math/octave/octave-6.4.0/liboctave/external/odepack/ |
H A D | cfode.f | 47 DO 140 NQ = 2,12 55 NQM1 = NQ - 1 57 NQP1 = NQ + 1 59 PC(NQ) = 0.0D0 68 DO 120 I = 2,NQ 75 DO 130 I = 2,NQ 87 DO 230 NQ = 1,5 93 FNQ = DBLE(NQ) 94 NQP1 = NQ + 1 106 TESCO(2,NQ) = DBLE(NQP1)/ELCO(1,NQ) [all …]
|
H A D | scfode.f | 62 DO 140 NQ = 2,12 70 NQM1 = NQ - 1 72 NQP1 = NQ + 1 74 PC(NQ) = 0.0E0 83 DO 120 I = 2,NQ 90 DO 130 I = 2,NQ 102 DO 230 NQ = 1,5 108 FNQ = NQ 109 NQP1 = NQ + 1 121 TESCO(2,NQ) = NQP1/ELCO(1,NQ) [all …]
|
/dports/math/slatec/src/ |
H A D | dcfod.f | 67 DO 50 NQ = 2, 12 75 NQM1 = NQ - 1 77 NQP1 = NQ + 1 80 PC(NQ) = 0.0D0 91 DO 30 I = 2, NQ 100 DO 40 I = 2, NQ 114 DO 90 NQ = 1, 5 120 FNQ = NQ 121 NQP1 = NQ + 1 137 TESCO(2,NQ) = NQP1/ELCO(1,NQ) [all …]
|
H A D | cfod.f | 67 DO 140 NQ = 2,12 75 NQM1 = NQ - 1 77 NQP1 = NQ + 1 79 PC(NQ) = 0.0E0 88 DO 120 I = 2,NQ 95 DO 130 I = 2,NQ 107 DO 230 NQ = 1,5 113 FNQ = NQ 114 NQP1 = NQ + 1 126 TESCO(2,NQ) = NQP1/ELCO(1,NQ) [all …]
|
H A D | ddstp.f | 255 NQ = NQ - 1 256 RC = RC*EL(1,NQ)/EL(1,NQ+1) 293 NQUSED = NQ 309 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.D0/(NQ+1))) 325 8 (ETEST*EL(NQ+1,1)/EPS)**(1.D0/(NQ+1))) 348 NQ = MIN(NQ, MAXORD) 413 NQ = NQ - 1 414 RC = RC*EL(1,NQ)/EL(1,NQ+1) 422 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1) 423 NQ = NQ + 1 [all …]
|
H A D | cdstp.f | 256 NQ = NQ - 1 257 RC = RC*EL(1,NQ)/EL(1,NQ+1) 294 NQUSED = NQ 310 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.E0/(NQ+1))) 326 8 (ETEST*EL(NQ+1,1)/EPS)**(1.E0/(NQ+1))) 349 NQ = MIN(NQ, MAXORD) 414 NQ = NQ - 1 415 RC = RC*EL(1,NQ)/EL(1,NQ+1) 423 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1) 424 NQ = NQ + 1 [all …]
|
H A D | sdstp.f | 254 NQ = NQ - 1 255 RC = RC*EL(1,NQ)/EL(1,NQ+1) 292 NQUSED = NQ 308 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.E0/(NQ+1))) 324 8 (ETEST*EL(NQ+1,1)/EPS)**(1.E0/(NQ+1))) 347 NQ = MIN(NQ, MAXORD) 412 NQ = NQ - 1 413 RC = RC*EL(1,NQ)/EL(1,NQ+1) 421 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1) 422 NQ = NQ + 1 [all …]
|
H A D | dstod.f | 130 NQ = 1 175 NQ = MAXORD 178 EL(I) = ELCO(I,NQ) 180 NQNYH = NQ*NYH 183 CONIT = 0.5D0/(NQ+2) 205 EL(I) = ELCO(I,NQ) 207 NQNYH = NQ*NYH 210 CONIT = 0.5D0/(NQ+2) 586 NEWQ = NQ 628 NQ = NEWQ [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/depac/ |
H A D | cfod.f | 55 DO 140 NQ = 2,12 63 NQM1 = NQ - 1 65 NQP1 = NQ + 1 67 PC(NQ) = 0.0E0 76 DO 120 I = 2,NQ 83 DO 130 I = 2,NQ 95 DO 230 NQ = 1,5 101 FNQ = FLOAT(NQ) 102 NQP1 = NQ + 1 114 TESCO(2,NQ) = FLOAT(NQP1)/ELCO(1,NQ) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/sdriv/ |
H A D | sdstp.f | 212 NQ = NQ - 1 213 RC = RC*EL(1,NQ)/EL(1,NQ+1) 248 NQUSED = NQ 265 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.E0/REAL(NQ+1))) 281 8 (ETEST*EL(NQ+1,1)/EPS)**(1.E0/REAL(NQ+1))) 304 NQ = MIN(NQ, MAXORD) 357 NQ = NQ - 1 358 RC = RC*EL(1,NQ)/EL(1,NQ+1) 366 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/REAL(NQ+1) 367 NQ = NQ + 1 [all …]
|
H A D | sdntp.f | 1 SUBROUTINE SDNTP (H,K,N,NQ,T,TOUT,YH,Y) argument 16 KUSED = MIN(K, NQ) 19 10 Y(I) = YH(I,NQ+1) 21 DO 20 JJ = 1,NQ 22 J = NQ + 1 - JJ 28 40 FACTOR = FACTOR*REAL(NQ+1-KK) 30 50 Y(I) = FACTOR*YH(I,NQ+1) 31 IF (KUSED .NE. NQ) THEN 33 DO 80 JJ = KUSED+1,NQ 34 J = K + 1 + NQ - JJ
|
/dports/math/cmlib/cmlib-3.0_8/src/cdriv/ |
H A D | cdstp.f | 216 NQ = NQ - 1 217 RC = RC*EL(1,NQ)/EL(1,NQ+1) 252 NQUSED = NQ 269 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.E0/REAL(NQ+1))) 285 8 (ETEST*EL(NQ+1,1)/EPS)**(1.E0/REAL(NQ+1))) 308 NQ = MIN(NQ, MAXORD) 361 NQ = NQ - 1 362 RC = RC*EL(1,NQ)/EL(1,NQ+1) 370 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/REAL(NQ+1) 371 NQ = NQ + 1 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/ddriv/ |
H A D | ddstp.f | 212 NQ = NQ - 1 213 RC = RC*EL(1,NQ)/EL(1,NQ+1) 248 NQUSED = NQ 265 8 (ETEST/(EPS*EL(NQ+1,1)))**(1.D0/DBLE(NQ+1))) 281 8 (ETEST*EL(NQ+1,1)/EPS)**(1.D0/DBLE(NQ+1))) 304 NQ = MIN(NQ, MAXORD) 357 NQ = NQ - 1 358 RC = RC*EL(1,NQ)/EL(1,NQ+1) 366 360 YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/DBLE(NQ+1) 367 NQ = NQ + 1 [all …]
|
H A D | ddntp.f | 1 SUBROUTINE DDNTP (H,K,N,NQ,T,TOUT,YH,Y) argument 16 KUSED = MIN(K, NQ) 19 10 Y(I) = YH(I,NQ+1) 21 DO 20 JJ = 1,NQ 22 J = NQ + 1 - JJ 28 40 FACTOR = FACTOR*DBLE(NQ+1-KK) 30 50 Y(I) = FACTOR*YH(I,NQ+1) 31 IF (KUSED .NE. NQ) THEN 33 DO 80 JJ = KUSED+1,NQ 34 J = K + 1 + NQ - JJ
|
/dports/www/neon/neon-0.32.1/src/ |
H A D | ne_string.c | 698 #define NQ 1 macro 703 /* 2x */ QT, NQ, QT, NQ, NQ, QT, NQ, QT, QT, QT, QT, NQ, QT, NQ, NQ, QT, 705 /* 4x */ QT, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, 706 /* 5x */ NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, QT, QT, QT, NQ, NQ, 707 /* 6x */ NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, 708 /* 7x */ NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, NQ, QT, NQ, QT, NQ, QT, 719 #undef NQ
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pclarfc.f | 244 $ NQ, RDEST local 299 $ NQ = NQ - ICOFF 609 IPW = NQ+1 617 IPW = NQ+1 652 IPW = NQ+1 680 IF( NQ.GT.0 ) THEN 714 IPW = NQ+1 723 IPW = NQ+1 734 IF( NQ.GT.0 ) THEN 756 IPW = NQ+1 [all …]
|
H A D | pdlarf.f | 243 $ NQ, RDEST local 298 $ NQ = NQ - ICOFF 611 IPW = NQ+1 619 IPW = NQ+1 654 IPW = NQ+1 681 IF( NQ.GT.0 ) THEN 715 IPW = NQ+1 725 IPW = NQ+1 736 IF( NQ.GT.0 ) THEN 759 IPW = NQ+1 [all …]
|
H A D | pslarf.f | 243 $ NQ, RDEST 298 $ NQ = NQ - ICOFF 611 IPW = NQ+1 619 IPW = NQ+1 654 IPW = NQ+1 681 IF( NQ.GT.0 ) THEN 715 IPW = NQ+1 725 IPW = NQ+1 736 IF( NQ.GT.0 ) THEN 759 IPW = NQ+1 [all …]
|
H A D | pclarf.f | 244 $ NQ, RDEST local 299 $ NQ = NQ - ICOFF 613 IPW = NQ+1 621 IPW = NQ+1 656 IPW = NQ+1 683 IF( NQ.GT.0 ) THEN 717 IPW = NQ+1 727 IPW = NQ+1 738 IF( NQ.GT.0 ) THEN 761 IPW = NQ+1 [all …]
|
H A D | pzlarf.f | 244 $ NQ, RDEST local 299 $ NQ = NQ - ICOFF 613 IPW = NQ+1 621 IPW = NQ+1 656 IPW = NQ+1 683 IF( NQ.GT.0 ) THEN 717 IPW = NQ+1 727 IPW = NQ+1 738 IF( NQ.GT.0 ) THEN 761 IPW = NQ+1 [all …]
|
H A D | pzlarfc.f | 244 $ NQ, RDEST local 299 $ NQ = NQ - ICOFF 609 IPW = NQ+1 617 IPW = NQ+1 652 IPW = NQ+1 680 IF( NQ.GT.0 ) THEN 714 IPW = NQ+1 723 IPW = NQ+1 734 IF( NQ.GT.0 ) THEN 756 IPW = NQ+1 [all …]
|
/dports/science/simbody/simbody-Simbody-3.7/SimTKmath/Geometry/src/ |
H A D | GeodesicEquations.h | 149 NQ = D+NJ, // Number of 2nd order equations. enumerator 150 N = 2*NQ, // Number of differential equations. 184 static const Vec<NQ>& getQ(const Vec<N>& y) {return Vec<NQ>::getAs(&y[0]);} in getQ() 185 static Vec<NQ>& updQ(Vec<N>& y) {return Vec<NQ>::updAs(&y[0]);} in updQ() 187 static const Vec<NQ>& getU(const Vec<N>& y) {return Vec<NQ>::getAs(&y[NQ]);} in getU() 188 static Vec<NQ>& updU(Vec<N>& y) {return Vec<NQ>::updAs(&y[NQ]);} in updU() 196 static Vec3& updV(Vec<N>& y) {return Vec3::updAs(&y[NQ]);} in updV() 202 static Real& updJRotDot(Vec<N>& y) {return y[NQ+D];} in updJRotDot() 207 static Real& updJTransDot(Vec<N>& y) {return y[NQ+D+1];} in updJTransDot() 228 NQ = D+NJ, // Number of 2nd order equations. enumerator [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/ |
H A D | uearea.f | 77 NQ=0 82 NQ=4 87 NQ=NQ+1 88 AX(NQ)=XP(N) 89 AY(NQ)=YP(N) 109 NQ=NQ+1 130 NP(1)=NQ-NPT 134 AX(NQ+1)=AX(1) 135 AX(NQ+2)=AX(2) 150 NP(2)=NQ-NPT [all …]
|
/dports/sysutils/nq/nq-0.4/ |
H A D | tests | 3 : ${NQ:=../nq} 28 check 'fails with no arguments' ! $NQ 43 check 'enqueing true' f1=$($NQ true) 44 check 'enqueing sleep 500' f2=$($NQ sleep 500) 45 check 'first job is done already' $NQ -t $f1 61 check 'enqueing env' f1=$($NQ env) 62 $NQ -w 78 check 'second job is running' ! $NQ -t $f2 79 $NQ -w $f2 80 check 'fourth job is running' ! $NQ -t $f4 [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/odr/odrpack/ |
H A D | d_odr.f | 890 + WRK1(N,M,NQ),WRK2(N,NQ),WRK6(N,NP,NQ),WRK7(-2:2,NQ),XPLUSD(N,M) 1049 + WE1(LDWE,LD2WE,NQ),WRK1(N,M,NQ),WRK2(N,NQ),WRK3(NP), 1368 + WRK0(NQ,NQ),WRK4(M,M) 2262 + WRK1(N,M,NQ),WRK2(N,NQ),WRK3(NP),WRK6(N,NP,NQ), 2568 + WRK1(N,M,NQ),WRK2(N,NQ),WRK3(NP),WRK6(N,NP,NQ), 2843 + BETA(NP),DIFF(NQ,NP+M),FJACB(N,NP,NQ),FJACD(N,M,NQ), 2845 + WRK1(N,M,NQ),WRK2(N,NQ),WRK6(N,NP,NQ),XPLUSD(N,M) 4715 LWRK = N*M*NQ + N*NQ 5038 + DELTA(N,M),F(N,NQ),FJACB(N,NP,NQ),FJACD(N,M,NQ), 5303 + F(N,NQ),FJACB(N,NP,NQ),FJACD(N,M,NQ),FN(N,NQ),FS(N,NQ), [all …]
|