| /dports/audio/deadbeef/deadbeef-0.7.2/plugins/vtx/ |
| H A D | ay8912.c | 146 ay->cnt_a = ay->cnt_b = ay->cnt_c = ay->cnt_n = ay->cnt_e = 0; in ayemu_reset()
147 ay->bit_a = ay->bit_b = ay->bit_c = ay->bit_n = 0; in ayemu_reset()
148 ay->env_pos = ay->EnvNum = 0; in ayemu_reset()
389 max_l = ay->vols[0][31] + ay->vols[2][31] + ay->vols[3][31]; in prepare_generation()
390 max_r = ay->vols[1][31] + ay->vols[3][31] + ay->vols[5][31]; in prepare_generation()
423 ay->bit_a = ! ay->bit_a; in ayemu_gen_sound()
427 ay->bit_b = ! ay->bit_b; in ayemu_gen_sound()
431 ay->bit_c = ! ay->bit_c; in ayemu_gen_sound()
450 if ((ay->bit_a | !ay->regs.R7_tone_a) & (ay->bit_n | !ay->regs.R7_noise_a)) { in ayemu_gen_sound()
456 if ((ay->bit_b | !ay->regs.R7_tone_b) & (ay->bit_n | !ay->regs.R7_noise_b)) { in ayemu_gen_sound()
[all …]
|
| /dports/multimedia/audacious-plugins/audacious-plugins-4.1/src/vtx/ |
| H A D | ay8912.cc | 147 ay->cnt_a = ay->cnt_b = ay->cnt_c = ay->cnt_n = ay->cnt_e = 0; in ayemu_reset()
148 ay->bit_a = ay->bit_b = ay->bit_c = ay->bit_n = 0; in ayemu_reset()
149 ay->env_pos = ay->EnvNum = 0; in ayemu_reset()
385 max_l = ay->vols[0][31] + ay->vols[2][31] + ay->vols[3][31]; in prepare_generation()
386 max_r = ay->vols[1][31] + ay->vols[3][31] + ay->vols[5][31]; in prepare_generation()
419 ay->bit_a = ! ay->bit_a; in ayemu_gen_sound()
423 ay->bit_b = ! ay->bit_b; in ayemu_gen_sound()
427 ay->bit_c = ! ay->bit_c; in ayemu_gen_sound()
446 if ((ay->bit_a | !ay->regs.R7_tone_a) & (ay->bit_n | !ay->regs.R7_noise_a)) { in ayemu_gen_sound()
452 if ((ay->bit_b | !ay->regs.R7_tone_b) & (ay->bit_n | !ay->regs.R7_noise_b)) { in ayemu_gen_sound()
[all …]
|
| /dports/audio/sc3-plugins/sc3-plugins-Version-3.9.0/source/AYUGens/AY_libayemu/src/ |
| H A D | ay8912.c | 146 ay->cnt_a = ay->cnt_b = ay->cnt_c = ay->cnt_n = ay->cnt_e = 0; in ayemu_reset()
147 ay->bit_a = ay->bit_b = ay->bit_c = ay->bit_n = 0; in ayemu_reset()
148 ay->env_pos = ay->EnvNum = 0; in ayemu_reset()
385 max_l = ay->vols[0][31] + ay->vols[2][31] + ay->vols[3][31]; in prepare_generation()
386 max_r = ay->vols[1][31] + ay->vols[3][31] + ay->vols[5][31]; in prepare_generation()
419 ay->bit_a = ! ay->bit_a; in ayemu_gen_sound()
423 ay->bit_b = ! ay->bit_b; in ayemu_gen_sound()
427 ay->bit_c = ! ay->bit_c; in ayemu_gen_sound()
446 if ((ay->bit_a | !ay->regs.R7_tone_a) & (ay->bit_n | !ay->regs.R7_noise_a)) { in ayemu_gen_sound()
452 if ((ay->bit_b | !ay->regs.R7_tone_b) & (ay->bit_n | !ay->regs.R7_noise_b)) { in ayemu_gen_sound()
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/aobasis/ |
| H A D | ai_angmom.F | 215 s(coset(0, ay, az), 1) = rap(2)*s(coset(0, ay - 1, az), 1) + &
232 s(coset(1, ay, az), 1) = rap(1)*s(coset(0, ay, az), 1)
233 as(coset(1, ay, az), 1, 1) = rap(1)*as(coset(0, ay, az), 1, 1) + &
291 s(coset(ax, ay, az), 2) = s(coset(ax + 1, ay, az), 1) - &
293 s(coset(ax, ay, az), 3) = s(coset(ax, ay + 1, az), 1) - &
295 s(coset(ax, ay, az), 4) = s(coset(ax, ay, az + 1), 1) - &
339 s(coset(ax, ay, az), 2) = rbp(1)*s(coset(ax, ay, az), 1)
361 IF (ay > 0) as(coset(ax, ay, az), 2, 3) = as(coset(ax, ay, az), 2, 3) - &
364 s(coset(ax, ay, az), 3) = rbp(2)*s(coset(ax, ay, az), 1)
389 s(coset(ax, ay, az), 4) = rbp(3)*s(coset(ax, ay, az), 1)
[all …]
|
| H A D | ai_verfc.F | 360 DO ay = 2, la
361 az = la - ay
365 f2*REAL(ay - 1, dp)*(vnuc(coset(0, ay - 2, az), 1, n) - &
370 f2*REAL(ay - 1, dp)*(verf(coset(0, ay - 2, az), 1, n) + &
376 DO ay = 0, la - 1
377 az = la - 1 - ay
388 DO ay = 0, la - ax
389 az = la - ax - ay
948 DO ay = 0, la - ax
949 fay = REAL(ay, dp)
[all …]
|
| H A D | ai_moments.F | 281 sc(coset(0, ay, az), 1) = rap(2)*sc(coset(0, ay - 1, az), 1) + &
284 ss(coset(0, ay, az), 1) = rap(2)*ss(coset(0, ay - 1, az), 1) + &
293 sc(coset(1, ay, az), 1) = rap(1)*sc(coset(0, ay, az), 1) - &
295 ss(coset(1, ay, az), 1) = rap(1)*ss(coset(0, ay, az), 1) + &
341 sc(coset(ax, ay, az), 2) = sc(coset(ax + 1, ay, az), 1) - &
343 sc(coset(ax, ay, az), 3) = sc(coset(ax, ay + 1, az), 1) - &
345 sc(coset(ax, ay, az), 4) = sc(coset(ax, ay, az + 1), 1) - &
347 ss(coset(ax, ay, az), 2) = ss(coset(ax + 1, ay, az), 1) - &
349 ss(coset(ax, ay, az), 3) = ss(coset(ax, ay + 1, az), 1) - &
351 ss(coset(ax, ay, az), 4) = ss(coset(ax, ay, az + 1), 1) - &
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/aobasis/ |
| H A D | ai_angmom.F | 215 s(coset(0, ay, az), 1) = rap(2)*s(coset(0, ay - 1, az), 1) + &
232 s(coset(1, ay, az), 1) = rap(1)*s(coset(0, ay, az), 1)
233 as(coset(1, ay, az), 1, 1) = rap(1)*as(coset(0, ay, az), 1, 1) + &
291 s(coset(ax, ay, az), 2) = s(coset(ax + 1, ay, az), 1) - &
293 s(coset(ax, ay, az), 3) = s(coset(ax, ay + 1, az), 1) - &
295 s(coset(ax, ay, az), 4) = s(coset(ax, ay, az + 1), 1) - &
339 s(coset(ax, ay, az), 2) = rbp(1)*s(coset(ax, ay, az), 1)
361 IF (ay > 0) as(coset(ax, ay, az), 2, 3) = as(coset(ax, ay, az), 2, 3) - &
364 s(coset(ax, ay, az), 3) = rbp(2)*s(coset(ax, ay, az), 1)
389 s(coset(ax, ay, az), 4) = rbp(3)*s(coset(ax, ay, az), 1)
[all …]
|
| H A D | ai_verfc.F | 360 DO ay = 2, la
361 az = la - ay
365 f2*REAL(ay - 1, dp)*(vnuc(coset(0, ay - 2, az), 1, n) - &
370 f2*REAL(ay - 1, dp)*(verf(coset(0, ay - 2, az), 1, n) + &
376 DO ay = 0, la - 1
377 az = la - 1 - ay
388 DO ay = 0, la - ax
389 az = la - ax - ay
948 DO ay = 0, la - ax
949 fay = REAL(ay, dp)
[all …]
|
| H A D | ai_moments.F | 281 sc(coset(0, ay, az), 1) = rap(2)*sc(coset(0, ay - 1, az), 1) + &
284 ss(coset(0, ay, az), 1) = rap(2)*ss(coset(0, ay - 1, az), 1) + &
293 sc(coset(1, ay, az), 1) = rap(1)*sc(coset(0, ay, az), 1) - &
295 ss(coset(1, ay, az), 1) = rap(1)*ss(coset(0, ay, az), 1) + &
341 sc(coset(ax, ay, az), 2) = sc(coset(ax + 1, ay, az), 1) - &
343 sc(coset(ax, ay, az), 3) = sc(coset(ax, ay + 1, az), 1) - &
345 sc(coset(ax, ay, az), 4) = sc(coset(ax, ay, az + 1), 1) - &
347 ss(coset(ax, ay, az), 2) = ss(coset(ax + 1, ay, az), 1) - &
349 ss(coset(ax, ay, az), 3) = ss(coset(ax, ay + 1, az), 1) - &
351 ss(coset(ax, ay, az), 4) = ss(coset(ax, ay, az + 1), 1) - &
[all …]
|
| /dports/math/opensolaris-libm/opensolaris-libm-2017.01.31/usr/src/libm/src/complex/ |
| H A D | cabs.c | 68 ay = fabs(x); in cabs()
77 ay = fabs(y); in cabs()
88 return ((ax == ay)? ay : ax); in cabs()
90 return ((ay == ax)? ax : ay); in cabs()
97 ax += ay; in cabs()
150 ay = ay * ay; in cabs()
151 ax += ay / (ax + sqrt(ax * ax + ay)); in cabs()
155 w = sqrt(ax * ax + ay * ay); in cabs()
156 ax += ay / ((ax + w) / ay); in cabs()
163 ay = ay * ay + (ax - xh) * (ax + xh); in cabs()
[all …]
|
| /dports/math/opensolaris-libm/opensolaris-libm-2017.01.31/usr/src/libm/src/C/ |
| H A D | hypot.c | 93 ay = fabs(x); in hypot()
113 return (ax == ay ? ay : ax); in hypot()
115 return (ay == ax ? ax : ay); in hypot()
121 ax += ay; in hypot()
174 ay = ay * ay; in hypot()
175 ax += ay / (ax + sqrt(ax * ax + ay)); in hypot()
180 w = sqrt(ax * ax + ay * ay); in hypot()
181 ax += ay / ((ax + w) / ay); in hypot()
184 w = ax - ay; in hypot()
188 ay = ay * ay + (ax - xh) * (ax + xh); in hypot()
[all …]
|
| /dports/science/PETSc/petsc-3.14.1/src/mat/impls/baij/seq/ |
| H A D | dgefa2.c | 137 stmp = ax[0]; ax[0] = ay[0]; ay[0] = stmp; in PetscKernel_A_gets_inverse_A_2()
138 stmp = ax[1]; ax[1] = ay[1]; ay[1] = stmp; in PetscKernel_A_gets_inverse_A_2()
273 stmp = ax[0]; ax[0] = ay[0]; ay[0] = stmp; in PetscKernel_A_gets_inverse_A_9()
274 stmp = ax[1]; ax[1] = ay[1]; ay[1] = stmp; in PetscKernel_A_gets_inverse_A_9()
275 stmp = ax[2]; ax[2] = ay[2]; ay[2] = stmp; in PetscKernel_A_gets_inverse_A_9()
276 stmp = ax[3]; ax[3] = ay[3]; ay[3] = stmp; in PetscKernel_A_gets_inverse_A_9()
277 stmp = ax[4]; ax[4] = ay[4]; ay[4] = stmp; in PetscKernel_A_gets_inverse_A_9()
278 stmp = ax[5]; ax[5] = ay[5]; ay[5] = stmp; in PetscKernel_A_gets_inverse_A_9()
279 stmp = ax[6]; ax[6] = ay[6]; ay[6] = stmp; in PetscKernel_A_gets_inverse_A_9()
280 stmp = ax[7]; ax[7] = ay[7]; ay[7] = stmp; in PetscKernel_A_gets_inverse_A_9()
[all …]
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/ |
| H A D | pr41928.f90 | 21 DO ay=0,la-ax
22 sc(coset(ax,ay,az),1) = rap(1)*sc(coset(ax-1,ay,az),1) +&
24 ss(coset(ax,ay,az),1) = rap(1)*ss(coset(ax-1,ay,az),1) +&
94 DO ay=2,la
95 s(coset(0,ay,az),1,l) = rap(2)*s(coset(0,ay-1,az),1,l) +&
106 s(coset(ax,ay,az),1,l) = rap(1)*s(coset(ax-1,ay,az),1,l) +&
122 s(coset(ax,ay,az),2,l) = s(coset(ax+1,ay,az),1,l) -&
124 s(coset(ax,ay,az),4,l) = s(coset(ax,ay,az+1),1,l) -&
132 s(coset(ax,ay,az),2,l) = rbp(1)*s(coset(ax,ay,az),1,l)
140 s(coset(ax,ay,az),3,l) = rbp(2)*s(coset(ax,ay,az),1,l)
[all …]
|