| /dports/science/silo/silo-4.10.2-bsd/tools/mapred/ |
| H A D | mapper.py | 8 def vecsub(Va,Vb): function
25 V21 = vecsub(P2,P1)
26 V32 = vecsub(P3,P2)
37 V0 = vecsub(P3,P1)
38 V1 = vecsub(P2,P1)
39 V2 = vecsub(Pc,P1)
71 cdiff = vecsub(c1,c0)
|
| /dports/science/plumed/plumed2-2.7.2/user-doc/tutorials/old_tutorials/belfast-2/FREE_DYNAMICS/ |
| H A D | .l.tcl | 22 lappend newcoord [ vecsub $coord $gc ]
90 set v [ expr [ veclength2 [ vecsub $pi $pj ] ] * $ww * $ww ] ; puts -nonewline ""
94 set v [ expr [ veclength2 [ vecsub $pi $pj ] ]] ; puts -nonewline ""
114 lappend delta [ vecsub [ lindex $pi $k ] [ lindex $pj $k ] ] ; puts -nonewline ""
|
| H A D | rmsd_calculator.sh | 63 lappend newcoord [ vecsub $coord $gc ]
131 set v [ expr [ veclength2 [ vecsub $pi $pj ] ] * $ww * $ww ] ; puts -nonewline ""
135 set v [ expr [ veclength2 [ vecsub $pi $pj ] ]] ; puts -nonewline ""
155 lappend delta [ vecsub [ lindex $pi $k ] [ lindex $pj $k ] ] ; puts -nonewline ""
|
| /dports/science/plumed/plumed2-2.7.2/user-doc/tutorials/old_tutorials/belfast-2/ |
| H A D | .l.tcl | 22 lappend newcoord [ vecsub $coord $gc ]
90 set v [ expr [ veclength2 [ vecsub $pi $pj ] ] * $ww * $ww ] ; puts -nonewline ""
94 set v [ expr [ veclength2 [ vecsub $pi $pj ] ]] ; puts -nonewline ""
114 lappend delta [ vecsub [ lindex $pi $k ] [ lindex $pj $k ] ] ; puts -nonewline ""
|
| /dports/science/plumed/plumed2-2.7.2/regtest/basic/rt-tg1/ |
| H A D | README | 41 puts "Correct distance: [veclength [vecsub $oxyz $com]] A"
43 puts "Wrong distance: [veclength [vecsub $oxyz $comgeo]] A"
|
| /dports/science/lammps/lammps-stable_29Sep2021/examples/SPIN/vmd/ |
| H A D | prepare_vmd.sh | 16 set middle [vecadd \$start [vecscale 0.9 [vecsub \$end \$start]]]
52 [graphics \$mol cylinder [vecsub \$center \$vechalf]\\
|
| H A D | vmd_nano.vmd | 2 set middle [vecadd $start [vecscale 0.9 [vecsub $end $start]]]
38 [graphics $mol cylinder [vecsub $center $vechalf]\
|
| /dports/astro/py-ephem/ephem-4.1.3/libastro/ |
| H A D | vector.h | 12 #define vecsub(A,B,C) {(C).x=(A).x-(B).x;(C).y=(A).y-(B).y;(C).z=(A).z-(B).z;} macro
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/fortran/ |
| H A D | expr.c | 1330 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1361 vecsub[d] = NULL; in find_array_section()
1394 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1395 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1400 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1506 gcc_assert(vecsub[d]); in find_array_section()
1508 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1509 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1512 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1515 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/fortran/ |
| H A D | expr.c | 1343 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1374 vecsub[d] = NULL; in find_array_section()
1407 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1408 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1413 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1519 gcc_assert(vecsub[d]); in find_array_section()
1521 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1522 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1525 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1528 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/fortran/ |
| H A D | expr.c | 1332 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1363 vecsub[d] = NULL; in find_array_section()
1396 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1397 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1402 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1508 gcc_assert(vecsub[d]); in find_array_section()
1510 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1511 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1514 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1517 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/fortran/ |
| H A D | expr.c | 1332 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1363 vecsub[d] = NULL; in find_array_section()
1396 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1397 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1402 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1508 gcc_assert(vecsub[d]); in find_array_section()
1510 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1511 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1514 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1517 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/fortran/ |
| H A D | expr.c | 1343 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1374 vecsub[d] = NULL; in find_array_section()
1407 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1408 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1413 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1519 gcc_assert(vecsub[d]); in find_array_section()
1521 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1522 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1525 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1528 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/fortran/ |
| H A D | expr.c | 1469 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1500 vecsub[d] = NULL; in find_array_section()
1533 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1534 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1539 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1645 gcc_assert(vecsub[d]); in find_array_section()
1647 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1648 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1651 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1654 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/fortran/ |
| H A D | expr.c | 1469 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1500 vecsub[d] = NULL; in find_array_section()
1533 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1534 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1539 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1645 gcc_assert(vecsub[d]); in find_array_section()
1647 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1648 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1651 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1654 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/fortran/ |
| H A D | expr.c | 1468 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1499 vecsub[d] = NULL; in find_array_section()
1532 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1533 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1538 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1644 gcc_assert(vecsub[d]); in find_array_section()
1646 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1647 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1650 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1653 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/fortran/ |
| H A D | expr.c | 1435 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1466 vecsub[d] = NULL; in find_array_section()
1499 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1500 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1505 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1611 gcc_assert(vecsub[d]); in find_array_section()
1613 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1614 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1617 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1620 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/fortran/ |
| H A D | expr.c | 1509 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1540 vecsub[d] = NULL; in find_array_section()
1573 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1574 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1579 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1685 gcc_assert(vecsub[d]); in find_array_section()
1687 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1688 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1691 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1694 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/fortran/ |
| H A D | expr.c | 1476 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1507 vecsub[d] = NULL; in find_array_section()
1540 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1541 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1546 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1652 gcc_assert(vecsub[d]); in find_array_section()
1654 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1655 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1658 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1661 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/fortran/ |
| H A D | expr.c | 1507 gfc_constructor *cons, *vecsub[GFC_MAX_DIMENSIONS]; in find_array_section() local
1538 vecsub[d] = NULL; in find_array_section()
1571 vecsub[d] = gfc_constructor_first (begin->value.constructor); in find_array_section()
1572 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
1577 for (ci = vecsub[d]; ci; ci = gfc_constructor_next (ci)) in find_array_section()
1683 gcc_assert(vecsub[d]); in find_array_section()
1685 if (!gfc_constructor_next (vecsub[d])) in find_array_section()
1686 vecsub[d] = gfc_constructor_first (ref->u.ar.start[d]->value.constructor); in find_array_section()
1689 vecsub[d] = gfc_constructor_next (vecsub[d]); in find_array_section()
1692 mpz_set (ctr[d], vecsub[d]->expr->value.integer); in find_array_section()
|