| /dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/meam/ |
| H A D | meam_setup_global.F | 16 subroutine meam_setup_global(nelt, lat, z, ielement, atwt, alpha, argument
23 integer nelt, lat, ielement, ibar
28 dimension lat(nelt), ielement(nelt), ibar(nelt)
29 dimension z(nelt), atwt(nelt), alpha(nelt)
30 dimension b0(nelt), b1(nelt), b2(nelt), b3(nelt)
31 dimension alat(nelt), esub(nelt), asub(nelt)
32 dimension t0(nelt), t1(nelt), t2(nelt), t3(nelt), rozero(nelt)
37 neltypes = nelt
39 do i = 1,nelt
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gcc.target/i386/ |
| H A D | vperm.pl | 3 $nelt = int($ARGV[0]);
6 print "/* This file auto-generated with ./vperm.pl $nelt $leng. */\n\n";
8 for ($i = 0; $i < $nelt; ++$i) { $perm[$i] = 0; }
11 for ($i = 0; $i < ($leng * $nelt) ** $nelt; ++$i)
21 for ($j = 0; $j < $nelt; ++$j)
24 print ", " if $j < $nelt - 1;
28 INCR: for ($j = 0; $j < $nelt; ++$j)
30 last INCR if ++$perm[$j] < $leng * $nelt;
|
| /dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | cyclac.c | 229 if (*nelt < 1) { in cyclac_()
241 k = -(*ncycle) % *nelt; in cyclac_()
243 k = *ncycle % *nelt; in cyclac_()
252 k += *nelt; in cyclac_()
254 movec_(array, nelt, out, array_len, out_len); in cyclac_()
277 widest = nbwid_(array, nelt, array_len); in cyclac_()
282 g = gcd_(&k, nelt); in cyclac_()
283 m = *nelt / g; in cyclac_()
297 if (l > *nelt) { in cyclac_()
298 l -= *nelt; in cyclac_()
[all …]
|
| H A D | cyacip.c | 9 /* Subroutine */ int cyacip_(integer *nelt, char *dir, integer *ncycle, char * in cyacip_() argument
196 if (*nelt < 1) { in cyacip_()
208 k = -(*ncycle) % *nelt; in cyacip_()
210 k = *ncycle % *nelt; in cyacip_()
219 k += *nelt; in cyacip_()
242 widest = nbwid_(array, nelt, array_len); in cyacip_()
246 g = gcd_(&k, nelt); in cyacip_()
247 m = *nelt / g; in cyacip_()
261 if (l > *nelt) { in cyacip_()
262 l -= *nelt; in cyacip_()
[all …]
|
| /dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | cyclac.c | 229 if (*nelt < 1) { in cyclac_()
241 k = -(*ncycle) % *nelt; in cyclac_()
243 k = *ncycle % *nelt; in cyclac_()
252 k += *nelt; in cyclac_()
254 movec_(array, nelt, out, array_len, out_len); in cyclac_()
277 widest = nbwid_(array, nelt, array_len); in cyclac_()
282 g = gcd_(&k, nelt); in cyclac_()
283 m = *nelt / g; in cyclac_()
297 if (l > *nelt) { in cyclac_()
298 l -= *nelt; in cyclac_()
[all …]
|