/dports/misc/libemos/libemos-4.5.9-Source/tools/bufr_exports/synop2bufr/ |
H A D | synop2bufr.f | 1491 IF ( KINT(3).EQ.2.OR.KINT(3).LT.0.OR.KINT(3).GT.4) 1715 CALL IC3333(KINT(7),KINT(6),KINT(8),MINDIC,KDEC(5),KDEC(6)) 1783 CALL IC0877(KINT(19),KINT(256),KINT(3),K,MINDIC,KDEC(25), 1786 CALL IC0877(KINT(19),KINT(20),KINT(3),K,MINDIC,KDEC(25), 1843 IF(KINT(25) .EQ. 9) KDEC(33)=KINT(26) 1875 KDEC(35)=KINT(31) + 1000*KINT(30) 2914 IF (KINT(3).EQ.2.OR.KINT(3).LT.0.OR.KINT(3).GT.4) 7307 IBL=(KINT( 9)-48)*10+KINT(10)-48 7308 IST=(KINT(11)-48)*100+(KINT(12)-48)*10+KINT(13)-48 7348 1 (KINT(11)-48)*100+(KINT(12)-48)*10+KINT(13)-48 [all …]
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PBBLAS/ |
H A D | pbdtrget.f | 31 INTEGER KINT, KINT2, KLEN, KMOD, KPPOS, NLEN, NNUM, 51 KINT = IGD 62 KINT2 = 2 * KINT 66 IF( KPPOS+KINT.LT.NNUM ) THEN 70 $ MOD(MYROW+KINT, NPROW), MYCOL ) 79 KINT = KINT2 91 KINT = IGD 102 KINT2 = 2 * KINT 106 IF( KPPOS+KINT.LT.NNUM ) THEN 115 $ MOD(NPCOL+MYCOL-KINT, NPCOL) ) [all …]
|
H A D | pbstrget.f | 31 INTEGER KINT, KINT2, KLEN, KMOD, KPPOS, NLEN, NNUM, 51 KINT = IGD 62 KINT2 = 2 * KINT 66 IF( KPPOS+KINT.LT.NNUM ) THEN 70 $ MOD(MYROW+KINT, NPROW), MYCOL ) 79 KINT = KINT2 91 KINT = IGD 102 KINT2 = 2 * KINT 106 IF( KPPOS+KINT.LT.NNUM ) THEN 115 $ MOD(NPCOL+MYCOL-KINT, NPCOL) ) [all …]
|
H A D | pbztrget.f | 31 INTEGER KINT, KINT2, KLEN, KMOD, KPPOS, NLEN, NNUM, local 51 KINT = IGD 62 KINT2 = 2 * KINT 66 IF( KPPOS+KINT.LT.NNUM ) THEN 70 $ MOD(MYROW+KINT, NPROW), MYCOL ) 79 KINT = KINT2 91 KINT = IGD 102 KINT2 = 2 * KINT 106 IF( KPPOS+KINT.LT.NNUM ) THEN 115 $ MOD(NPCOL+MYCOL-KINT, NPCOL) ) [all …]
|
H A D | pbctrget.f | 31 INTEGER KINT, KINT2, KLEN, KMOD, KPPOS, NLEN, NNUM, local 51 KINT = IGD 62 KINT2 = 2 * KINT 66 IF( KPPOS+KINT.LT.NNUM ) THEN 70 $ MOD(MYROW+KINT, NPROW), MYCOL ) 79 KINT = KINT2 91 KINT = IGD 102 KINT2 = 2 * KINT 106 IF( KPPOS+KINT.LT.NNUM ) THEN 115 $ MOD(NPCOL+MYCOL-KINT, NPCOL) ) [all …]
|
/dports/lang/luajit/LuaJIT-2.0.5/src/ |
H A D | lj_opt_fold.c | 255 LJFOLD(ADD KINT KINT) 256 LJFOLD(SUB KINT KINT) in LJFOLD() argument 257 LJFOLD(MUL KINT KINT) in LJFOLD() 258 LJFOLD(MOD KINT KINT) in LJFOLD() 259 LJFOLD(NEG KINT KINT) in LJFOLD() 261 LJFOLD(BOR KINT KINT) in LJFOLD() 268 LJFOLD(MIN KINT KINT) in LJFOLD() 300 LJFOLD(LT KINT KINT) 301 LJFOLD(GE KINT KINT) in LJFOLD() argument 302 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/devel/tex-libtexluajit/texlive-20150521-source/libs/luajit/LuaJIT-2.0.3/src/ |
H A D | lj_opt_fold.c | 255 LJFOLD(ADD KINT KINT) 256 LJFOLD(SUB KINT KINT) in LJFOLD() argument 257 LJFOLD(MUL KINT KINT) in LJFOLD() 258 LJFOLD(MOD KINT KINT) in LJFOLD() 259 LJFOLD(NEG KINT KINT) in LJFOLD() 261 LJFOLD(BOR KINT KINT) in LJFOLD() 268 LJFOLD(MIN KINT KINT) in LJFOLD() 300 LJFOLD(LT KINT KINT) 301 LJFOLD(GE KINT KINT) in LJFOLD() argument 302 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/multimedia/aegisub/aegisub-3.2.2/vendor/luajit/src/ |
H A D | lj_opt_fold.c | 255 LJFOLD(ADD KINT KINT) 256 LJFOLD(SUB KINT KINT) in LJFOLD() argument 257 LJFOLD(MUL KINT KINT) in LJFOLD() 258 LJFOLD(MOD KINT KINT) in LJFOLD() 259 LJFOLD(NEG KINT KINT) in LJFOLD() 261 LJFOLD(BOR KINT KINT) in LJFOLD() 268 LJFOLD(MIN KINT KINT) in LJFOLD() 300 LJFOLD(LT KINT KINT) 301 LJFOLD(GE KINT KINT) in LJFOLD() argument 302 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/print/tex-luatex/texlive-20150521-source/libs/luajit/LuaJIT-2.0.3/src/ |
H A D | lj_opt_fold.c | 255 LJFOLD(ADD KINT KINT) 256 LJFOLD(SUB KINT KINT) in LJFOLD() argument 257 LJFOLD(MUL KINT KINT) in LJFOLD() 258 LJFOLD(MOD KINT KINT) in LJFOLD() 259 LJFOLD(NEG KINT KINT) in LJFOLD() 261 LJFOLD(BOR KINT KINT) in LJFOLD() 268 LJFOLD(MIN KINT KINT) in LJFOLD() 300 LJFOLD(LT KINT KINT) 301 LJFOLD(GE KINT KINT) in LJFOLD() argument 302 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/sysutils/fluent-bit/fluent-bit-1.8.11/lib/luajit-2.1.0-1e66d0f/src/ |
H A D | lj_opt_fold.c | 290 LJFOLD(ADD KINT KINT) 291 LJFOLD(SUB KINT KINT) 292 LJFOLD(MUL KINT KINT) 293 LJFOLD(MOD KINT KINT) 294 LJFOLD(NEG KINT KINT) 296 LJFOLD(BOR KINT KINT) 303 LJFOLD(MIN KINT KINT) 335 LJFOLD(LT KINT KINT) 336 LJFOLD(GE KINT KINT) 337 LJFOLD(LE KINT KINT) [all …]
|
/dports/www/nift/nsm-2.4.11/LuaJIT/src/ |
H A D | lj_opt_fold.c | 266 LJFOLD(ADD KINT KINT) 267 LJFOLD(SUB KINT KINT) in LJFOLD() argument 268 LJFOLD(MUL KINT KINT) in LJFOLD() 269 LJFOLD(MOD KINT KINT) in LJFOLD() 270 LJFOLD(NEG KINT KINT) in LJFOLD() 272 LJFOLD(BOR KINT KINT) in LJFOLD() 279 LJFOLD(MIN KINT KINT) in LJFOLD() 311 LJFOLD(LT KINT KINT) 312 LJFOLD(GE KINT KINT) in LJFOLD() argument 313 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/benchmarks/sysbench/sysbench-1.0.20/third_party/luajit/luajit/src/ |
H A D | lj_opt_fold.c | 266 LJFOLD(ADD KINT KINT) 267 LJFOLD(SUB KINT KINT) in LJFOLD() argument 268 LJFOLD(MUL KINT KINT) in LJFOLD() 269 LJFOLD(MOD KINT KINT) in LJFOLD() 270 LJFOLD(NEG KINT KINT) in LJFOLD() 272 LJFOLD(BOR KINT KINT) in LJFOLD() 279 LJFOLD(MIN KINT KINT) in LJFOLD() 311 LJFOLD(LT KINT KINT) 312 LJFOLD(GE KINT KINT) in LJFOLD() argument 313 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/graphics/urho3d/Urho3D-1.7.1/Source/ThirdParty/LuaJIT/src/ |
H A D | lj_opt_fold.c | 259 LJFOLD(ADD KINT KINT) 260 LJFOLD(SUB KINT KINT) in LJFOLD() argument 261 LJFOLD(MUL KINT KINT) in LJFOLD() 262 LJFOLD(MOD KINT KINT) in LJFOLD() 263 LJFOLD(NEG KINT KINT) in LJFOLD() 265 LJFOLD(BOR KINT KINT) in LJFOLD() 272 LJFOLD(MIN KINT KINT) in LJFOLD() 304 LJFOLD(LT KINT KINT) 305 LJFOLD(GE KINT KINT) in LJFOLD() argument 306 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/lang/luajit-openresty/luajit2-2.1-20211210/src/ |
H A D | lj_opt_fold.c | 290 LJFOLD(ADD KINT KINT) 291 LJFOLD(SUB KINT KINT) in LJFOLD() argument 292 LJFOLD(MUL KINT KINT) in LJFOLD() 293 LJFOLD(MOD KINT KINT) in LJFOLD() 294 LJFOLD(NEG KINT KINT) in LJFOLD() 296 LJFOLD(BOR KINT KINT) in LJFOLD() 303 LJFOLD(MIN KINT KINT) in LJFOLD() 335 LJFOLD(LT KINT KINT) 336 LJFOLD(GE KINT KINT) in LJFOLD() argument 337 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/lang/luajit-devel/LuaJIT-a91d0d9/src/ |
H A D | lj_opt_fold.c | 290 LJFOLD(ADD KINT KINT) 291 LJFOLD(SUB KINT KINT) in LJFOLD() argument 292 LJFOLD(MUL KINT KINT) in LJFOLD() 293 LJFOLD(MOD KINT KINT) in LJFOLD() 294 LJFOLD(NEG KINT KINT) in LJFOLD() 296 LJFOLD(BOR KINT KINT) in LJFOLD() 303 LJFOLD(MIN KINT KINT) in LJFOLD() 335 LJFOLD(LT KINT KINT) 336 LJFOLD(GE KINT KINT) in LJFOLD() argument 337 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/misc/xplr/xplr-0.17.0/cargo-crates/luajit-src-210.3.2+resty1085a4d/luajit2/src/ |
H A D | lj_opt_fold.c | 290 LJFOLD(ADD KINT KINT) 291 LJFOLD(SUB KINT KINT) in LJFOLD() argument 292 LJFOLD(MUL KINT KINT) in LJFOLD() 293 LJFOLD(MOD KINT KINT) in LJFOLD() 294 LJFOLD(NEG KINT KINT) in LJFOLD() 296 LJFOLD(BOR KINT KINT) in LJFOLD() 303 LJFOLD(MIN KINT KINT) in LJFOLD() 335 LJFOLD(LT KINT KINT) 336 LJFOLD(GE KINT KINT) in LJFOLD() argument 337 LJFOLD(LE KINT KINT) in LJFOLD() [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/densfit/ |
H A D | df_dofit.f90 | 39 integer(KINT) :: n_basis, n_fit 77 integer(KINT), intent(in) :: index_A, index_B, ld_DM 80 integer(KINT), intent(out) :: ierr 84 integer(KINT) :: n_fit, n_fit_A, n_fit_B 149 integer(KINT), intent(in) :: n_fit, ld_weight_matrix 150 integer(KINT), intent(out) :: info 209 integer(KINT), intent(in) :: index 238 integer(KINT), intent(out) :: ierr
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | abapcm.F | 117 KINT = KJ1AO + NNBASX 119 KINVMT = KINT + NNBASX*NCOMP 166 CALL GET1IN(WORK(KINT),'PCMB2SL',NREAD,WORK(KLAST),LWRK, 179 & WORK(KINT+(ICOMP - 1)*NNBASX),1,VEC2(1+(ICOMP-1 187 & WORK(KINT+(ICOMP - 1)*NNBASX),1)
|
H A D | abaltra.F | 684 KINT = 1 685 KIINT = KINT + LBUF 689 CALL READI4(LULONA,LENINT4,WRK(KINT)) 705 H2LAO(INDAO(JP,JQ),JRS) = WRK(KINT + I - 1) 707 & -WRK(KINT + I - 1) 709 H2LAO(INDAO(JQ,JP),-JRS) = -WRK(KINT + I - 1) 714 H2LAO(INDAO(JR,JS),JPQ) = WRK(KINT + I - 1) 716 & -WRK(KINT + I -1) 718 H2LAO(INDAO(JS,JR),-JPQ) = -WRK(KINT + I - 1)
|
/dports/math/math77/MATH77/ |
H A D | dintm.f | 437 integer KREAL, KINT, KLOG, ITEMP local 438 parameter (KINT=29, KREAL=169, KLOG=11) 440 integer IMOVE(KINT) 458 do 15 ITEMP = 1, KINT
|
H A D | sintm.f | 437 integer KREAL, KINT, KLOG, ITEMP local 438 parameter (KINT=29, KREAL=169, KLOG=11) 440 integer IMOVE(KINT) 458 do 15 ITEMP = 1, KINT
|
H A D | dintma.f | 60 integer DIMS, KDBLE, KINT, KLOG, KREAL local 62 parameter (DIMS=5, KDBLE=4, KINT=29, KLOG=11, KREAL=169) 134 integer LC, ISAVE(KINT,DIMS) 165 integer IMOVE(KINT)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | cc_landf3.F | 552 KINT = 1 553 KVECIS = KINT + N2BST(ISALBE) 555 KVECIB = KINT + NRHF(ISYMI)*N2BST(ISALBE) 570 CALL CCSD_SYMSQ(DSRHF(KOFF1),ISALBE,WORK(KINT)) 575 * WORK(KINT),1) 584 KOFF2 = KINT + N2BST(ISALBE)*(I - 1) 592 CALL DGEMV('T',N2BST(ISALBE),NRHF(ISYMI),TWO,WORK(KINT),NTALBE, 633 KINT = 1 634 KSCR1 = KINT + N2BST(ISALBE) 648 CALL CCSD_SYMSQ(DSRHF(KOFFPI),ISALBE,WORK(KINT)) [all …]
|
H A D | cc_qm3.F | 1206 KINT = KWRK1 1207 KWRK2 = KINT + N2BST(ISYMOP) 1212 CALL DZERO(WORK(KINT),N2BST(ISYMOP)) 1228 CALL CC_PRFCKAO(WORK(KINT),ISYMOP) 1280 TAL1 = DDOT(N2BST(ISYMOP),WORK(KINT),1,WORK(KINT),1) 1770 KINT = KWRK1 1771 KWRK2 = KINT + N2BST(ISYMOP) 1814 TAL1 = DDOT(N2BST(ISYMOP),WORK(KINT),1,WORK(KINT),1) 4142 KINT = 1 4143 KWRK1 = KINT + N2BST(ISYMOP) [all …]
|
H A D | cc_qmmm.F | 87 KINT = KTAO + NNBASX 88 KWRK1 = KINT + N2BST(ISYMOP) 94 CALL DZERO(WORK(KINT),N2BST(ISYMOP)) 128 CALL CCMMINT(LABEL,-1,WORK(KINT),WORK(KTAO), 159 CALL DAXPY(N2BST(ISYMOP),ONE,WORK(KINT),1,FOCK,1) 235 KINT = KTAO + NNBASX 236 KWRK1 = KINT + N2BST(ISYMOP) 242 CALL DZERO(WORK(KINT),N2BST(ISYMOP)) 273 CALL CCMMINT(LABEL,-1,WORK(KINT),WORK(KTAO), 1682 KINT = KNSAO + NNBASX [all …]
|