| /dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PBBLAS/ |
| H A D | pbstrst1.f | 31 INTEGER ITER, IX, IY, K, KK, KZ, NJUMP local
47 KZ = NZ
60 IX = IX + NB - KZ
61 IY = IY + NJUMP - KZ
62 KZ = 0
72 CALL PBSVECADD( ICONTXT, 'G', MIN(NB-KZ,N-IY), ONE,
75 KZ = 0
91 IX = IX + NB - KZ
92 IY = IY + NJUMP - KZ
93 KZ = 0
[all …]
|
| H A D | pbztrst1.f | 31 INTEGER ITER, IX, IY, K, KK, KZ, NJUMP local
47 KZ = NZ
60 IX = IX + NB - KZ
61 IY = IY + NJUMP - KZ
62 KZ = 0
72 CALL PBZVECADD( ICONTXT, 'G', MIN(NB-KZ,N-IY), ONE,
75 KZ = 0
91 IX = IX + NB - KZ
92 IY = IY + NJUMP - KZ
93 KZ = 0
[all …]
|
| H A D | pbdtrst1.f | 31 INTEGER ITER, IX, IY, K, KK, KZ, NJUMP local
47 KZ = NZ
60 IX = IX + NB - KZ
61 IY = IY + NJUMP - KZ
62 KZ = 0
72 CALL PBDVECADD( ICONTXT, 'G', MIN(NB-KZ,N-IY), ONE,
75 KZ = 0
91 IX = IX + NB - KZ
92 IY = IY + NJUMP - KZ
93 KZ = 0
[all …]
|
| H A D | pbctrst1.f | 31 INTEGER ITER, IX, IY, K, KK, KZ, NJUMP local
47 KZ = NZ
60 IX = IX + NB - KZ
61 IY = IY + NJUMP - KZ
62 KZ = 0
72 CALL PBCVECADD( ICONTXT, 'G', MIN(NB-KZ,N-IY), ONE,
75 KZ = 0
91 IX = IX + NB - KZ
92 IY = IY + NJUMP - KZ
93 KZ = 0
[all …]
|
| H A D | pbstrnv.f | 293 KZ = NZ
338 KZ = 0
360 KZ = 0
361 IF( MRROW.EQ.0 ) KZ = NZ
395 KZ = 0
433 KZ = 0
486 KZ = NZ
531 KZ = 0
553 KZ = 0
588 KZ = 0
[all …]
|
| H A D | pbctrnv.f | 294 KZ = NZ
339 KZ = 0
361 KZ = 0
362 IF( MRROW.EQ.0 ) KZ = NZ
396 KZ = 0
434 KZ = 0
487 KZ = NZ
532 KZ = 0
554 KZ = 0
589 KZ = 0
[all …]
|
| H A D | pbdtrnv.f | 293 KZ = NZ
338 KZ = 0
360 KZ = 0
361 IF( MRROW.EQ.0 ) KZ = NZ
395 KZ = 0
433 KZ = 0
486 KZ = NZ
531 KZ = 0
553 KZ = 0
588 KZ = 0
[all …]
|
| H A D | pbztrnv.f | 294 KZ = NZ
339 KZ = 0
361 KZ = 0
362 IF( MRROW.EQ.0 ) KZ = NZ
396 KZ = 0
434 KZ = 0
487 KZ = NZ
532 KZ = 0
554 KZ = 0
589 KZ = 0
[all …]
|
| /dports/math/cmlib/cmlib-3.0_8/src/dtensbs/ |
| H A D | db3val.f | 2 * TX,TY,TZ,NX,NY,NZ,KX,KY,KZ,BCOEF,WORK)
130 * IDX, IDY, IDZ, NX, NY, NZ, KX, KY, KZ
152 + ZVAL.LT.TZ(1) .OR. ZVAL.GT.TZ(NZ+KZ)) GO TO 100
155 CALL DINTRV(TZ,NZ+KZ,ZVAL,ILOZ,LEFTZ,MFLAG)
157 IZ = 1 + KY*KZ
158 IW = IZ + KZ
159 KCOLZ = LEFTZ - KZ
161 DO 50 K=1,KZ
173 DO 60 K=1,KZ
180 KCOLZ = LEFTZ - KZ + 1
[all …]
|
| /dports/math/cmlib/cmlib-3.0_8/src/tensbs/ |
| H A D | b3val.f | 2 * NX,NY,NZ,KX,KY,KZ,BCOEF,WORK)
128 * IDX, IDY, IDZ, NX, NY, NZ, KX, KY, KZ
150 + ZVAL.LT.TZ(1) .OR. ZVAL.GT.TZ(NZ+KZ)) GO TO 100
153 CALL INTRV(TZ,NZ+KZ,ZVAL,ILOZ,LEFTZ,MFLAG)
155 IZ = 1 + KY*KZ
156 IW = IZ + KZ
157 KCOLZ = LEFTZ - KZ
159 DO 50 K=1,KZ
171 DO 60 K=1,KZ
178 KCOLZ = LEFTZ - KZ + 1
[all …]
|
| H A D | b3ink.f | 1 SUBROUTINE B3INK(X,NX,Y,NY,Z,NZ,FCN,LDF1,LDF2,KX,KY,KZ,TX,TY,TZ, argument
184 * NX, NY, NZ, LDF1, LDF2, KX, KY, KZ, IFLAG
205 IF ((KZ .LT. 2) .OR. (KZ .GE. NZ)) GO TO 1020
224 NPK = NZ + KZ
237 CALL BKNOT(Z,NZ,KZ,TZ)
258 CALL BTPCF(Z,NZ,WORK,NZ,NX*NY,TZ,KZ,BCOEF,WORK(IW))
328 * 32,IFLAG,1,1,KZ,I2,0,R1,R2)
|
| /dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
| H A D | b3val.f | 2 * NX,NY,NZ,KX,KY,KZ,BCOEF,WORK)
115 * IDX, IDY, IDZ, NX, NY, NZ, KX, KY, KZ
136 CALL INTRV(TZ,NZ+KZ,ZVAL,ILOZ,LEFTZ,MFLAG)
138 IZ = 1 + KY*KZ
139 IW = IZ + KZ
140 KCOLZ = LEFTZ - KZ
142 DO 50 K=1,KZ
154 DO 60 K=1,KZ
161 KCOLZ = LEFTZ - KZ + 1
162 B3VAL = BVALU(TZ(KCOLZ),WORK(IZ),KZ,KZ,IDZ,ZVAL,INBV2,WORK(IW))
|
| H A D | b4val.f | 2 * TX,TY,TZ,TV,NX,NY,NZ,NV,KX,KY,KZ,KV,BCOEF,WORK)
115 * IDX, IDY, IDZ, IDV, NX, NY, NZ, NV, KX, KY, KZ, KV
137 CALL INTRV(TZ,NZ+KZ,ZVAL,ILOZ,LEFTZ,MFLAG)
141 IV = 1 + KY*KZ*KV
142 IW = IV + KZ*KV
147 KCOLZ = LEFTZ - KZ
148 DO 40 K=1,KZ
163 DO 50 K=1,KZ
171 KCOLZ = LEFTZ - KZ + 1
175 WORK(K) = BVALU(TZ(KCOLZ),WORK(J),KZ,KZ,IDZ,ZVAL,
[all …]
|
| H A D | b3ink.f | 1 SUBROUTINE B3INK(X,NX,Y,NY,Z,NZ,FCN,LDF1,LDF2,KX,KY,KZ,TX,TY,TZ, argument
182 * NX, NY, NZ, LDF1, LDF2, KX, KY, KZ, IFLAG
203 IF ((KZ .LT. 2) .OR. (KZ .GE. NZ)) GO TO 1020
222 NPK = NZ + KZ
235 CALL BKNOT(Z,NZ,KZ,TZ)
256 CALL BTPCF(Z,NZ,WORK,NZ,NX*NY,TZ,KZ,BCOEF,WORK(IW))
326 * 32,IFLAG,1,1,KZ,I2,0,R1,R2)
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/dft/ |
| H A D | dft_mag.F | 156 KZ = 3
159 KZ = 1
162 KZ = 2
165 G10Y = VXC(N)*(COORD(KZ,N) - ORIGIN(KZ))
195 KZ = 3
198 KZ = 1
201 KZ = 2
204 PZ = COORD(KZ,N) - ORIGIN(KZ)
279 KZ = 3
286 KZ = 1
[all …]
|
| /dports/science/dcl/dcl-5.4.8/src/math1/viblib/ |
| H A D | vimlt1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 IZ(KZ)=IX(KX)*IY(KY)
20 IZ(KZ)=IMISS
|
| H A D | viadd1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 IZ(KZ)=IX(KX)+IY(KY)
20 IZ(KZ)=IMISS
|
| H A D | vidiv1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 IZ(KZ)=IX(KX)/IY(KY)
20 IZ(KZ)=IMISS
|
| H A D | visub1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 IZ(KZ)=IX(KX)-IY(KY)
20 IZ(KZ)=IMISS
|
| H A D | vifnb1.f | 14 KZ=1-JZ
18 KZ=KZ+JZ
20 IZ(KZ)=IFNB(IX(KX),IY(KY))
22 IZ(KZ)=IMISS
|
| /dports/science/dcl/dcl-5.4.8/src/math1/vrblib/ |
| H A D | vrmlt1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 RZ(KZ)=RX(KX)*RY(KY)
20 RZ(KZ)=RMISS
|
| H A D | vrdiv1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 RZ(KZ)=RX(KX)/RY(KY)
20 RZ(KZ)=RMISS
|
| H A D | vradd1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 RZ(KZ)=RX(KX)+RY(KY)
20 RZ(KZ)=RMISS
|
| H A D | vrsub1.f | 12 KZ=1-JZ
16 KZ=KZ+JZ
18 RZ(KZ)=RX(KX)-RY(KY)
20 RZ(KZ)=RMISS
|
| H A D | vrfnb1.f | 15 KZ=1-JZ
19 KZ=KZ+JZ
21 RZ(KZ)=RFNB(RX(KX),RY(KY))
23 RZ(KZ)=RMISS
|