/dports/science/dcl/dcl-5.4.8/src/grph1/sgpack/ |
H A D | sglqnp.f | 13 LOGICAL LX(NPARA) local 25 DATA CPARAS( 1)/'LCLIP '/, LX( 1) / .FALSE. / 26 DATA CPARAS( 2)/'LCHAR '/, LX( 2) / .FALSE. / 27 DATA CPARAS( 3)/'LLNINT '/, LX( 3) / .FALSE. / 28 DATA CPARAS( 4)/'LGCINT '/, LX( 4) / .TRUE. / 121 CALL RTLGET('SG', CPARAS, LX, NPARA) 122 CALL RLLGET(CPARAL, LX, NPARA) 127 LPARA = LX(IDX) 137 CALL RTLGET('SG', CPARAS, LX, NPARA) 138 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/jacobian/ |
H A D | hecmw_Jacob_241.f90 | 41 do LX=1,2 42 RI=XG(LX) 60 HR(LX,LY,1)=-.25*SM 61 HR(LX,LY,2)= .25*SM 62 HR(LX,LY,3)= .25*SP 63 HR(LX,LY,4)=-.25*SP 65 HS(LX,LY,1)=-.25*RM 66 HS(LX,LY,2)=-.25*RP 92 BX(LX,LY,J)=XJI11*HR(LX,LY,J)+XJI12*HS(LX,LY,J) 93 BY(LX,LY,J)=XJI21*HR(LX,LY,J)+XJI22*HS(LX,LY,J) [all …]
|
H A D | hecmw_Jacob_361.f90 | 21 integer(kind=kint):: LX, LY, LZ local 43 do LX=1,2 44 RI=XG(LX) 153 do LX = 1, 2 157 N(J,1) = H(LX,LY,LZ,1) 158 N(J,2) = H(LX,LY,LZ,2) 159 N(J,3) = H(LX,LY,LZ,3) 160 N(J,4) = H(LX,LY,LZ,4) 161 N(J,5) = H(LX,LY,LZ,5) 162 N(J,6) = H(LX,LY,LZ,6) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/swpack.win/ |
H A D | swlqnp.f | 10 LOGICAL LX(NPARA), LPARA local 21 DATA CPARAS(1) / 'LWAIT ' / , LX(1) / .TRUE. / 22 DATA CPARAS(2) / 'LWAIT0 ' / , LX(2) / .FALSE. / 23 DATA CPARAS(3) / 'LWAIT1 ' / , LX(3) / .TRUE. / 24 DATA CPARAS(4) / 'LKEY ' / , LX(4) / .TRUE. / 90 CALL RTLGET('SW', CPARAS, LX, NPARA) 91 CALL RLLGET(CPARAL, LX, NPARA) 96 LPARA = LX(IDX) 106 CALL RTLGET('SW', CPARAS, LX, NPARA) 107 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/swpack/ |
H A D | swlqnp.f | 10 LOGICAL LX(NPARA), LPARA local 21 DATA CPARAS(1) / 'LWAIT ' / , LX(1) / .TRUE. / 22 DATA CPARAS(2) / 'LWAIT0 ' / , LX(2) / .FALSE. / 23 DATA CPARAS(3) / 'LWAIT1 ' / , LX(3) / .TRUE. / 24 DATA CPARAS(4) / 'LKEY ' / , LX(4) / .TRUE. / 90 CALL RTLGET('SW', CPARAS, LX, NPARA) 91 CALL RLLGET(CPARAL, LX, NPARA) 96 LPARA = LX(IDX) 106 CALL RTLGET('SW', CPARAS, LX, NPARA) 107 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uzpack/ |
H A D | uzlqnp.f | 13 LOGICAL LX(NPARA) local 24 DATA CPARAS( 1) / 'LABELXB ' /, LX( 1) / .TRUE. / 26 DATA CPARAS( 3) / 'LABELXU ' /, LX( 3) / .TRUE. / 91 CALL RTLGET('UZ', CPARAS, LX, NPARA) 92 CALL RLLGET(CPARAL, LX, NPARA) 97 LPARA = LX(IDX) 107 CALL RTLGET('UZ', CPARAS, LX, NPARA) 108 CALL RLLGET(CPARAL, LX, NPARA) 113 LX(IDX) = LPARA 135 WRITE(UNIT=IU,IOSTAT=IOS) LX [all …]
|
/dports/www/p5-HTML-LinkExtractor/HTML-LinkExtractor-0.13/ |
H A D | test.pl | 26 my $LX = HTML::LinkExtractor::->new(undef,undef,1); 28 ok( $LX->strip or 0 ); 29 ok( $LX->strip(1) && $LX->strip or 0 ); 34 ok( $LX->links->[0]->{_TEXT} eq "stuff that matters" or 0); 36 $LX = HTML::LinkExtractor::->new( 46 $LX->parse(\ q{ 51 ok( @{ $LX->links } == 0 ? 1 : 0 ); 56 $LX = HTML::LinkExtractor::->new( 65 $LX->parse(\ q{ 75 $LX->parse(\ q{ [all …]
|
/dports/audio/schismtracker/schismtracker-20211116/scripts/ |
H A D | lutgen.c | 79 float LX = ((float) i) * flen; in cubic_spline_init() local 85 LCm1 = (float) floor(0.5 + scale * (-0.5 * LX * LX * LX + 1.0 * LX * LX - 0.5 * LX )); in cubic_spline_init() 86 LC0 = (float) floor(0.5 + scale * ( 1.5 * LX * LX * LX - 2.5 * LX * LX + 1.0)); in cubic_spline_init() 87 LC1 = (float) floor(0.5 + scale * (-1.5 * LX * LX * LX + 2.0 * LX * LX + 0.5 * LX )); in cubic_spline_init() 88 LC2 = (float) floor(0.5 + scale * ( 0.5 * LX * LX * LX - 0.5 * LX * LX )); in cubic_spline_init()
|
/dports/textproc/p5-XML-Hash-LX/XML-Hash-LX-0.07/ex/ |
H A D | test.pl | 7 use XML::Hash::LX; 14 $XML::Hash::LX::X2H{trim} = 0; # don't trim whitespace 15 $XML::Hash::LX::X2H{attr} = '+'; # make attributes as keys with prefix '+'; 16 $XML::Hash::LX::X2H{text} = '~'; # make text node as key '~'; 20 $XML::Hash::LX::X2H{comm} = '//'; # keep comments and store under key '//'; 23 $XML::Hash::LX::X2A{nest} = 1; # node with name 'nest' should be always stored as array 45 $XML::Hash::LX::H2X{trim} = 1; # ignore whitespace 46 $XML::Hash::LX::H2X{attr} = '+'; # keys, starting from '+' are attributes 47 $XML::Hash::LX::H2X{text} = '~'; # key '~' is text node 48 $XML::Hash::LX::H2X{cdata} = '#'; # key '#' is CDATA node [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uipack/ |
H A D | uilqnp.f | 11 LOGICAL LX(NPARA) local 23 DATA CPARAS(1) / 'LCELLX ' /, LX(1) / .FALSE. / 24 DATA CPARAS(2) / 'LCELLY ' /, LX(2) / .FALSE. / 25 DATA CPARAS(3) / 'LCORNER ' /, LX(3) / .FALSE. / 26 DATA CPARAS(4) / 'LCYCLE ' /, LX(4) / .FALSE. / 84 CALL RTLGET('UE', CPARAS, LX, NPARA) 85 CALL RLLGET(CPARAL, LX, NPARA) 90 LPARA = LX(IDX) 100 CALL RTLGET('UE', CPARAS, LX, NPARA) 101 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/ugpack/ |
H A D | uglqnp.f | 13 LOGICAL LX(NPARA) local 25 DATA CPARAS(1) / 'LNRMAL ' /, LX(1) / .TRUE. / 26 DATA CPARAS(2) / 'LEQRAT ' /, LX(2) / .TRUE. / 27 DATA CPARAS(3) / 'LMSG ' /, LX(3) / .TRUE. / 31 DATA CPARAS(7) / 'LUMSG ' /, LX(7) / .TRUE. / 86 CALL RTLGET('UG', CPARAS, LX, NPARA) 87 CALL RLLGET(CPARAL, LX, NPARA) 92 LPARA = LX(IDX) 102 CALL RTLGET('UG', CPARAS, LX, NPARA) 103 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uspack/ |
H A D | uslqnp.f | 13 LOGICAL LX(NPARA) local 25 DATA CPARAS(1) / 'LXINV ' /, LX(1) / .FALSE. / 26 DATA CPARAS(2) / 'LYINV ' /, LX(2) / .FALSE. / 30 DATA CPARAS(5) / 'LXSUB ' /, LX(5) / .TRUE. / 31 DATA CPARAS(6) / 'LYSUB ' /, LX(6) / .TRUE. / 86 CALL RTLGET('US', CPARAS, LX, NPARA) 87 CALL RLLGET(CPARAL, LX, NPARA) 92 LPARA = LX(IDX) 102 CALL RTLGET('US', CPARAS, LX, NPARA) 103 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/math/cloog/cloog-cloog-0.20.0/test/challenges/ |
H A D | apsi.N.w2p56 | 9 # NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 13 NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 # parameter names 22 # NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 29 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 37 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 45 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 53 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 61 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 69 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 77 # L NSOU t$271 LZ LY LX IN LSX LSY LSZ NX NY NZ I1 I2 1 [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/umpack/ |
H A D | umlqnp.f | 13 LOGICAL LX(NPARA) local 25 DATA CPARAS(1) / 'LGRIDMJ ' /, LX(1) / .TRUE. / 26 DATA CPARAS(2) / 'LGRIDMN ' /, LX(2) / .TRUE. / 27 DATA CPARAS(3) / 'LGLOBE ' /, LX(3) / .FALSE. / 28 DATA CPARAS(4) / 'LWHINT ' /, LX(4) / .TRUE. / 82 CALL RTLGET('UM', CPARAS, LX, NPARA) 83 CALL RLLGET(CPARAL, LX, NPARA) 88 LPARA = LX(IDX) 98 CALL RTLGET('UM', CPARAS, LX, NPARA) 99 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/devel/p5-Function-Parameters/Function-Parameters-2.001003/t/ |
H A D | lineno.t | 27 test_loc 'LX simple'; 30 test_loc 'LX -- 1'; 36 test_loc 'LX creative formatting'; } 41 test_loc 'LX -- 2'; 45 test_loc 'LX nested'; 49 test_loc 'LX -- 3'; 56 test_loc 'LX assign'; 60 test_loc 'LX -- 4'; 70 { test_loc 'LX -- 5 (inner)' } 72 test_loc 'LX -- 5 (bonus)'; [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/udpack/ |
H A D | udlqnp.f | 14 LOGICAL LX(NPARA) local 26 DATA CPARAS(1) / 'LDASH ' /, LX(1) / .TRUE. / 27 DATA CPARAS(2) / 'LABEL ' /, LX(2) / .TRUE. / 28 DATA CPARAS(3) / 'LMSG ' /, LX(3) / .TRUE. / 29 DATA CPARAS(4) / 'LCENT ' /, LX(4) / .TRUE. / 80 CALL RTLGET('UD', CPARAS, LX, NPARA) 81 CALL RLLGET(CPARAL, LX, NPARA) 86 LPARA = LX(IDX) 96 CALL RTLGET('UD', CPARAS, LX, NPARA) 97 CALL RLLGET(CPARAL, LX, NPARA) [all …]
|
/dports/x11-toolkits/fltk/fltk-1.3.8/test/ |
H A D | unittest_images.cxx | 77 if (DX > 0 && LX != 0) { in create() 84 if (LX<0) { in create() 96 i_g = new Fl_RGB_Image (img_gray ,128,128,1,LX*(128+DX)); in create() 97 i_ga = new Fl_RGB_Image (img_gray_a,128,128,2,LX*(128+DX)*2); in create() 98 i_rgb = new Fl_RGB_Image (img_rgb, 128,128,3,LX*(128+DX)*3); in create() 99 i_rgba = new Fl_RGB_Image (img_rgba, 128,128,4,LX*(128+DX)*4); in create() 129 fl_draw_image(img_rgb, xx+1, yy+1, 128, 128, 3, LX*((128+DX)*3)); in draw() 131 fl_draw_image(img_rgb, xx+1, yy+1, 128, 128,-3, LX*((128+DX)*3)); in draw() 148 fl_draw_image(img_rgba, xx+1, yy+1, 128, 128, 4, LX*((128+DX)*4)); in draw() 150 fl_draw_image(img_rgba, xx+1, yy+1, 128, 128,-4, LX*((128+DX)*4)); in draw() [all …]
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | twodint.f | 86 & IEXPY1,IEXPYN,LX,LY,INPX,IART,LSP,IER,NX,NY,L,NA,one local 135 LX = 2 139 200 IF (XA(L) .LT. T(LX,1)) GO TO 220 140 LX = LX + 1 141 IF ((LX-NX).le.0) then 146 210 LX = NX 156 IXU = LX - INPX 157 IXO = LX + INPX - 1 168 IF (LX .GT. 2 .AND. XA(L) .LT. T(NX,1)) LX = LX - 1 170 ZA(L) = T(LX,LY) [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/scicos_blocks/src/c/ |
H A D | matz_inv.c | 40 double *LX; member 83 if ((ptr->LX = (double*) scicos_malloc(sizeof(double) * (2 * nu * nu))) == NULL) in matz_inv() 86 scicos_free(ptr->LX); in matz_inv() 97 if ((ptr->LX) != NULL) in matz_inv() 100 scicos_free(ptr->LX); in matz_inv() 112 ptr->LX[2 * i] = ur[i]; in matz_inv() 113 ptr->LX[2 * i + 1] = ui[i]; in matz_inv() 115 C2F(zgetrf)(&nu, &nu, ptr->LX, &nu, ptr->ipiv, &info); in matz_inv() 124 C2F(zgetri)(&nu, ptr->LX, &nu, ptr->ipiv, ptr->wrk, &nu, &info); in matz_inv() 127 yr[i] = ptr->LX[2 * i]; in matz_inv() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math1/syslib/ |
H A D | gllqnp.f | 13 LOGICAL LX(NPARA), LW(NPARA), LCHREQ, LFIRST local 24 DATA CPARAS(1) / 'LMISS ' /, LX( 1) / .FALSE. / 25 DATA CPARAS(2) / 'LEPSL ' /, LX( 2) / .FALSE. / 26 DATA CPARAS(3) / 'LLMSG ' /, LX( 3) / .FALSE. / 77 CALL RTLGET('GL', CPARAS, LX, NPARA) 78 CALL RLLGET(CPARAL, LX, NPARA) 83 LPARA = LX(IDX) 93 CALL RTLGET('GL', CPARAS, LX, NPARA) 94 CALL RLLGET(CPARAL, LX, NPARA) 100 LX(IDX) = LPARA
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/ |
H A D | uelqnp.f | 13 LOGICAL LX(NPARA) local 25 DATA CPARAS(1) / 'LTONE ' /, LX(1) / .FALSE. / 26 DATA CPARAS(2) / 'LBOUND ' /, LX(2) / .TRUE. / 76 CALL RTLGET('UE', CPARAS, LX, NPARA) 77 CALL RLLGET(CPARAL, LX, NPARA) 82 LPARA = LX(IDX) 92 CALL RTLGET('UE', CPARAS, LX, NPARA) 93 CALL RLLGET(CPARAL, LX, NPARA) 98 LX(IDX) = LPARA
|
/dports/graphics/tgif/tgif-QPL-4.2.5/po/ja/ |
H A D | Tgif.ad | 50 -ricoh-lx pop-medium-r-*--%d-*-*-*-*-*-jisx0208.1983-*,H,LX-POP--Regular-EUC-H\n\ 51 -ricoh-lx pop-bold-r-*--%d-*-*-*-*-*-jisx0208.1983-*,H,LX-POP--Regular-EUC-H\n\ 52 -ricoh-lx pop-medium-i-*--%d-*-*-*-*-*-jisx0208.1983-*,H,LX-POP--Italic-EUC-H\n\ 53 -ricoh-lx pop-bold-i-*--%d-*-*-*-*-*-jisx0208.1983-*,H,LX-POP--Italic-EUC-H\n\ 65 -ricoh-lx pop-medium-r-*--%d-*-*-*-*-*-jisx0208.1983-*,V,LX-POP--Regular-EUC-V\n\ 66 -ricoh-lx pop-bold-r-*--%d-*-*-*-*-*-jisx0208.1983-*,V,LX-POP--Regular-EUC-V\n\ 67 -ricoh-lx pop-medium-i-*--%d-*-*-*-*-*-jisx0208.1983-*,V,LX-POP--Italic-EUC-V\n\ 68 -ricoh-lx pop-bold-i-*--%d-*-*-*-*-*-jisx0208.1983-*,V,LX-POP--Italic-EUC-V\n\ 124 Tgif.LX-POPShowFontChar: �̥� 125 Tgif.LX-Gothic-UBShowFontChar: �̥� [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/ucpack/ |
H A D | uclqnp.f | 13 LOGICAL LX(NPARA) local 23 DATA CPARAS( 1) /'LOWER '/, LX( 1) /.FALSE./ 70 CALL RTLGET('UC', CPARAS, LX, NPARA) 71 CALL RLLGET(CPARAL, LX, NPARA) 76 LPARA = LX(IDX) 86 CALL RTLGET('UC', CPARAS, LX, NPARA) 87 CALL RLLGET(CPARAL, LX, NPARA) 92 LX(IDX) = LPARA
|
/dports/editors/texstudio/texstudio-4.1.2/utilities/dictionaries/ |
H A D | hy_HY-Armenian.aff | 433 SFX LX Y 55 434 SFX LX իկ կում/DE . 444 SFX LX իծ ծում/DE . 451 SFX LX իղ ղում/DE . 452 SFX LX իճ ճում/DE . 453 SFX LX ին նում/DE . 455 SFX LX իշ շում/DE . 462 SFX LX իս սում/DE . 464 SFX LX իչ չում/DE . 465 SFX LX իջ ջում/DE . [all …]
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
H A D | static_LIB_2d.f90 | 43 integer(kind=kint) J,LX local 59 do LX=1,NumOfQuadPoints( ETYPE ) 247 WG = getWeight( ETYPE, LX ) 326 integer(kind=kint) J,LX local 343 do LX=1,NumOfQuadPoints( ETYPE ) 443 integer(kind=kint) :: j, LX local 462 do LX=1, NumOfQuadPoints(etype) 485 WG=getWeight( etype, LX )*DET 505 gausses(LX)%stress(1:4) = matmul( D(1:4, 1:4), gausses(LX)%strain(1:4)-EPSTH(1:4) ) 508 gausses(LX)%strain_out(1:4) = gausses(LX)%strain(1:4) [all …]
|