Octopus
undef.F90
Go to the documentation of this file.
1
!! Copyright (C) 2002-2006 M. Marques, A. Castro, A. Rubio, G. Bertsch
2
!!
3
!! This program is free software; you can redistribute it and/or modify
4
!! it under the terms of the GNU General Public License as published by
5
!! the Free Software Foundation; either version 2, or (at your option)
6
!! any later version.
7
!!
8
!! This program is distributed in the hope that it will be useful,
9
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
10
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11
!! GNU General Public License for more details.
12
!!
13
!! You should have received a copy of the GNU General Public License
14
!! along with this program; if not, write to the Free Software
15
!! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
16
!! 02110-1301, USA.
17
!!
18
19
#ifdef R_TREAL
20
#undef R_TREAL
21
#endif
22
23
#ifdef R_TCOMPLEX
24
#undef R_TCOMPLEX
25
#endif
26
27
#ifdef R_TINTEGER
28
#undef R_TINTEGER
29
#endif
30
31
#ifdef R_TSINGLE
32
#undef R_TSINGLE
33
#endif
34
35
#undef X
36
#undef pX
37
#undef aX
38
#undef TS
39
#undef R_TYPE
40
#undef R_BASE
41
#undef R_CTYPE
42
#undef R_TYPE_VAL
43
#undef R_TYPE_GPU
44
#undef R_TYPE_IOBINARY
45
#undef R_DOUBLE
46
#undef R_MPITYPE
47
#undef R_TOTYPE
48
#undef R_SIZEOF
49
#undef R_ADD
50
#undef R_MUL
51
#undef R_CONJ
52
#undef R_REAL
53
#undef R_AIMAG
54
55
!! Local Variables:
56
!! mode: f90
57
!! coding: utf-8
58
!! End:
include
undef.F90
Generated on Mon Oct 19 2026 10:26:33 for Octopus by
1.9.4