- Timestamp:
- Apr 23, 2008, 4:05:59 PM (17 years ago)
- Children:
- 51af4a
- Parents:
- d3482a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
pcp/src/perturbed.c
rd3482a r4f9fe2 1567 1567 * \sa crossed() - is the same but vice versa, return value must be specified, \a i is returned. 1568 1568 */ 1569 #ifdef HAVE_INLINE 1569 1570 inline int cross(int i, int j) 1571 #else 1572 int cross(int i, int j) 1573 #endif 1570 1574 { 1571 1575 const int matrix[NDIM*4] = {1,2,2,1,2,0,0,2,0,1,1,0}; … … 1585 1589 * \sa cross() - is the same but vice versa, return value must be specified, \a i is returned. 1586 1590 */ 1591 #ifdef HAVE_INLINE 1587 1592 inline int crossed(int i, int j) 1593 #else 1594 int crossed(int i, int j) 1595 #endif 1588 1596 { 1589 1597 const int matrix[NDIM*4] = {1,2,2,1,2,0,0,2,0,1,1,0}; … … 1616 1624 * \param index component index for Lattice#RealBasisSQ 1617 1625 */ 1626 #ifdef HAVE_INLINE 1618 1627 inline double sawtooth(struct Lattice *Lat, double L[NDIM], const int index) 1628 #else 1629 double sawtooth(struct Lattice *Lat, double L[NDIM], const int index) 1630 #endif 1619 1631 { 1620 1632 double axis = sqrt(Lat->RealBasisSQ[index]); … … 1646 1658 * \note Continuous Set of Damped Gauge Transformations according to Keith and Bader 1647 1659 */ 1660 #ifdef HAVE_INLINE 1648 1661 inline double ShiftGaugeOrigin(struct Problem *P, double r[NDIM], const int index) 1662 #else 1663 double ShiftGaugeOrigin(struct Problem *P, double r[NDIM], const int index) 1664 #endif 1649 1665 { 1650 1666 struct Ions *I = &P->Ion; … … 1698 1714 * \param result[] return vector 1699 1715 */ 1716 #ifdef HAVE_INLINE 1700 1717 inline void MinImageConv(struct Lattice *Lat, const double R[NDIM], const double r[NDIM], double *result) 1718 #else 1719 void MinImageConv(struct Lattice *Lat, const double R[NDIM], const double r[NDIM], double *result) 1720 #endif 1701 1721 { 1702 1722 //double axis = Lat->RealBasisQ[index];
Note:
See TracChangeset
for help on using the changeset viewer.