/dports/print/lout/lout-3.40/doc/expert/ |
H A D | det_lexi | 61 @JL "//" 62 @JL "^/" 63 @JL "^//" 66 @JL "||" 67 @JL "^|" 68 @JL "^||" 71 @JL "^&" 74 @JL "{" 75 @JL "}" 107 @JL "@End" [all …]
|
/dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
H A D | rowina3.F | 122 INTEGER JL, IP 139 DO 110 JL = 1, KI 140 PW(JL,1) = P(JL) 264 DO 210 JL = 1,KI 274 PW(JL,1) = P(JL) 279 DO 220 JL = 1,KI 280 PW(JL,2) = - PW(JL-1,1)/3.0 - 0.5*PW(JL,1) 281 1 + PW(JL+1,1) - PW(JL+2,1)/6.0 282 PW(JL+1,3) = PW(JL-1,1)/6.0 - PW(JL,1) 283 1 + 0.5*PW(JL+1,1) + PW(JL+2,1)/3.0 [all …]
|
H A D | rowina2.F | 110 INTEGER JL, IP 124 DO 110 JL = 1, KI 125 PW(JL,1) = P(JL) 175 DO 210 JL = 1,KI 183 PW(JL,1) = P(JL) 188 DO 220 JL = 1,KI 189 PW(JL,2) = - PW(JL-1,1)/3.0 - 0.5*PW(JL,1) 190 1 + PW(JL+1,1) - PW(JL+2,1)/6.0 191 PW(JL+1,3) = PW(JL-1,1)/6.0 - PW(JL,1) 192 1 + 0.5*PW(JL+1,1) + PW(JL+2,1)/3.0 [all …]
|
H A D | scm0.F | 37 INTEGER JL 48 DO 200 JL=1,KLG 49 IF(ABS(PFR(JL)-PFL(JL)).GT.ZEPS) THEN 50 ZALPHA=PDL(JL)/(PFR(JL)-PFL(JL)) 51 ZBETA =PDR(JL)/(PFR(JL)-PFL(JL)) 52 IF(ZALPHA.LE.0.) PDL(JL)=0. 53 IF(ZBETA .LE.0.) PDR(JL)=0. 54 IF(ZALPHA.GT.ZFAC) PDL(JL)=ZFAC*(PFR(JL)-PFL(JL)) 55 IF(ZBETA .GT.ZFAC) PDR(JL)=ZFAC*(PFR(JL)-PFL(JL)) 57 PDL(JL)=0. [all …]
|
H A D | rowina.F | 93 DO 102 JL=1,KI 94 PW(JL,1)=P(JL) 100 DO 105 JL=1,KO 109 DO 302 JL=1,KI 110 PW(JL,1)=P(JL) 115 DO 305 JL=1,KI 116 PW(JL,2)= - PW(JL-1,1)/3. - 0.5*PW(JL,1) 117 1 + PW(JL+1,1) - PW(JL+2,1)/6. 118 PW(JL+1,3)= PW(JL-1,1)/6. - PW(JL,1) 119 1 + 0.5*PW(JL+1,1) + PW(JL+2,1)/3. [all …]
|
/dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/app/igblast/optional_file/ |
H A D | rhesus_monkey_gl.aux | 12 JL1 1 JL 6 1 13 JL2 1 JL 6 1 14 JL3 1 JL 6 1 15 JL4 1 JL 6 1 16 JL5 1 JL 6 1 17 JL6 1 JL 6 1 18 JLx1 1 JL 6 1 29 IGLJ1*01 1 JL 6 1 30 IGLJ2*01 1 JL 6 1 31 IGLJ3*01 1 JL 6 1 [all …]
|
H A D | human_gl.aux | 29 IGLJ1*01 1 JL 6 1 30 IGLJ2*01 1 JL 6 1 31 IGLJ3*01 1 JL 6 1 32 IGLJ3*02 1 JL 6 1 33 IGLJ4*01 1 JL 6 1 34 IGLJ5*01 1 JL 6 1 35 IGLJ5*02 1 JL 6 1 36 IGLJ6*01 1 JL 6 1 37 IGLJ7*01 1 JL 6 1 38 IGLJ7*02 1 JL 6 1
|
H A D | mouse_gl.aux | 13 JL1 1 JL 6 1 14 JL2 1 JL 6 1 15 JL3 1 JL 6 1 35 IGLJ1*01 1 JL 6 1 36 IGLJ2*01 1 JL 6 1 37 IGLJ3*01 1 JL 6 1 38 IGLJ3P*01 1 JL 6 1 39 IGLJ4*01 1 JL 6 1 40 IGLJ5*01 1 JL 6 1
|
/dports/devel/judy/judy-1.0.5/test/ |
H A D | Judy1LCheck.c | 209 void *JL = NULL; // JudyL in main() local 430 JLC(CountL, JL, 0, ~0); in main() 442 JLC(CountL, JL, 0, ~0); in main() 511 JLI(PValue, *JL, TstIndex); in TestJudyIns() 520 JLG(PValue1, *JL, TstIndex); in TestJudyIns() 571 JLG(PValue, JL, TstIndex); in TestJudyGet() 610 JLI(PValue, *JL, TstIndex); in TestJudyDup() 643 JLC(CountL, JL, 0, -1); in TestJudyCount() 769 JLG(PValue, JL, JLindex); in TestJudyNextEmpty() 819 JLG(PValue, JL, JLindex); in TestJudyPrevEmpty() [all …]
|
H A D | Judy1LHCheck.c | 209 void *JL = NULL; // JudyL in main() local 433 JLC(CountL, JL, 0, ~0); in main() 445 JLC(CountL, JL, 0, ~0); in main() 527 JLI(PValue, *JL, TstIndex); in TestJudyIns() 539 JLG(PValue1, *JL, TstIndex); in TestJudyIns() 624 JLG(PValue, JL, TstIndex); in TestJudyGet() 670 JLI(PValue, *JL, TstIndex); in TestJudyDup() 709 JLC(CountL, JL, 0, -1); in TestJudyCount() 860 JLG(PValue, JL, JLindex); in TestJudyNextEmpty() 924 JLG(PValue, JL, JLindex); in TestJudyPrevEmpty() [all …]
|
H A D | Judy1LTime.c | 334 void *JL = NULL; // JudyL in main() local 660 TestJudyCount(J1, JL, LowIndex, Meas); in main() 716 JLC(CountL, JL, 0, -1); // get the counts in main() 843 JLD(Rc, *JL, TstIndex); in TestJudyIns() 857 JLI(PValue, *JL, TstIndex); in TestJudyIns() 960 JLI(PValue, *JL, TstIndex); in TestJudyDup() 1064 JLG(PValue, JL, TstIndex); in TestJudyGet() 1154 JLN(PValue, JL, TstIndex); in TestJudyCount() 1235 JLF(PValue, JL, Jindex); in TestJudyNext() 1321 JLL(PValue, JL, JLindex); in TestJudyPrev() [all …]
|
H A D | Judy1LHTime.c | 818 TestJudyNext(J1, JL, 0, Meas); in main() 877 CountL = JudyLCount(JL, 0, -1, PJE0); in main() 919 Bytes = JudyLFreeArray(&JL, PJE0); in main() 1060 JLD(Rc, *JL, TstIndex); in TestJudyIns() 1076 JLI(PValue, *JL, TstIndex); in TestJudyIns() 1409 JLG(PValue, JL, TstIndex); in TestJudyGet() 1649 JLN(PValue, JL, TstIndex); in TestJudyCount() 1750 JLF(PValue, JL, JLindex); in TestJudyNext() 1882 JLL(PValue, JL, JLindex); in TestJudyPrev() 1993 JLNE(Rc, JL, JLindex); in TestJudyNextEmpty() [all …]
|
/dports/math/R-cran-minqa/minqa/src/ |
H A D | update.f | 19 JL=1 22 JL=IDZ 25 TEMPA=ZMAT(KNEW,JL)/TEMP 28 TEMP=TEMPA*ZMAT(I,JL)+TEMPB*ZMAT(I,J) 29 ZMAT(I,J)=TEMPA*ZMAT(I,J)-TEMPB*ZMAT(I,JL) 30 10 ZMAT(I,JL)=TEMP 40 IF (JL .GT. 1) TEMPB=ZMAT(KNEW,JL) 43 IF (JL .GT. 1) W(I)=W(I)+TEMPB*ZMAT(I,JL) 56 IF (JL .EQ. 1) THEN 69 IF (BETA .GE. ZERO) JA=JL [all …]
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pdorgqr.f | 169 INTEGER I, IACOL, IAROW, ICTXT, IINFO, IPW, J, JB, JL, 249 JL = MAX( ( (JA+K-2) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA ) 255 CALL PDLASET( 'All', JL-JA, JA+N-JL, ZERO, ZERO, A, IA, JL, 260 CALL PDORG2R( M-JL+JA, JA+N-JL, JA+K-JL, A, IA+JL-JA, JL, DESCA, 265 IF( JL.GT.JN+1 ) THEN 269 DO 10 J = JL-DESCA( NB_ ), JN+1, -DESCA( NB_ ) 304 IF( JL.GT.JA ) THEN
|
H A D | pcungqr.f | 169 INTEGER I, IACOL, IAROW, ICTXT, IINFO, IPW, J, JB, JL, local 249 JL = MAX( ( (JA+K-2) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA ) 255 CALL PCLASET( 'All', JL-JA, JA+N-JL, ZERO, ZERO, A, IA, JL, 260 CALL PCUNG2R( M-JL+JA, JA+N-JL, JA+K-JL, A, IA+JL-JA, JL, DESCA, 265 IF( JL.GT.JN+1 ) THEN 269 DO 10 J = JL-DESCA( NB_ ), JN+1, -DESCA( NB_ ) 304 IF( JL.GT.JA ) THEN
|
H A D | psorgqr.f | 169 INTEGER I, IACOL, IAROW, ICTXT, IINFO, IPW, J, JB, JL, local 249 JL = MAX( ( (JA+K-2) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA ) 255 CALL PSLASET( 'All', JL-JA, JA+N-JL, ZERO, ZERO, A, IA, JL, 260 CALL PSORG2R( M-JL+JA, JA+N-JL, JA+K-JL, A, IA+JL-JA, JL, DESCA, 265 IF( JL.GT.JN+1 ) THEN 269 DO 10 J = JL-DESCA( NB_ ), JN+1, -DESCA( NB_ ) 304 IF( JL.GT.JA ) THEN
|
H A D | pzungqr.f | 169 INTEGER I, IACOL, IAROW, ICTXT, IINFO, IPW, J, JB, JL, local 249 JL = MAX( ( (JA+K-2) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA ) 255 CALL PZLASET( 'All', JL-JA, JA+N-JL, ZERO, ZERO, A, IA, JL, 260 CALL PZUNG2R( M-JL+JA, JA+N-JL, JA+K-JL, A, IA+JL-JA, JL, DESCA, 265 IF( JL.GT.JN+1 ) THEN 269 DO 10 J = JL-DESCA( NB_ ), JN+1, -DESCA( NB_ ) 304 IF( JL.GT.JA ) THEN
|
/dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
H A D | out1.f | 88 JL=(LL-1)*20+1 91 WRITE(OUNIT,2) TITLE, (CLAB(J),J=JL,JU) 92 WRITE(OUNIT,3)(DASH,J=JL,JU+1) 96 WRITE(OUNIT,4)RLAB(I),(A(I,J),J=JL,JU) 104 IF(L.GE.JL.AND.L.LE.JU+1) AA(L-JL+2)=DASH
|
H A D | boxes.f | 162 JL=IVAR(K,I) 163 20 IF (JL.NE.0) NW(K)=NW(K)+NC(JL) 181 JL=IVAR(K,J) 182 WRITE(OUNIT,6) CLAB(JL), XMIN(JL),XMAX(JL),NC(JL)
|
H A D | pmany.f | 150 JL=NC(J) 152 DO 80 JJ=JL,JU 184 JL=NC(JC) 185 L=ICHAR(AA(JL+JP-1)) - ICHAR('0') 186 L=L+JL-1 188 DO 120 K=JL,JJU 191 DO 130 K=JL,JJU 193 140 L=L-JJU+JL-1
|
H A D | csplit.f | 77 JL=INT(WORK(10,IR)) 80 IF(IWORK(3,K).EQ.JL+1.AND.IWORK(4,K).EQ.JU+1) THEN 92 DO 20 J=JL,JU 120 WORK(13,IR)=JL 121 DO 100 J=JL,JU-1 122 JJ=JU-J+JL 125 DO 70 L=JL,JJ
|
/dports/math/slatec/src/ |
H A D | ssilus.f | 2 SUBROUTINE SSILUS (N, NELT, IA, JA, A, ISYM, NL, IL, JL, L, DINV, argument 164 INTEGER IA(NELT), IL(NL), IU(NU), JA(NELT), JL(NL), JU(NU), 219 JL(NROW(IROW)) = ICOL 256 IF( JL(I).GT.JL(J) ) THEN 280 INDXC1 = JU(JL(INDX)) 281 INDXC2 = JU(JL(INDX)+1) - 1 283 160 KR = JL(INDXR1) 297 180 L(INDX) = L(INDX)/DINV(JL(INDX)) 311 210 KR = JL(INDXR1) 335 270 KR = JL(INDXR1)
|
H A D | dsilus.f | 2 SUBROUTINE DSILUS (N, NELT, IA, JA, A, ISYM, NL, IL, JL, L, DINV, argument 165 INTEGER IA(NELT), IL(NL), IU(NU), JA(NELT), JL(NL), JU(NU), 220 JL(NROW(IROW)) = ICOL 257 IF( JL(I).GT.JL(J) ) THEN 281 INDXC1 = JU(JL(INDX)) 282 INDXC2 = JU(JL(INDX)+1) - 1 284 160 KR = JL(INDXR1) 298 180 L(INDX) = L(INDX)/DINV(JL(INDX)) 312 210 KR = JL(INDXR1) 336 270 KR = JL(INDXR1)
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 189 JL = MIN( KL, M-J ) 193 DO 20 I = LENJ + 1, JU + JL + 1 219 IF( JUA+JL+1.GT.0 ) 220 $ CALL ZAXPY( JUA+JL+1, -DCMPLX( ONE ), A( KU+1-JUA, J ), 225 RESID = MAX( RESID, DZASUM( JU+JL+1, WORK, 1 ) )
|
H A D | sgbt01.f | 147 INTEGER I, I1, I2, IL, IP, IW, J, JL, JU, JUA, KD, LENJ 188 JL = MIN( KL, M-J ) 192 DO 20 I = LENJ + 1, JU + JL + 1 218 IF( JUA+JL+1.GT.0 ) 219 $ CALL SAXPY( JUA+JL+1, -ONE, A( KU+1-JUA, J ), 1, 224 RESID = MAX( RESID, SASUM( JU+JL+1, WORK, 1 ) )
|