Home
last modified time | relevance | path

Searched refs:JL (Results 1 – 25 of 3101) sorted by relevance

12345678910>>...125

/dports/print/lout/lout-3.40/doc/expert/
H A Ddet_lexi61 @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 Drowina3.F122 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 Drowina2.F110 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 Dscm0.F37 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 Drowina.F93 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 Drhesus_monkey_gl.aux12 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 Dhuman_gl.aux29 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 Dmouse_gl.aux13 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 DJudy1LCheck.c209 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 DJudy1LHCheck.c209 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 DJudy1LTime.c334 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 DJudy1LHTime.c818 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 Dupdate.f19 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 Dpdorgqr.f169 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 Dpcungqr.f169 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 Dpsorgqr.f169 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 Dpzungqr.f169 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 Dout1.f88 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 Dboxes.f162 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 Dpmany.f150 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 Dcsplit.f77 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 Dssilus.f2 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 Ddsilus.f2 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 Dzgbt01.f147 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 Dsgbt01.f147 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 ) )

12345678910>>...125