| 1 | /*
|
|---|
| 2 | A simple 2D hydro code
|
|---|
| 3 | (C) Romain Teyssier : CEA/IRFU -- original F90 code
|
|---|
| 4 | (C) Pierre-Francois Lavallee : IDRIS -- original F90 code
|
|---|
| 5 | (C) Guillaume Colin de Verdiere : CEA/DAM -- for the C version
|
|---|
| 6 | */
|
|---|
| 7 |
|
|---|
| 8 | /*
|
|---|
| 9 |
|
|---|
| 10 | This software is governed by the CeCILL license under French law and
|
|---|
| 11 | abiding by the rules of distribution of free software. You can use,
|
|---|
| 12 | modify and/ or redistribute the software under the terms of the CeCILL
|
|---|
| 13 | license as circulated by CEA, CNRS and INRIA at the following URL
|
|---|
| 14 | "http://www.cecill.info".
|
|---|
| 15 |
|
|---|
| 16 | As a counterpart to the access to the source code and rights to copy,
|
|---|
| 17 | modify and redistribute granted by the license, users are provided only
|
|---|
| 18 | with a limited warranty and the software's author, the holder of the
|
|---|
| 19 | economic rights, and the successive licensors have only limited
|
|---|
| 20 | liability.
|
|---|
| 21 |
|
|---|
| 22 | In this respect, the user's attention is drawn to the risks associated
|
|---|
| 23 | with loading, using, modifying and/or developing or reproducing the
|
|---|
| 24 | software by the user in light of its specific status of free software,
|
|---|
| 25 | that may mean that it is complicated to manipulate, and that also
|
|---|
| 26 | therefore means that it is reserved for developers and experienced
|
|---|
| 27 | professionals having in-depth computer knowledge. Users are therefore
|
|---|
| 28 | encouraged to load and test the software's suitability as regards their
|
|---|
| 29 | requirements in conditions enabling the security of their systems and/or
|
|---|
| 30 | data to be ensured and, more generally, to use and operate it in the
|
|---|
| 31 | same conditions as regards security.
|
|---|
| 32 |
|
|---|
| 33 | The fact that you are presently reading this means that you have had
|
|---|
| 34 | knowledge of the CeCILL license and that you accept its terms.
|
|---|
| 35 |
|
|---|
| 36 | */
|
|---|
| 37 | //
|
|---|
| 38 | // (C) Guillaume.Colin-de-Verdiere at CEA.Fr
|
|---|
| 39 | //
|
|---|
| 40 | #ifndef PERFCNT_H
|
|---|
| 41 | #define PERFCNT_H
|
|---|
| 42 | //
|
|---|
| 43 |
|
|---|
| 44 | // number of floatting ops per operation type
|
|---|
| 45 | #define FLOPSARI 1
|
|---|
| 46 | // + - * -x
|
|---|
| 47 |
|
|---|
| 48 | #define FLOPSSQR 2
|
|---|
| 49 | // / sqrt
|
|---|
| 50 |
|
|---|
| 51 | #define FLOPSMIN 1
|
|---|
| 52 | // min, max, sign, abs
|
|---|
| 53 |
|
|---|
| 54 | #define FLOPSTRA 5
|
|---|
| 55 | // exp, sin, cos
|
|---|
| 56 |
|
|---|
| 57 | extern long flopsAri, flopsSqr, flopsMin, flopsTra;
|
|---|
| 58 | extern double MflopsSUM;
|
|---|
| 59 | extern long nbFLOPS;
|
|---|
| 60 |
|
|---|
| 61 | #ifndef HMPP
|
|---|
| 62 | #define FLOPS(a, b, c, d) do { flopsAri+=(a); flopsSqr+=(b); flopsMin+=(c); flopsTra+=(d); } while (0)
|
|---|
| 63 | #else
|
|---|
| 64 | #define FLOPS(a, b, c, d)
|
|---|
| 65 | #endif
|
|---|
| 66 |
|
|---|
| 67 | //
|
|---|
| 68 | #endif
|
|---|
| 69 | //EOF
|
|---|
