Home
last modified time | relevance | path

Searched refs:HES (Results 1 – 25 of 457) sorted by relevance

12345678910>>...19

/dports/games/libretro-paralleln64/parallel-n64-6e26fbb/mupen64plus-rsp-cxd4/
H A Dsu.c586 correction = (correction - 1) * HES(0x000); in LSV()
611 correction = HES(0x000)*(addr%0x004 - 1); in LLV()
649 addr += 0x006 + HES(00); in LDV()
737 correction = HES(0x000)*(addr%0x004 - 1); in SLV()
783 addr += 0x006 + HES(0x000); in SDV()
1263 VR[vt][07] = DMEM[addr + HES(0x00E)] << 7; in LHV()
1264 VR[vt][06] = DMEM[addr + HES(0x00C)] << 7; in LHV()
1265 VR[vt][05] = DMEM[addr + HES(0x00A)] << 7; in LHV()
1266 VR[vt][04] = DMEM[addr + HES(0x008)] << 7; in LHV()
1267 VR[vt][03] = DMEM[addr + HES(0x006)] << 7; in LHV()
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/daspk/
H A Ddorth.f5 SUBROUTINE DORTH (VNEW, V, HES, N, LL, LDHES, KMP, SNORMW) argument
58 DOUBLE PRECISION VNEW, V, HES, SNORMW local
59 DIMENSION VNEW(*), V(N,*), HES(LDHES,*)
74 HES(I,LL) = DDOT (N, V(1,I), 1, VNEW, 1)
75 TEM = -HES(I,LL)
90 IF (HES(I,LL) + 0.001D0*TEM .EQ. HES(I,LL)) GO TO 30
91 HES(I,LL) = HES(I,LL) - TEM
H A Ddspigm.f7 * HES, Q, LGMR, WP, IWP, WK, DL, RHOK, IFLAG, IRST, NRSTS, argument
131 DOUBLE PRECISION TN,Y,YPRIME,SAVR,R,WGHT,EPLIN,CJ,Z,V,HES,Q,WP,WK, local
134 1 V(NEQ,*), HES(MAXLP1,*), Q(*), WP(*), IWP(*), WK(*), DL(*),
183 60 HES(I,J) = 0.0D0
203 CALL DORTH (V(1,LL+1), V, HES, NEQ, LL, MAXLP1, KMP, SNORMW)
204 HES(LL+1,LL) = SNORMW
205 CALL DHEQR (HES, MAXLP1, LL, Q, INFO, LL)
298 CALL DHELS (HES, MAXLP1, LL, Q, R)
/dports/math/slatec/src/
H A Ddorth.f2 SUBROUTINE DORTH (VNEW, V, HES, N, LL, LDHES, KMP, SNORMW) argument
75 DOUBLE PRECISION HES(LDHES,*), V(N,*), VNEW(*)
98 HES(I,LL) = DDOT(N, V(1,I), 1, VNEW, 1)
99 TEM = -HES(I,LL)
114 IF (HES(I,LL) + 0.001D0*TEM .EQ. HES(I,LL)) GO TO 30
115 HES(I,LL) = HES(I,LL) - TEM
H A Dsorth.f2 SUBROUTINE SORTH (VNEW, V, HES, N, LL, LDHES, KMP, SNORMW) argument
75 REAL HES(LDHES,*), V(N,*), VNEW(*)
98 HES(I,LL) = SDOT(N, V(1,I), 1, VNEW, 1)
99 TEM = -HES(I,LL)
114 IF (HES(I,LL) + 0.001E0*TEM .EQ. HES(I,LL)) GO TO 30
115 HES(I,LL) = HES(I,LL) - TEM
H A Dspigmr.f3 + JPRE, MATVEC, MSOLVE, NMSL, Z, V, HES, Q, LGMR, RPAR, IPAR, WK,
217 REAL A(NELT), B(*), DL(*), HES(MAXLP1,*), Q(*), R0(*), RPAR(*),
274 $ HES, JPRE) .NE. 0) RETURN
282 HES(I,J) = 0
325 CALL SORTH(V(1,LL+1), V, HES, N, LL, MAXLP1, KMP, SNORMW)
326 HES(LL+1,LL) = SNORMW
327 CALL SHEQR(HES, MAXLP1, LL, Q, INFO, LL)
369 $ HES, JPRE) .NE. 0) GO TO 200
415 CALL SHELS(HES, MAXLP1, LL, Q, R0)
H A Ddpigmr.f3 + JPRE, MATVEC, MSOLVE, NMSL, Z, V, HES, Q, LGMR, RPAR, IPAR, WK,
221 DOUBLE PRECISION A(NELT), B(*), DL(*), HES(MAXLP1,*), Q(*), R0(*),
279 $ HES, JPRE) .NE. 0) RETURN
287 HES(I,J) = 0
330 CALL DORTH(V(1,LL+1), V, HES, N, LL, MAXLP1, KMP, SNORMW)
331 HES(LL+1,LL) = SNORMW
332 CALL DHEQR(HES, MAXLP1, LL, Q, INFO, LL)
374 $ HES, JPRE) .NE. 0) GO TO 200
420 CALL DHELS(HES, MAXLP1, LL, Q, R0)
H A Dsxlcal.f2 SUBROUTINE SXLCAL (N, LGMR, X, XL, ZL, HES, MAXLP1, Q, V, R0NRM, argument
144 REAL A(NELT), HES(MAXLP1,*), Q(*), RPAR(*), SZ(*), V(N,*), WK(N),
160 CALL SHELS(HES, MAXLP1, LL, Q, WK)
H A Ddxlcal.f2 SUBROUTINE DXLCAL (N, LGMR, X, XL, ZL, HES, MAXLP1, Q, V, R0NRM, argument
146 DOUBLE PRECISION A(NELT), HES(MAXLP1,*), Q(*), RPAR(*), SZ(*),
162 CALL DHELS(HES, MAXLP1, LL, Q, WK)
H A Disdgmr.f5 + MAXLP1, V, Q, SNORMW, PROD, R0NRM, HES, JPRE)
267 DOUBLE PRECISION A(*), B(*), DZ(*), HES(MAXLP1, MAXL), Q(*), R(*),
350 CALL DXLCAL(N, LGMR, X, XL, XL, HES, MAXLP1, Q, V, R0NRM,
H A Dissgmr.f5 + MAXLP1, V, Q, SNORMW, PROD, R0NRM, HES, JPRE)
265 REAL A(*), B(*), DZ(*), HES(MAXLP1, MAXL), Q(*), R(*), RWORK(*),
348 CALL SXLCAL(N, LGMR, X, XL, XL, HES, MAXLP1, Q, V, R0NRM,
/dports/math/cmlib/cmlib-3.0_8/src/dnl2sn/
H A Ddfdhes.f23 INTEGER GSAVE1, HES, HMI, HPI, HPM, I, K, KIND, L, M, MM1, MM1O2,
98 40 HES = -IV(H)
109 K = HES + M*(M-1)/2
176 HES = -IV(H)
177 HPM = HES + PP1O2 + MM1
182 HMI = HES + MM1O2
184 HPI = HES + PP1O2
213 HMI = HES + MM1O2 + I - 1
240 210 IV(FDH) = HES
/dports/math/cmlib/cmlib-3.0_8/src/nl2sn/
H A Dfdhes.f23 INTEGER GSAVE1, HES, HMI, HPI, HPM, I, K, KIND, L, M, MM1, MM1O2,
98 40 HES = -IV(H)
109 K = HES + M*(M-1)/2
176 HES = -IV(H)
177 HPM = HES + PP1O2 + MM1
182 HMI = HES + MM1O2
184 HPI = HES + PP1O2
213 HMI = HES + MM1O2 + I - 1
240 210 IV(FDH) = HES
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/dft/
H A Ddft_int.F435 * RHO,GRAD,HES)
443 DIMENSION TMPz(NVCLEN,NBAST),HES(6,NVCLEN)
483 call dzero(HES, 6*NVCLEN)
492 HES(1,K) = HES(1,K) + 2*GAO(K,IDX,5)*TMP(K,IDX)
494 HES(2,K) = HES(2,K) + 2*GAO(K,IDX,6)*TMP(K,IDX)
496 HES(3,K) = HES(3,K) + 2*GAO(K,IDX,7)*TMP(K,IDX)
498 HES(4,K) = HES(4,K) + 2*GAO(K,IDX,8)*TMP(K,IDX)
500 HES(5,K) = HES(5,K) + 2*GAO(K,IDX,9)*TMP(K,IDX)
502 HES(6,K) = HES(6,K) + 2*GAO(K,IDX,10)*TMP(K,IDX)
H A Ddft_old.F47 & HES(*), WORK(LWORK)
297 & C0,C1,C2,HES,RHO,RHOGRD,RHG,WGHT,
330 HES(I,A,J,B) = HES(J,B,I,A)
516 DIMENSION HES(NOC*NVT*NOC*NVT)
518 SAVE FIRST, HES
546 CALL DZERO(HES,NOCCT*NVIRT*NOCCT*NVIRT)
556 & TRPLET,HES,.TRUE.,WORK(KLST),LWRK,IPRINT)
560 CALL OUTPUT(HES,1,NPAIR,1,NPAIR,NPAIR,NPAIR,1,LUPRI)
689 SUBROUTINE DFTLTR(DTRMAT,EXCMAT,GAO,GAO1,C0,C1,C2,HES,RHO, argument
779 HES(I,IA,J,IB) = HES(I,IA,J,IB)
[all …]
H A Ddftpar.F24 & C0,C1,C2,DMAGAO,HES,DOHES,TRPLET,FACDRC,FACVWN,
62 & C2(NORBT),DMAGAO(NBAST), HES(NOCCT,NVIRT,NOCCT,NVIRT),
128 & NCNT,DST,C0,C1,C2,HES,DOHES,TRPLET,
135 & C0,C1,C2,DMAGAO,HES,DOHES,TRPLET,FACDRC,FACVWN,
303 & WORK(KC2),WORK(KDGA),HES,DOHES,TRPLET,FACDRC,FACVWN,
313 & NCNT,DST,C0,C1,C2,HES,DOHES,TRPLET,IPRINT)
351 & HES(NOCCT,NVIRT,NOCCT,NVIRT)
502 CALL MPI_BCAST(HES,NOCCT*NVIRT*NOCCT*NVIRT,
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Ddgmres1.f562 + JPRE, NMSL, Z, V, HES, Q, LGMR, RPAR, IPAR, WK,
836 $ HES, JPRE) .NE. 0) RETURN
844 HES(I,J) = 0
887 CALL DORTH(V(1,LL+1), V, HES, N, LL, MAXLP1, KMP, SNORMW)
888 HES(LL+1,LL) = SNORMW
889 CALL DHEQR(HES, MAXLP1, LL, Q, INFO, LL)
931 $ HES, JPRE) .NE. 0) GO TO 200
977 CALL DHELS(HES, MAXLP1, LL, Q, R0)
1001 + MAXLP1, V, Q, SNORMW, PROD, R0NRM, HES, JPRE)
1542 DOUBLE PRECISION A(NELT), HES(MAXLP1,*), Q(*), RPAR(*), SZ(*),
[all …]
H A Ddgmres.f997 $ HES, JPRE) .NE. 0) RETURN
1005 HES(I,J) = 0
1049 HES(LL+1,LL) = SNORMW
1050 CALL DHEQR(HES, MAXLP1, LL, Q, INFO, LL)
1092 $ HES, JPRE) .NE. 0) GO TO 200
1138 CALL DHELS(HES, MAXLP1, LL, Q, R0)
2236 HES(I,LL) = DDOT(N, V(1,I), 1, VNEW, 1)
2237 TEM = -HES(I,LL)
2252 IF (HES(I,LL) + 0.001D0*TEM .EQ. HES(I,LL)) GO TO 30
2253 HES(I,LL) = HES(I,LL) - TEM
[all …]
/dports/science/latte/LATTE-1.2.2/src/
H A DbldnewH.F9076 H(INDEX, INDEX) = HES(K)
105 H(INDEX,INDEX) = HES(K)
118 H(INDEX,INDEX) = HES(K)
131 H(INDEX,INDEX) = HES(K)
183 H(INDEX,INDEX) = HES(K)
198 H(INDEX,INDEX) = HES(K)
213 H(INDEX,INDEX) = HES(K)
244 H(INDEX, INDEX) = HES(K)
H A Dnewkbldnewh.F9065 HK(INDEX, INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
94 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
107 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
120 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
172 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
187 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
202 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
233 HK(INDEX, INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
H A Dkbldnewh.F9091 HK(INDEX, INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
120 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
133 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
146 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
198 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
213 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
228 HK(INDEX,INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
259 HK(INDEX, INDEX, 1) = CMPLX(HES(ELEMPOINTER(I)))
H A Ddosfittab.F9073 ONSITEBEST(1,I) = HES(I)
201 ONSITE_REMEMBER = HES(MYELE)
202 HES(MYELE) = HES(MYELE)*(ONE + MCSIGMA*(TWO*RN - ONE))
359 ONSITEBEST(1,I) = HES(I)
383 HES(MYELE) = ONSITE_REMEMBER
415 HES(I) = ONSITEBEST(1,I)
585 WRITE(20,30) ELE(I), BASIS(I), ATOCC(I), HES(I), HEP(I), HED(I), HEF(I), &
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/srdft/
H A Ddftdrv_srdft.F29 & DOLND,DOATR,TRPLET,HES,DOHES,WORK,LWORK,KPRINT)
43 & HES(*), WORK(LWORK)
121 & WORK(KC2),WORK(KDGA),HES,DOHES,TRPLET,FACDRC,FACVWN,
128 & WORK(KC2),WORK(KDGA),HES,DOHES,TRPLET,FACDRC,FACVWN,
369 & C0,C1,C2,HES,RHO,RHO13,RHOGRD,RHG,
411 HES(I,A,J,B) = HES(J,B,I,A)
637 DIMENSION HES(NOC*NVT*NOC*NVT)
639 SAVE FIRST, HES
667 CALL DZERO(HES,NOCCT*NVIRT*NOCCT*NVIRT)
677 & TRPLET,HES,.TRUE.,WORK(KLST),LWRK,IPRINT)
[all …]
/dports/games/libretro-paralleln64/parallel-n64-6e26fbb/mupen64plus-rsp-paraLLEl/arch/simd/rsp/
H A Drsp_common.h146 #define HES(x) ((x) ^ 2) macro
151 #define READ_MEM_U16(mem, addr) (reinterpret_cast<const uint16_t *>(mem)[HES(addr) >> 1])
155 #define WRITE_MEM_U16(mem, addr, data) (reinterpret_cast<uint16_t *>(mem)[HES(addr) >> 1] = data)
/dports/audio/festalon/festalon/
H A Dfestalon.spec1 Summary: A command-line program for playing HES and NSF/NSFE music files.
11 Festalon plays HES and NSF/NSFE music files using a command-line+console interface.

12345678910>>...19