1!{\src2tex{textfont=tt}}
2!!****m* ABINIT/m_cppopts_dumper
3!! NAME
4!!  m_cppopts_dumper
5!!
6!! FUNCTION
7!!  Displays preprocessing options activated at compile-time.
8!!
9!! COPYRIGHT
10!!  Copyright (C) 2010-2016 ABINIT group (Yann Pouillon)
11!!  This file is distributed under the terms of the
12!!  GNU General Public License, see ~abinit/COPYING
13!!  or http://www.gnu.org/copyleft/gpl.txt.
14!!
15!! NOTES
16!!  This file was generated by make-cppopts-dumper,
17!!  on 2016/07/21 07:23:54 +0000.
18!!  Any modification will be lost.
19!!
20!! PARENTS
21!!
22!! CHILDREN
23!!
24!! SOURCE
25
26#if defined HAVE_CONFIG_H
27#include "config.h"
28#endif
29
30module m_cppopts_dumper
31
32  implicit none
33
34  public :: dump_cpp_options
35
36contains
37!!***
38
39!!****f* ABINIT/m_cppopts_dumper/dump_cpp_options
40!! NAME
41!!  dump_cpp_options
42!!
43!! FUNCTION
44!!  Reports a printout of the CPP options used at compile-time,
45!!  useful for error messages and debugging.
46!!
47!! INPUTS
48!!  my_unit= Fortran unit number (optional, default is std_out)
49!!
50!! OUTPUT
51!!  Only printing.
52!!
53!! PARENTS
54!!
55!! CHILDREN
56!!
57!! SOURCE
58
59subroutine dump_cpp_options(my_unit)
60
61  use defs_basis
62
63!This section has been created automatically by the script Abilint (TD).
64!Do not modify the following lines by hand.
65#undef ABI_FUNC
66#define ABI_FUNC 'dump_cpp_options'
67!End of the abilint section
68
69  implicit none
70
71!Arguments -------------------------------------
72  integer,intent(in) :: my_unit
73
74!Local variables -------------------------------
75  character(len=26) :: tmp
76  character(len=80) :: msg
77  integer :: msg_index
78
79! **********************************************************************
80
81  write(my_unit,"(a,1x,a)") ch10,repeat("+",78)
82  write(my_unit,"(1x,a,a)") "CPP options activated during the build:",ch10
83
84  msg_index = 0
85  msg = ""
86
87#if defined CC_COMPAQ
88  write(tmp,"(1x,a25)") "CC_COMPAQ"
89  msg = trim(msg)//trim(tmp)
90  msg_index = msg_index + 1
91  if ( mod(msg_index,3) == 0 ) then
92    msg = trim(msg)//ch10
93    write(my_unit,'(a)') msg
94    msg = ""
95  end if
96#endif
97#if defined CC_GNU
98  write(tmp,"(1x,a25)") "CC_GNU"
99  msg = trim(msg)//trim(tmp)
100  msg_index = msg_index + 1
101  if ( mod(msg_index,3) == 0 ) then
102    msg = trim(msg)//ch10
103    write(my_unit,'(a)') msg
104    msg = ""
105  end if
106#endif
107#if defined CC_IBM
108  write(tmp,"(1x,a25)") "CC_IBM"
109  msg = trim(msg)//trim(tmp)
110  msg_index = msg_index + 1
111  if ( mod(msg_index,3) == 0 ) then
112    msg = trim(msg)//ch10
113    write(my_unit,'(a)') msg
114    msg = ""
115  end if
116#endif
117#if defined CC_INTEL
118  write(tmp,"(1x,a25)") "CC_INTEL"
119  msg = trim(msg)//trim(tmp)
120  msg_index = msg_index + 1
121  if ( mod(msg_index,3) == 0 ) then
122    msg = trim(msg)//ch10
123    write(my_unit,'(a)') msg
124    msg = ""
125  end if
126#endif
127#if defined CC_OPEN64
128  write(tmp,"(1x,a25)") "CC_OPEN64"
129  msg = trim(msg)//trim(tmp)
130  msg_index = msg_index + 1
131  if ( mod(msg_index,3) == 0 ) then
132    msg = trim(msg)//ch10
133    write(my_unit,'(a)') msg
134    msg = ""
135  end if
136#endif
137#if defined CC_PATHSCALE
138  write(tmp,"(1x,a25)") "CC_PATHSCALE"
139  msg = trim(msg)//trim(tmp)
140  msg_index = msg_index + 1
141  if ( mod(msg_index,3) == 0 ) then
142    msg = trim(msg)//ch10
143    write(my_unit,'(a)') msg
144    msg = ""
145  end if
146#endif
147#if defined CC_PGI
148  write(tmp,"(1x,a25)") "CC_PGI"
149  msg = trim(msg)//trim(tmp)
150  msg_index = msg_index + 1
151  if ( mod(msg_index,3) == 0 ) then
152    msg = trim(msg)//ch10
153    write(my_unit,'(a)') msg
154    msg = ""
155  end if
156#endif
157#if defined CC_SUN
158  write(tmp,"(1x,a25)") "CC_SUN"
159  msg = trim(msg)//trim(tmp)
160  msg_index = msg_index + 1
161  if ( mod(msg_index,3) == 0 ) then
162    msg = trim(msg)//ch10
163    write(my_unit,'(a)') msg
164    msg = ""
165  end if
166#endif
167#if defined CXX_COMPAQ
168  write(tmp,"(1x,a25)") "CXX_COMPAQ"
169  msg = trim(msg)//trim(tmp)
170  msg_index = msg_index + 1
171  if ( mod(msg_index,3) == 0 ) then
172    msg = trim(msg)//ch10
173    write(my_unit,'(a)') msg
174    msg = ""
175  end if
176#endif
177#if defined CXX_GNU
178  write(tmp,"(1x,a25)") "CXX_GNU"
179  msg = trim(msg)//trim(tmp)
180  msg_index = msg_index + 1
181  if ( mod(msg_index,3) == 0 ) then
182    msg = trim(msg)//ch10
183    write(my_unit,'(a)') msg
184    msg = ""
185  end if
186#endif
187#if defined CXX_IBM
188  write(tmp,"(1x,a25)") "CXX_IBM"
189  msg = trim(msg)//trim(tmp)
190  msg_index = msg_index + 1
191  if ( mod(msg_index,3) == 0 ) then
192    msg = trim(msg)//ch10
193    write(my_unit,'(a)') msg
194    msg = ""
195  end if
196#endif
197#if defined CXX_INTEL
198  write(tmp,"(1x,a25)") "CXX_INTEL"
199  msg = trim(msg)//trim(tmp)
200  msg_index = msg_index + 1
201  if ( mod(msg_index,3) == 0 ) then
202    msg = trim(msg)//ch10
203    write(my_unit,'(a)') msg
204    msg = ""
205  end if
206#endif
207#if defined CXX_OPEN64
208  write(tmp,"(1x,a25)") "CXX_OPEN64"
209  msg = trim(msg)//trim(tmp)
210  msg_index = msg_index + 1
211  if ( mod(msg_index,3) == 0 ) then
212    msg = trim(msg)//ch10
213    write(my_unit,'(a)') msg
214    msg = ""
215  end if
216#endif
217#if defined CXX_PATHSCALE
218  write(tmp,"(1x,a25)") "CXX_PATHSCALE"
219  msg = trim(msg)//trim(tmp)
220  msg_index = msg_index + 1
221  if ( mod(msg_index,3) == 0 ) then
222    msg = trim(msg)//ch10
223    write(my_unit,'(a)') msg
224    msg = ""
225  end if
226#endif
227#if defined CXX_PGI
228  write(tmp,"(1x,a25)") "CXX_PGI"
229  msg = trim(msg)//trim(tmp)
230  msg_index = msg_index + 1
231  if ( mod(msg_index,3) == 0 ) then
232    msg = trim(msg)//ch10
233    write(my_unit,'(a)') msg
234    msg = ""
235  end if
236#endif
237#if defined CXX_SUN
238  write(tmp,"(1x,a25)") "CXX_SUN"
239  msg = trim(msg)//trim(tmp)
240  msg_index = msg_index + 1
241  if ( mod(msg_index,3) == 0 ) then
242    msg = trim(msg)//ch10
243    write(my_unit,'(a)') msg
244    msg = ""
245  end if
246#endif
247#if defined DEBUG_CONTRACT
248  write(tmp,"(1x,a25)") "DEB*G_CONTRACT"
249  msg = trim(msg)//trim(tmp)
250  msg_index = msg_index + 1
251  if ( mod(msg_index,3) == 0 ) then
252    msg = trim(msg)//ch10
253    write(my_unit,'(a)') msg
254    msg = ""
255  end if
256#endif
257#if defined DEBUG_MODE
258  write(tmp,"(1x,a25)") "DEB*G_MODE"
259  msg = trim(msg)//trim(tmp)
260  msg_index = msg_index + 1
261  if ( mod(msg_index,3) == 0 ) then
262    msg = trim(msg)//ch10
263    write(my_unit,'(a)') msg
264    msg = ""
265  end if
266#endif
267#if defined DEBUG_VERBOSE
268  write(tmp,"(1x,a25)") "DEB*G_VERBOSE"
269  msg = trim(msg)//trim(tmp)
270  msg_index = msg_index + 1
271  if ( mod(msg_index,3) == 0 ) then
272    msg = trim(msg)//ch10
273    write(my_unit,'(a)') msg
274    msg = ""
275  end if
276#endif
277#if defined FC_ABSOFT
278  write(tmp,"(1x,a25)") "FC_ABSOFT"
279  msg = trim(msg)//trim(tmp)
280  msg_index = msg_index + 1
281  if ( mod(msg_index,3) == 0 ) then
282    msg = trim(msg)//ch10
283    write(my_unit,'(a)') msg
284    msg = ""
285  end if
286#endif
287#if defined FC_COMPAQ
288  write(tmp,"(1x,a25)") "FC_COMPAQ"
289  msg = trim(msg)//trim(tmp)
290  msg_index = msg_index + 1
291  if ( mod(msg_index,3) == 0 ) then
292    msg = trim(msg)//ch10
293    write(my_unit,'(a)') msg
294    msg = ""
295  end if
296#endif
297#if defined FC_FUJITSU
298  write(tmp,"(1x,a25)") "FC_FUJITSU"
299  msg = trim(msg)//trim(tmp)
300  msg_index = msg_index + 1
301  if ( mod(msg_index,3) == 0 ) then
302    msg = trim(msg)//ch10
303    write(my_unit,'(a)') msg
304    msg = ""
305  end if
306#endif
307#if defined FC_G95
308  write(tmp,"(1x,a25)") "FC_G95"
309  msg = trim(msg)//trim(tmp)
310  msg_index = msg_index + 1
311  if ( mod(msg_index,3) == 0 ) then
312    msg = trim(msg)//ch10
313    write(my_unit,'(a)') msg
314    msg = ""
315  end if
316#endif
317#if defined FC_GNU
318  write(tmp,"(1x,a25)") "FC_GNU"
319  msg = trim(msg)//trim(tmp)
320  msg_index = msg_index + 1
321  if ( mod(msg_index,3) == 0 ) then
322    msg = trim(msg)//ch10
323    write(my_unit,'(a)') msg
324    msg = ""
325  end if
326#endif
327#if defined FC_HITACHI
328  write(tmp,"(1x,a25)") "FC_HITACHI"
329  msg = trim(msg)//trim(tmp)
330  msg_index = msg_index + 1
331  if ( mod(msg_index,3) == 0 ) then
332    msg = trim(msg)//ch10
333    write(my_unit,'(a)') msg
334    msg = ""
335  end if
336#endif
337#if defined FC_IBM
338  write(tmp,"(1x,a25)") "FC_IBM"
339  msg = trim(msg)//trim(tmp)
340  msg_index = msg_index + 1
341  if ( mod(msg_index,3) == 0 ) then
342    msg = trim(msg)//ch10
343    write(my_unit,'(a)') msg
344    msg = ""
345  end if
346#endif
347#if defined FC_INTEL
348  write(tmp,"(1x,a25)") "FC_INTEL"
349  msg = trim(msg)//trim(tmp)
350  msg_index = msg_index + 1
351  if ( mod(msg_index,3) == 0 ) then
352    msg = trim(msg)//ch10
353    write(my_unit,'(a)') msg
354    msg = ""
355  end if
356#endif
357#if defined FC_MIPSPRO
358  write(tmp,"(1x,a25)") "FC_MIPSPRO"
359  msg = trim(msg)//trim(tmp)
360  msg_index = msg_index + 1
361  if ( mod(msg_index,3) == 0 ) then
362    msg = trim(msg)//ch10
363    write(my_unit,'(a)') msg
364    msg = ""
365  end if
366#endif
367#if defined FC_NAG
368  write(tmp,"(1x,a25)") "FC_NAG"
369  msg = trim(msg)//trim(tmp)
370  msg_index = msg_index + 1
371  if ( mod(msg_index,3) == 0 ) then
372    msg = trim(msg)//ch10
373    write(my_unit,'(a)') msg
374    msg = ""
375  end if
376#endif
377#if defined FC_OPEN64
378  write(tmp,"(1x,a25)") "FC_OPEN64"
379  msg = trim(msg)//trim(tmp)
380  msg_index = msg_index + 1
381  if ( mod(msg_index,3) == 0 ) then
382    msg = trim(msg)//ch10
383    write(my_unit,'(a)') msg
384    msg = ""
385  end if
386#endif
387#if defined FC_PATHSCALE
388  write(tmp,"(1x,a25)") "FC_PATHSCALE"
389  msg = trim(msg)//trim(tmp)
390  msg_index = msg_index + 1
391  if ( mod(msg_index,3) == 0 ) then
392    msg = trim(msg)//ch10
393    write(my_unit,'(a)') msg
394    msg = ""
395  end if
396#endif
397#if defined FC_PGI
398  write(tmp,"(1x,a25)") "FC_PGI"
399  msg = trim(msg)//trim(tmp)
400  msg_index = msg_index + 1
401  if ( mod(msg_index,3) == 0 ) then
402    msg = trim(msg)//ch10
403    write(my_unit,'(a)') msg
404    msg = ""
405  end if
406#endif
407#if defined FC_SUN
408  write(tmp,"(1x,a25)") "FC_SUN"
409  msg = trim(msg)//trim(tmp)
410  msg_index = msg_index + 1
411  if ( mod(msg_index,3) == 0 ) then
412    msg = trim(msg)//ch10
413    write(my_unit,'(a)') msg
414    msg = ""
415  end if
416#endif
417#if defined HAVE_ALGO
418  write(tmp,"(1x,a25)") "HAVE_ALGO"
419  msg = trim(msg)//trim(tmp)
420  msg_index = msg_index + 1
421  if ( mod(msg_index,3) == 0 ) then
422    msg = trim(msg)//ch10
423    write(my_unit,'(a)') msg
424    msg = ""
425  end if
426#endif
427#if defined HAVE_ALGO_LEVMAR
428  write(tmp,"(1x,a25)") "HAVE_ALGO_LEVMAR"
429  msg = trim(msg)//trim(tmp)
430  msg_index = msg_index + 1
431  if ( mod(msg_index,3) == 0 ) then
432    msg = trim(msg)//ch10
433    write(my_unit,'(a)') msg
434    msg = ""
435  end if
436#endif
437#if defined HAVE_ALGO_MPI
438  write(tmp,"(1x,a25)") "HAVE_ALGO_MPI"
439  msg = trim(msg)//trim(tmp)
440  msg_index = msg_index + 1
441  if ( mod(msg_index,3) == 0 ) then
442    msg = trim(msg)//ch10
443    write(my_unit,'(a)') msg
444    msg = ""
445  end if
446#endif
447#if defined HAVE_ALGO_SERIAL
448  write(tmp,"(1x,a25)") "HAVE_ALGO_SERIAL"
449  msg = trim(msg)//trim(tmp)
450  msg_index = msg_index + 1
451  if ( mod(msg_index,3) == 0 ) then
452    msg = trim(msg)//ch10
453    write(my_unit,'(a)') msg
454    msg = ""
455  end if
456#endif
457#if defined HAVE_AVX_SAFE_MODE
458  write(tmp,"(1x,a25)") "HAVE_AVX_SAFE_MODE"
459  msg = trim(msg)//trim(tmp)
460  msg_index = msg_index + 1
461  if ( mod(msg_index,3) == 0 ) then
462    msg = trim(msg)//ch10
463    write(my_unit,'(a)') msg
464    msg = ""
465  end if
466#endif
467#if defined HAVE_BSE_UNPACKED
468  write(tmp,"(1x,a25)") "HAVE_BSE_UNPACKED"
469  msg = trim(msg)//trim(tmp)
470  msg_index = msg_index + 1
471  if ( mod(msg_index,3) == 0 ) then
472    msg = trim(msg)//ch10
473    write(my_unit,'(a)') msg
474    msg = ""
475  end if
476#endif
477#if defined HAVE_BZR_BRANCH
478  write(tmp,"(1x,a25)") "HAVE_BZR_BRANCH"
479  msg = trim(msg)//trim(tmp)
480  msg_index = msg_index + 1
481  if ( mod(msg_index,3) == 0 ) then
482    msg = trim(msg)//ch10
483    write(my_unit,'(a)') msg
484    msg = ""
485  end if
486#endif
487#if defined HAVE_CCLOCK
488  write(tmp,"(1x,a25)") "HAVE_CCLOCK"
489  msg = trim(msg)//trim(tmp)
490  msg_index = msg_index + 1
491  if ( mod(msg_index,3) == 0 ) then
492    msg = trim(msg)//ch10
493    write(my_unit,'(a)') msg
494    msg = ""
495  end if
496#endif
497#if defined HAVE_DFT_ATOMPAW
498  write(tmp,"(1x,a25)") "HAVE_DFT_ATOMPAW"
499  msg = trim(msg)//trim(tmp)
500  msg_index = msg_index + 1
501  if ( mod(msg_index,3) == 0 ) then
502    msg = trim(msg)//ch10
503    write(my_unit,'(a)') msg
504    msg = ""
505  end if
506#endif
507#if defined HAVE_DFT_BIGDFT
508  write(tmp,"(1x,a25)") "HAVE_DFT_BIGDFT"
509  msg = trim(msg)//trim(tmp)
510  msg_index = msg_index + 1
511  if ( mod(msg_index,3) == 0 ) then
512    msg = trim(msg)//ch10
513    write(my_unit,'(a)') msg
514    msg = ""
515  end if
516#endif
517#if defined HAVE_DFT_LIBXC
518  write(tmp,"(1x,a25)") "HAVE_DFT_LIBXC"
519  msg = trim(msg)//trim(tmp)
520  msg_index = msg_index + 1
521  if ( mod(msg_index,3) == 0 ) then
522    msg = trim(msg)//ch10
523    write(my_unit,'(a)') msg
524    msg = ""
525  end if
526#endif
527#if defined HAVE_DFT_WANNIER90
528  write(tmp,"(1x,a25)") "HAVE_DFT_WANNIER90"
529  msg = trim(msg)//trim(tmp)
530  msg_index = msg_index + 1
531  if ( mod(msg_index,3) == 0 ) then
532    msg = trim(msg)//ch10
533    write(my_unit,'(a)') msg
534    msg = ""
535  end if
536#endif
537#if defined HAVE_DFT_WANNIER90_V1
538  write(tmp,"(1x,a25)") "HAVE_DFT_WANNIER90_V1"
539  msg = trim(msg)//trim(tmp)
540  msg_index = msg_index + 1
541  if ( mod(msg_index,3) == 0 ) then
542    msg = trim(msg)//ch10
543    write(my_unit,'(a)') msg
544    msg = ""
545  end if
546#endif
547#if defined HAVE_FC_ALLOCATABLE_DTARRAYS
548  write(tmp,"(1x,a25)") "HAVE_FC_ALLOCATABLE_DT..."
549  msg = trim(msg)//trim(tmp)
550  msg_index = msg_index + 1
551  if ( mod(msg_index,3) == 0 ) then
552    msg = trim(msg)//ch10
553    write(my_unit,'(a)') msg
554    msg = ""
555  end if
556#endif
557#if defined HAVE_FC_ASYNC
558  write(tmp,"(1x,a25)") "HAVE_FC_ASYNC"
559  msg = trim(msg)//trim(tmp)
560  msg_index = msg_index + 1
561  if ( mod(msg_index,3) == 0 ) then
562    msg = trim(msg)//ch10
563    write(my_unit,'(a)') msg
564    msg = ""
565  end if
566#endif
567#if defined HAVE_FC_BACKTRACE
568  write(tmp,"(1x,a25)") "HAVE_FC_BACKTRACE"
569  msg = trim(msg)//trim(tmp)
570  msg_index = msg_index + 1
571  if ( mod(msg_index,3) == 0 ) then
572    msg = trim(msg)//ch10
573    write(my_unit,'(a)') msg
574    msg = ""
575  end if
576#endif
577#if defined HAVE_FC_COMMAND_ARGUMENT
578  write(tmp,"(1x,a25)") "HAVE_FC_COMMAND_ARGUMENT"
579  msg = trim(msg)//trim(tmp)
580  msg_index = msg_index + 1
581  if ( mod(msg_index,3) == 0 ) then
582    msg = trim(msg)//ch10
583    write(my_unit,'(a)') msg
584    msg = ""
585  end if
586#endif
587#if defined HAVE_FC_COMMAND_LINE
588  write(tmp,"(1x,a25)") "HAVE_FC_COMMAND_LINE"
589  msg = trim(msg)//trim(tmp)
590  msg_index = msg_index + 1
591  if ( mod(msg_index,3) == 0 ) then
592    msg = trim(msg)//ch10
593    write(my_unit,'(a)') msg
594    msg = ""
595  end if
596#endif
597#if defined HAVE_FC_CONTIGUOUS
598  write(tmp,"(1x,a25)") "HAVE_FC_CONTIGUOUS"
599  msg = trim(msg)//trim(tmp)
600  msg_index = msg_index + 1
601  if ( mod(msg_index,3) == 0 ) then
602    msg = trim(msg)//ch10
603    write(my_unit,'(a)') msg
604    msg = ""
605  end if
606#endif
607#if defined HAVE_FC_CPUTIME
608  write(tmp,"(1x,a25)") "HAVE_FC_CPUTIME"
609  msg = trim(msg)//trim(tmp)
610  msg_index = msg_index + 1
611  if ( mod(msg_index,3) == 0 ) then
612    msg = trim(msg)//ch10
613    write(my_unit,'(a)') msg
614    msg = ""
615  end if
616#endif
617#if defined HAVE_FC_ETIME
618  write(tmp,"(1x,a25)") "HAVE_FC_ETIME"
619  msg = trim(msg)//trim(tmp)
620  msg_index = msg_index + 1
621  if ( mod(msg_index,3) == 0 ) then
622    msg = trim(msg)//ch10
623    write(my_unit,'(a)') msg
624    msg = ""
625  end if
626#endif
627#if defined HAVE_FC_EXIT
628  write(tmp,"(1x,a25)") "HAVE_FC_EXIT"
629  msg = trim(msg)//trim(tmp)
630  msg_index = msg_index + 1
631  if ( mod(msg_index,3) == 0 ) then
632    msg = trim(msg)//ch10
633    write(my_unit,'(a)') msg
634    msg = ""
635  end if
636#endif
637#if defined HAVE_FC_FLUSH
638  write(tmp,"(1x,a25)") "HAVE_FC_FLUSH"
639  msg = trim(msg)//trim(tmp)
640  msg_index = msg_index + 1
641  if ( mod(msg_index,3) == 0 ) then
642    msg = trim(msg)//ch10
643    write(my_unit,'(a)') msg
644    msg = ""
645  end if
646#endif
647#if defined HAVE_FC_FLUSH_
648  write(tmp,"(1x,a25)") "HAVE_FC_FLUSH_"
649  msg = trim(msg)//trim(tmp)
650  msg_index = msg_index + 1
651  if ( mod(msg_index,3) == 0 ) then
652    msg = trim(msg)//ch10
653    write(my_unit,'(a)') msg
654    msg = ""
655  end if
656#endif
657#if defined HAVE_FC_GAMMA
658  write(tmp,"(1x,a25)") "HAVE_FC_GAMMA"
659  msg = trim(msg)//trim(tmp)
660  msg_index = msg_index + 1
661  if ( mod(msg_index,3) == 0 ) then
662    msg = trim(msg)//ch10
663    write(my_unit,'(a)') msg
664    msg = ""
665  end if
666#endif
667#if defined HAVE_FC_GETENV
668  write(tmp,"(1x,a25)") "HAVE_FC_GETENV"
669  msg = trim(msg)//trim(tmp)
670  msg_index = msg_index + 1
671  if ( mod(msg_index,3) == 0 ) then
672    msg = trim(msg)//ch10
673    write(my_unit,'(a)') msg
674    msg = ""
675  end if
676#endif
677#if defined HAVE_FC_GETPID
678  write(tmp,"(1x,a25)") "HAVE_FC_GETPID"
679  msg = trim(msg)//trim(tmp)
680  msg_index = msg_index + 1
681  if ( mod(msg_index,3) == 0 ) then
682    msg = trim(msg)//ch10
683    write(my_unit,'(a)') msg
684    msg = ""
685  end if
686#endif
687#if defined HAVE_FC_IEEE_EXCEPTIONS
688  write(tmp,"(1x,a25)") "HAVE_FC_IEEE_EXCEPTIONS"
689  msg = trim(msg)//trim(tmp)
690  msg_index = msg_index + 1
691  if ( mod(msg_index,3) == 0 ) then
692    msg = trim(msg)//ch10
693    write(my_unit,'(a)') msg
694    msg = ""
695  end if
696#endif
697#if defined HAVE_FC_INT_QUAD
698  write(tmp,"(1x,a25)") "HAVE_FC_INT_QUAD"
699  msg = trim(msg)//trim(tmp)
700  msg_index = msg_index + 1
701  if ( mod(msg_index,3) == 0 ) then
702    msg = trim(msg)//ch10
703    write(my_unit,'(a)') msg
704    msg = ""
705  end if
706#endif
707#if defined HAVE_FC_IOMSG
708  write(tmp,"(1x,a25)") "HAVE_FC_IOMSG"
709  msg = trim(msg)//trim(tmp)
710  msg_index = msg_index + 1
711  if ( mod(msg_index,3) == 0 ) then
712    msg = trim(msg)//ch10
713    write(my_unit,'(a)') msg
714    msg = ""
715  end if
716#endif
717#if defined HAVE_FC_ISO_C_BINDING
718  write(tmp,"(1x,a25)") "HAVE_FC_ISO_C_BINDING"
719  msg = trim(msg)//trim(tmp)
720  msg_index = msg_index + 1
721  if ( mod(msg_index,3) == 0 ) then
722    msg = trim(msg)//ch10
723    write(my_unit,'(a)') msg
724    msg = ""
725  end if
726#endif
727#if defined HAVE_FC_ISO_FORTRAN_2008
728  write(tmp,"(1x,a25)") "HAVE_FC_ISO_FORTRAN_2008"
729  msg = trim(msg)//trim(tmp)
730  msg_index = msg_index + 1
731  if ( mod(msg_index,3) == 0 ) then
732    msg = trim(msg)//ch10
733    write(my_unit,'(a)') msg
734    msg = ""
735  end if
736#endif
737#if defined HAVE_FC_LONG_LINES
738  write(tmp,"(1x,a25)") "HAVE_FC_LONG_LINES"
739  msg = trim(msg)//trim(tmp)
740  msg_index = msg_index + 1
741  if ( mod(msg_index,3) == 0 ) then
742    msg = trim(msg)//ch10
743    write(my_unit,'(a)') msg
744    msg = ""
745  end if
746#endif
747#if defined HAVE_FC_MACRO_NEWLINE
748  write(tmp,"(1x,a25)") "HAVE_FC_MACRO_NEWLINE"
749  msg = trim(msg)//trim(tmp)
750  msg_index = msg_index + 1
751  if ( mod(msg_index,3) == 0 ) then
752    msg = trim(msg)//ch10
753    write(my_unit,'(a)') msg
754    msg = ""
755  end if
756#endif
757#if defined HAVE_FC_MOVE_ALLOC
758  write(tmp,"(1x,a25)") "HAVE_FC_MOVE_ALLOC"
759  msg = trim(msg)//trim(tmp)
760  msg_index = msg_index + 1
761  if ( mod(msg_index,3) == 0 ) then
762    msg = trim(msg)//ch10
763    write(my_unit,'(a)') msg
764    msg = ""
765  end if
766#endif
767#if defined HAVE_FC_PRIVATE
768  write(tmp,"(1x,a25)") "HAVE_FC_PRIVATE"
769  msg = trim(msg)//trim(tmp)
770  msg_index = msg_index + 1
771  if ( mod(msg_index,3) == 0 ) then
772    msg = trim(msg)//ch10
773    write(my_unit,'(a)') msg
774    msg = ""
775  end if
776#endif
777#if defined HAVE_FC_PROTECTED
778  write(tmp,"(1x,a25)") "HAVE_FC_PROTECTED"
779  msg = trim(msg)//trim(tmp)
780  msg_index = msg_index + 1
781  if ( mod(msg_index,3) == 0 ) then
782    msg = trim(msg)//ch10
783    write(my_unit,'(a)') msg
784    msg = ""
785  end if
786#endif
787#if defined HAVE_FC_STREAM_IO
788  write(tmp,"(1x,a25)") "HAVE_FC_STREAM_IO"
789  msg = trim(msg)//trim(tmp)
790  msg_index = msg_index + 1
791  if ( mod(msg_index,3) == 0 ) then
792    msg = trim(msg)//ch10
793    write(my_unit,'(a)') msg
794    msg = ""
795  end if
796#endif
797#if defined HAVE_FC_SYSTEM
798  write(tmp,"(1x,a25)") "HAVE_FC_SYSTEM"
799  msg = trim(msg)//trim(tmp)
800  msg_index = msg_index + 1
801  if ( mod(msg_index,3) == 0 ) then
802    msg = trim(msg)//ch10
803    write(my_unit,'(a)') msg
804    msg = ""
805  end if
806#endif
807#if defined HAVE_FFT
808  write(tmp,"(1x,a25)") "HAVE_FFT"
809  msg = trim(msg)//trim(tmp)
810  msg_index = msg_index + 1
811  if ( mod(msg_index,3) == 0 ) then
812    msg = trim(msg)//ch10
813    write(my_unit,'(a)') msg
814    msg = ""
815  end if
816#endif
817#if defined HAVE_FFT_ASL
818  write(tmp,"(1x,a25)") "HAVE_FFT_ASL"
819  msg = trim(msg)//trim(tmp)
820  msg_index = msg_index + 1
821  if ( mod(msg_index,3) == 0 ) then
822    msg = trim(msg)//ch10
823    write(my_unit,'(a)') msg
824    msg = ""
825  end if
826#endif
827#if defined HAVE_FFT_DFTI
828  write(tmp,"(1x,a25)") "HAVE_FFT_DFTI"
829  msg = trim(msg)//trim(tmp)
830  msg_index = msg_index + 1
831  if ( mod(msg_index,3) == 0 ) then
832    msg = trim(msg)//ch10
833    write(my_unit,'(a)') msg
834    msg = ""
835  end if
836#endif
837#if defined HAVE_FFT_DFTI_MPI
838  write(tmp,"(1x,a25)") "HAVE_FFT_DFTI_MPI"
839  msg = trim(msg)//trim(tmp)
840  msg_index = msg_index + 1
841  if ( mod(msg_index,3) == 0 ) then
842    msg = trim(msg)//ch10
843    write(my_unit,'(a)') msg
844    msg = ""
845  end if
846#endif
847#if defined HAVE_FFT_DFTI_THREADS
848  write(tmp,"(1x,a25)") "HAVE_FFT_DFTI_THREADS"
849  msg = trim(msg)//trim(tmp)
850  msg_index = msg_index + 1
851  if ( mod(msg_index,3) == 0 ) then
852    msg = trim(msg)//ch10
853    write(my_unit,'(a)') msg
854    msg = ""
855  end if
856#endif
857#if defined HAVE_FFT_FFTW2
858  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW2"
859  msg = trim(msg)//trim(tmp)
860  msg_index = msg_index + 1
861  if ( mod(msg_index,3) == 0 ) then
862    msg = trim(msg)//ch10
863    write(my_unit,'(a)') msg
864    msg = ""
865  end if
866#endif
867#if defined HAVE_FFT_FFTW2_THREADS
868  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW2_THREADS"
869  msg = trim(msg)//trim(tmp)
870  msg_index = msg_index + 1
871  if ( mod(msg_index,3) == 0 ) then
872    msg = trim(msg)//ch10
873    write(my_unit,'(a)') msg
874    msg = ""
875  end if
876#endif
877#if defined HAVE_FFT_FFTW3
878  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW3"
879  msg = trim(msg)//trim(tmp)
880  msg_index = msg_index + 1
881  if ( mod(msg_index,3) == 0 ) then
882    msg = trim(msg)//ch10
883    write(my_unit,'(a)') msg
884    msg = ""
885  end if
886#endif
887#if defined HAVE_FFT_FFTW3_MKL
888  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW3_MKL"
889  msg = trim(msg)//trim(tmp)
890  msg_index = msg_index + 1
891  if ( mod(msg_index,3) == 0 ) then
892    msg = trim(msg)//ch10
893    write(my_unit,'(a)') msg
894    msg = ""
895  end if
896#endif
897#if defined HAVE_FFT_FFTW3_MPI
898  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW3_MPI"
899  msg = trim(msg)//trim(tmp)
900  msg_index = msg_index + 1
901  if ( mod(msg_index,3) == 0 ) then
902    msg = trim(msg)//ch10
903    write(my_unit,'(a)') msg
904    msg = ""
905  end if
906#endif
907#if defined HAVE_FFT_FFTW3_THREADS
908  write(tmp,"(1x,a25)") "HAVE_FFT_FFTW3_THREADS"
909  msg = trim(msg)//trim(tmp)
910  msg_index = msg_index + 1
911  if ( mod(msg_index,3) == 0 ) then
912    msg = trim(msg)//ch10
913    write(my_unit,'(a)') msg
914    msg = ""
915  end if
916#endif
917#if defined HAVE_FFT_MLIB
918  write(tmp,"(1x,a25)") "HAVE_FFT_MLIB"
919  msg = trim(msg)//trim(tmp)
920  msg_index = msg_index + 1
921  if ( mod(msg_index,3) == 0 ) then
922    msg = trim(msg)//ch10
923    write(my_unit,'(a)') msg
924    msg = ""
925  end if
926#endif
927#if defined HAVE_FFT_MPI
928  write(tmp,"(1x,a25)") "HAVE_FFT_MPI"
929  msg = trim(msg)//trim(tmp)
930  msg_index = msg_index + 1
931  if ( mod(msg_index,3) == 0 ) then
932    msg = trim(msg)//ch10
933    write(my_unit,'(a)') msg
934    msg = ""
935  end if
936#endif
937#if defined HAVE_FFT_SERIAL
938  write(tmp,"(1x,a25)") "HAVE_FFT_SERIAL"
939  msg = trim(msg)//trim(tmp)
940  msg_index = msg_index + 1
941  if ( mod(msg_index,3) == 0 ) then
942    msg = trim(msg)//ch10
943    write(my_unit,'(a)') msg
944    msg = ""
945  end if
946#endif
947#if defined HAVE_FFT_SGIMATH
948  write(tmp,"(1x,a25)") "HAVE_FFT_SGIMATH"
949  msg = trim(msg)//trim(tmp)
950  msg_index = msg_index + 1
951  if ( mod(msg_index,3) == 0 ) then
952    msg = trim(msg)//ch10
953    write(my_unit,'(a)') msg
954    msg = ""
955  end if
956#endif
957#if defined HAVE_FORTRAN2003
958  write(tmp,"(1x,a25)") "HAVE_FORTRAN2003"
959  msg = trim(msg)//trim(tmp)
960  msg_index = msg_index + 1
961  if ( mod(msg_index,3) == 0 ) then
962    msg = trim(msg)//ch10
963    write(my_unit,'(a)') msg
964    msg = ""
965  end if
966#endif
967#if defined HAVE_GPU
968  write(tmp,"(1x,a25)") "HAVE_GPU"
969  msg = trim(msg)//trim(tmp)
970  msg_index = msg_index + 1
971  if ( mod(msg_index,3) == 0 ) then
972    msg = trim(msg)//ch10
973    write(my_unit,'(a)') msg
974    msg = ""
975  end if
976#endif
977#if defined HAVE_GPU_CUDA
978  write(tmp,"(1x,a25)") "HAVE_GPU_CUDA"
979  msg = trim(msg)//trim(tmp)
980  msg_index = msg_index + 1
981  if ( mod(msg_index,3) == 0 ) then
982    msg = trim(msg)//ch10
983    write(my_unit,'(a)') msg
984    msg = ""
985  end if
986#endif
987#if defined HAVE_GPU_CUDA3
988  write(tmp,"(1x,a25)") "HAVE_GPU_CUDA3"
989  msg = trim(msg)//trim(tmp)
990  msg_index = msg_index + 1
991  if ( mod(msg_index,3) == 0 ) then
992    msg = trim(msg)//ch10
993    write(my_unit,'(a)') msg
994    msg = ""
995  end if
996#endif
997#if defined HAVE_GPU_CUDA_DP
998  write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_DP"
999  msg = trim(msg)//trim(tmp)
1000  msg_index = msg_index + 1
1001  if ( mod(msg_index,3) == 0 ) then
1002    msg = trim(msg)//ch10
1003    write(my_unit,'(a)') msg
1004    msg = ""
1005  end if
1006#endif
1007#if defined HAVE_GPU_CUDA_SP
1008  write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_SP"
1009  msg = trim(msg)//trim(tmp)
1010  msg_index = msg_index + 1
1011  if ( mod(msg_index,3) == 0 ) then
1012    msg = trim(msg)//ch10
1013    write(my_unit,'(a)') msg
1014    msg = ""
1015  end if
1016#endif
1017#if defined HAVE_GPU_MPI
1018  write(tmp,"(1x,a25)") "HAVE_GPU_MPI"
1019  msg = trim(msg)//trim(tmp)
1020  msg_index = msg_index + 1
1021  if ( mod(msg_index,3) == 0 ) then
1022    msg = trim(msg)//ch10
1023    write(my_unit,'(a)') msg
1024    msg = ""
1025  end if
1026#endif
1027#if defined HAVE_GPU_SERIAL
1028  write(tmp,"(1x,a25)") "HAVE_GPU_SERIAL"
1029  msg = trim(msg)//trim(tmp)
1030  msg_index = msg_index + 1
1031  if ( mod(msg_index,3) == 0 ) then
1032    msg = trim(msg)//ch10
1033    write(my_unit,'(a)') msg
1034    msg = ""
1035  end if
1036#endif
1037#if defined HAVE_GW_DPC
1038  write(tmp,"(1x,a25)") "HAVE_GW_DPC"
1039  msg = trim(msg)//trim(tmp)
1040  msg_index = msg_index + 1
1041  if ( mod(msg_index,3) == 0 ) then
1042    msg = trim(msg)//ch10
1043    write(my_unit,'(a)') msg
1044    msg = ""
1045  end if
1046#endif
1047#if defined HAVE_LIBPAW_ABINIT
1048  write(tmp,"(1x,a25)") "HAVE_LIBPAW_ABINIT"
1049  msg = trim(msg)//trim(tmp)
1050  msg_index = msg_index + 1
1051  if ( mod(msg_index,3) == 0 ) then
1052    msg = trim(msg)//ch10
1053    write(my_unit,'(a)') msg
1054    msg = ""
1055  end if
1056#endif
1057#if defined HAVE_LIBTETRA_ABINIT
1058  write(tmp,"(1x,a25)") "HAVE_LIBTETRA_ABINIT"
1059  msg = trim(msg)//trim(tmp)
1060  msg_index = msg_index + 1
1061  if ( mod(msg_index,3) == 0 ) then
1062    msg = trim(msg)//ch10
1063    write(my_unit,'(a)') msg
1064    msg = ""
1065  end if
1066#endif
1067#if defined HAVE_LINALG
1068  write(tmp,"(1x,a25)") "HAVE_LINALG"
1069  msg = trim(msg)//trim(tmp)
1070  msg_index = msg_index + 1
1071  if ( mod(msg_index,3) == 0 ) then
1072    msg = trim(msg)//ch10
1073    write(my_unit,'(a)') msg
1074    msg = ""
1075  end if
1076#endif
1077#if defined HAVE_LINALG_ASL
1078  write(tmp,"(1x,a25)") "HAVE_LINALG_ASL"
1079  msg = trim(msg)//trim(tmp)
1080  msg_index = msg_index + 1
1081  if ( mod(msg_index,3) == 0 ) then
1082    msg = trim(msg)//ch10
1083    write(my_unit,'(a)') msg
1084    msg = ""
1085  end if
1086#endif
1087#if defined HAVE_LINALG_AXPBY
1088  write(tmp,"(1x,a25)") "HAVE_LINALG_AXPBY"
1089  msg = trim(msg)//trim(tmp)
1090  msg_index = msg_index + 1
1091  if ( mod(msg_index,3) == 0 ) then
1092    msg = trim(msg)//ch10
1093    write(my_unit,'(a)') msg
1094    msg = ""
1095  end if
1096#endif
1097#if defined HAVE_LINALG_ELPA
1098  write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA"
1099  msg = trim(msg)//trim(tmp)
1100  msg_index = msg_index + 1
1101  if ( mod(msg_index,3) == 0 ) then
1102    msg = trim(msg)//ch10
1103    write(my_unit,'(a)') msg
1104    msg = ""
1105  end if
1106#endif
1107#if defined HAVE_LINALG_ELPA_2013
1108  write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2013"
1109  msg = trim(msg)//trim(tmp)
1110  msg_index = msg_index + 1
1111  if ( mod(msg_index,3) == 0 ) then
1112    msg = trim(msg)//ch10
1113    write(my_unit,'(a)') msg
1114    msg = ""
1115  end if
1116#endif
1117#if defined HAVE_LINALG_ELPA_2014
1118  write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2014"
1119  msg = trim(msg)//trim(tmp)
1120  msg_index = msg_index + 1
1121  if ( mod(msg_index,3) == 0 ) then
1122    msg = trim(msg)//ch10
1123    write(my_unit,'(a)') msg
1124    msg = ""
1125  end if
1126#endif
1127#if defined HAVE_LINALG_ELPA_2015
1128  write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2015"
1129  msg = trim(msg)//trim(tmp)
1130  msg_index = msg_index + 1
1131  if ( mod(msg_index,3) == 0 ) then
1132    msg = trim(msg)//ch10
1133    write(my_unit,'(a)') msg
1134    msg = ""
1135  end if
1136#endif
1137#if defined HAVE_LINALG_ELPA_2016
1138  write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2016"
1139  msg = trim(msg)//trim(tmp)
1140  msg_index = msg_index + 1
1141  if ( mod(msg_index,3) == 0 ) then
1142    msg = trim(msg)//ch10
1143    write(my_unit,'(a)') msg
1144    msg = ""
1145  end if
1146#endif
1147#if defined HAVE_LINALG_ESSL
1148  write(tmp,"(1x,a25)") "HAVE_LINALG_ESSL"
1149  msg = trim(msg)//trim(tmp)
1150  msg_index = msg_index + 1
1151  if ( mod(msg_index,3) == 0 ) then
1152    msg = trim(msg)//ch10
1153    write(my_unit,'(a)') msg
1154    msg = ""
1155  end if
1156#endif
1157#if defined HAVE_LINALG_GEMM3M
1158  write(tmp,"(1x,a25)") "HAVE_LINALG_GEMM3M"
1159  msg = trim(msg)//trim(tmp)
1160  msg_index = msg_index + 1
1161  if ( mod(msg_index,3) == 0 ) then
1162    msg = trim(msg)//ch10
1163    write(my_unit,'(a)') msg
1164    msg = ""
1165  end if
1166#endif
1167#if defined HAVE_LINALG_GPU
1168  write(tmp,"(1x,a25)") "HAVE_LINALG_GPU"
1169  msg = trim(msg)//trim(tmp)
1170  msg_index = msg_index + 1
1171  if ( mod(msg_index,3) == 0 ) then
1172    msg = trim(msg)//ch10
1173    write(my_unit,'(a)') msg
1174    msg = ""
1175  end if
1176#endif
1177#if defined HAVE_LINALG_MAGMA
1178  write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA"
1179  msg = trim(msg)//trim(tmp)
1180  msg_index = msg_index + 1
1181  if ( mod(msg_index,3) == 0 ) then
1182    msg = trim(msg)//ch10
1183    write(my_unit,'(a)') msg
1184    msg = ""
1185  end if
1186#endif
1187#if defined HAVE_LINALG_MAGMA_15
1188  write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA_15"
1189  msg = trim(msg)//trim(tmp)
1190  msg_index = msg_index + 1
1191  if ( mod(msg_index,3) == 0 ) then
1192    msg = trim(msg)//ch10
1193    write(my_unit,'(a)') msg
1194    msg = ""
1195  end if
1196#endif
1197#if defined HAVE_LINALG_MKL_IMATCOPY
1198  write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_IMATCOPY"
1199  msg = trim(msg)//trim(tmp)
1200  msg_index = msg_index + 1
1201  if ( mod(msg_index,3) == 0 ) then
1202    msg = trim(msg)//ch10
1203    write(my_unit,'(a)') msg
1204    msg = ""
1205  end if
1206#endif
1207#if defined HAVE_LINALG_MKL_OMATADD
1208  write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATADD"
1209  msg = trim(msg)//trim(tmp)
1210  msg_index = msg_index + 1
1211  if ( mod(msg_index,3) == 0 ) then
1212    msg = trim(msg)//ch10
1213    write(my_unit,'(a)') msg
1214    msg = ""
1215  end if
1216#endif
1217#if defined HAVE_LINALG_MKL_OMATCOPY
1218  write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATCOPY"
1219  msg = trim(msg)//trim(tmp)
1220  msg_index = msg_index + 1
1221  if ( mod(msg_index,3) == 0 ) then
1222    msg = trim(msg)//ch10
1223    write(my_unit,'(a)') msg
1224    msg = ""
1225  end if
1226#endif
1227#if defined HAVE_LINALG_MPI
1228  write(tmp,"(1x,a25)") "HAVE_LINALG_MPI"
1229  msg = trim(msg)//trim(tmp)
1230  msg_index = msg_index + 1
1231  if ( mod(msg_index,3) == 0 ) then
1232    msg = trim(msg)//ch10
1233    write(my_unit,'(a)') msg
1234    msg = ""
1235  end if
1236#endif
1237#if defined HAVE_LINALG_PLASMA
1238  write(tmp,"(1x,a25)") "HAVE_LINALG_PLASMA"
1239  msg = trim(msg)//trim(tmp)
1240  msg_index = msg_index + 1
1241  if ( mod(msg_index,3) == 0 ) then
1242    msg = trim(msg)//ch10
1243    write(my_unit,'(a)') msg
1244    msg = ""
1245  end if
1246#endif
1247#if defined HAVE_LINALG_SCALAPACK
1248  write(tmp,"(1x,a25)") "HAVE_LINALG_SCALAPACK"
1249  msg = trim(msg)//trim(tmp)
1250  msg_index = msg_index + 1
1251  if ( mod(msg_index,3) == 0 ) then
1252    msg = trim(msg)//ch10
1253    write(my_unit,'(a)') msg
1254    msg = ""
1255  end if
1256#endif
1257#if defined HAVE_LINALG_SERIAL
1258  write(tmp,"(1x,a25)") "HAVE_LINALG_SERIAL"
1259  msg = trim(msg)//trim(tmp)
1260  msg_index = msg_index + 1
1261  if ( mod(msg_index,3) == 0 ) then
1262    msg = trim(msg)//ch10
1263    write(my_unit,'(a)') msg
1264    msg = ""
1265  end if
1266#endif
1267#if defined HAVE_LINALG_ZDOTC_BUG
1268  write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTC_B*G"
1269  msg = trim(msg)//trim(tmp)
1270  msg_index = msg_index + 1
1271  if ( mod(msg_index,3) == 0 ) then
1272    msg = trim(msg)//ch10
1273    write(my_unit,'(a)') msg
1274    msg = ""
1275  end if
1276#endif
1277#if defined HAVE_LINALG_ZDOTU_BUG
1278  write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTU_B*G"
1279  msg = trim(msg)//trim(tmp)
1280  msg_index = msg_index + 1
1281  if ( mod(msg_index,3) == 0 ) then
1282    msg = trim(msg)//ch10
1283    write(my_unit,'(a)') msg
1284    msg = ""
1285  end if
1286#endif
1287#if defined HAVE_LOTF
1288  write(tmp,"(1x,a25)") "HAVE_LOTF"
1289  msg = trim(msg)//trim(tmp)
1290  msg_index = msg_index + 1
1291  if ( mod(msg_index,3) == 0 ) then
1292    msg = trim(msg)//ch10
1293    write(my_unit,'(a)') msg
1294    msg = ""
1295  end if
1296#endif
1297#if defined HAVE_MATH
1298  write(tmp,"(1x,a25)") "HAVE_MATH"
1299  msg = trim(msg)//trim(tmp)
1300  msg_index = msg_index + 1
1301  if ( mod(msg_index,3) == 0 ) then
1302    msg = trim(msg)//ch10
1303    write(my_unit,'(a)') msg
1304    msg = ""
1305  end if
1306#endif
1307#if defined HAVE_MATH_GSL
1308  write(tmp,"(1x,a25)") "HAVE_MATH_GSL"
1309  msg = trim(msg)//trim(tmp)
1310  msg_index = msg_index + 1
1311  if ( mod(msg_index,3) == 0 ) then
1312    msg = trim(msg)//ch10
1313    write(my_unit,'(a)') msg
1314    msg = ""
1315  end if
1316#endif
1317#if defined HAVE_MATH_MLIB
1318  write(tmp,"(1x,a25)") "HAVE_MATH_MLIB"
1319  msg = trim(msg)//trim(tmp)
1320  msg_index = msg_index + 1
1321  if ( mod(msg_index,3) == 0 ) then
1322    msg = trim(msg)//ch10
1323    write(my_unit,'(a)') msg
1324    msg = ""
1325  end if
1326#endif
1327#if defined HAVE_MATH_MPI
1328  write(tmp,"(1x,a25)") "HAVE_MATH_MPI"
1329  msg = trim(msg)//trim(tmp)
1330  msg_index = msg_index + 1
1331  if ( mod(msg_index,3) == 0 ) then
1332    msg = trim(msg)//ch10
1333    write(my_unit,'(a)') msg
1334    msg = ""
1335  end if
1336#endif
1337#if defined HAVE_MATH_SERIAL
1338  write(tmp,"(1x,a25)") "HAVE_MATH_SERIAL"
1339  msg = trim(msg)//trim(tmp)
1340  msg_index = msg_index + 1
1341  if ( mod(msg_index,3) == 0 ) then
1342    msg = trim(msg)//ch10
1343    write(my_unit,'(a)') msg
1344    msg = ""
1345  end if
1346#endif
1347#if defined HAVE_MEM_PROFILING
1348  write(tmp,"(1x,a25)") "HAVE_MEM_PROFILING"
1349  msg = trim(msg)//trim(tmp)
1350  msg_index = msg_index + 1
1351  if ( mod(msg_index,3) == 0 ) then
1352    msg = trim(msg)//ch10
1353    write(my_unit,'(a)') msg
1354    msg = ""
1355  end if
1356#endif
1357#if defined HAVE_MPI
1358  write(tmp,"(1x,a25)") "HAVE_MPI"
1359  msg = trim(msg)//trim(tmp)
1360  msg_index = msg_index + 1
1361  if ( mod(msg_index,3) == 0 ) then
1362    msg = trim(msg)//ch10
1363    write(my_unit,'(a)') msg
1364    msg = ""
1365  end if
1366#endif
1367#if defined HAVE_MPI1
1368  write(tmp,"(1x,a25)") "HAVE_MPI1"
1369  msg = trim(msg)//trim(tmp)
1370  msg_index = msg_index + 1
1371  if ( mod(msg_index,3) == 0 ) then
1372    msg = trim(msg)//ch10
1373    write(my_unit,'(a)') msg
1374    msg = ""
1375  end if
1376#endif
1377#if defined HAVE_MPI2
1378  write(tmp,"(1x,a25)") "HAVE_MPI2"
1379  msg = trim(msg)//trim(tmp)
1380  msg_index = msg_index + 1
1381  if ( mod(msg_index,3) == 0 ) then
1382    msg = trim(msg)//ch10
1383    write(my_unit,'(a)') msg
1384    msg = ""
1385  end if
1386#endif
1387#if defined HAVE_MPI2_INPLACE
1388  write(tmp,"(1x,a25)") "HAVE_MPI2_INPLACE"
1389  msg = trim(msg)//trim(tmp)
1390  msg_index = msg_index + 1
1391  if ( mod(msg_index,3) == 0 ) then
1392    msg = trim(msg)//ch10
1393    write(my_unit,'(a)') msg
1394    msg = ""
1395  end if
1396#endif
1397#if defined HAVE_MPI_IALLREDUCE
1398  write(tmp,"(1x,a25)") "HAVE_MPI_IALLREDUCE"
1399  msg = trim(msg)//trim(tmp)
1400  msg_index = msg_index + 1
1401  if ( mod(msg_index,3) == 0 ) then
1402    msg = trim(msg)//ch10
1403    write(my_unit,'(a)') msg
1404    msg = ""
1405  end if
1406#endif
1407#if defined HAVE_MPI_IALLTOALL
1408  write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALL"
1409  msg = trim(msg)//trim(tmp)
1410  msg_index = msg_index + 1
1411  if ( mod(msg_index,3) == 0 ) then
1412    msg = trim(msg)//ch10
1413    write(my_unit,'(a)') msg
1414    msg = ""
1415  end if
1416#endif
1417#if defined HAVE_MPI_IALLTOALLV
1418  write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALLV"
1419  msg = trim(msg)//trim(tmp)
1420  msg_index = msg_index + 1
1421  if ( mod(msg_index,3) == 0 ) then
1422    msg = trim(msg)//ch10
1423    write(my_unit,'(a)') msg
1424    msg = ""
1425  end if
1426#endif
1427#if defined HAVE_MPI_INCLUDED_ONCE
1428  write(tmp,"(1x,a25)") "HAVE_MPI_INCLUDED_ONCE"
1429  msg = trim(msg)//trim(tmp)
1430  msg_index = msg_index + 1
1431  if ( mod(msg_index,3) == 0 ) then
1432    msg = trim(msg)//ch10
1433    write(my_unit,'(a)') msg
1434    msg = ""
1435  end if
1436#endif
1437#if defined HAVE_MPI_INTEGER16
1438  write(tmp,"(1x,a25)") "HAVE_MPI_INTEGER16"
1439  msg = trim(msg)//trim(tmp)
1440  msg_index = msg_index + 1
1441  if ( mod(msg_index,3) == 0 ) then
1442    msg = trim(msg)//ch10
1443    write(my_unit,'(a)') msg
1444    msg = ""
1445  end if
1446#endif
1447#if defined HAVE_MPI_IO
1448  write(tmp,"(1x,a25)") "HAVE_MPI_IO"
1449  msg = trim(msg)//trim(tmp)
1450  msg_index = msg_index + 1
1451  if ( mod(msg_index,3) == 0 ) then
1452    msg = trim(msg)//ch10
1453    write(my_unit,'(a)') msg
1454    msg = ""
1455  end if
1456#endif
1457#if defined HAVE_MPI_IO_DEFAULT
1458  write(tmp,"(1x,a25)") "HAVE_MPI_IO_DEFAULT"
1459  msg = trim(msg)//trim(tmp)
1460  msg_index = msg_index + 1
1461  if ( mod(msg_index,3) == 0 ) then
1462    msg = trim(msg)//ch10
1463    write(my_unit,'(a)') msg
1464    msg = ""
1465  end if
1466#endif
1467#if defined HAVE_MPI_TYPE_CREATE_STRUCT
1468  write(tmp,"(1x,a25)") "HAVE_MPI_TYPE_CREATE_S..."
1469  msg = trim(msg)//trim(tmp)
1470  msg_index = msg_index + 1
1471  if ( mod(msg_index,3) == 0 ) then
1472    msg = trim(msg)//ch10
1473    write(my_unit,'(a)') msg
1474    msg = ""
1475  end if
1476#endif
1477#if defined HAVE_NETCDF_DEFAULT
1478  write(tmp,"(1x,a25)") "HAVE_NETCDF_DEFAULT"
1479  msg = trim(msg)//trim(tmp)
1480  msg_index = msg_index + 1
1481  if ( mod(msg_index,3) == 0 ) then
1482    msg = trim(msg)//ch10
1483    write(my_unit,'(a)') msg
1484    msg = ""
1485  end if
1486#endif
1487#if defined HAVE_NUMPY
1488  write(tmp,"(1x,a25)") "HAVE_NUMPY"
1489  msg = trim(msg)//trim(tmp)
1490  msg_index = msg_index + 1
1491  if ( mod(msg_index,3) == 0 ) then
1492    msg = trim(msg)//ch10
1493    write(my_unit,'(a)') msg
1494    msg = ""
1495  end if
1496#endif
1497#if defined HAVE_OMP_COLLAPSE
1498  write(tmp,"(1x,a25)") "HAVE_OMP_COLLAPSE"
1499  msg = trim(msg)//trim(tmp)
1500  msg_index = msg_index + 1
1501  if ( mod(msg_index,3) == 0 ) then
1502    msg = trim(msg)//ch10
1503    write(my_unit,'(a)') msg
1504    msg = ""
1505  end if
1506#endif
1507#if defined HAVE_OPENMP
1508  write(tmp,"(1x,a25)") "HAVE_OPENMP"
1509  msg = trim(msg)//trim(tmp)
1510  msg_index = msg_index + 1
1511  if ( mod(msg_index,3) == 0 ) then
1512    msg = trim(msg)//ch10
1513    write(my_unit,'(a)') msg
1514    msg = ""
1515  end if
1516#endif
1517#if defined HAVE_OS_LINUX
1518  write(tmp,"(1x,a25)") "HAVE_OS_LINUX"
1519  msg = trim(msg)//trim(tmp)
1520  msg_index = msg_index + 1
1521  if ( mod(msg_index,3) == 0 ) then
1522    msg = trim(msg)//ch10
1523    write(my_unit,'(a)') msg
1524    msg = ""
1525  end if
1526#endif
1527#if defined HAVE_OS_MACOSX
1528  write(tmp,"(1x,a25)") "HAVE_OS_MACOSX"
1529  msg = trim(msg)//trim(tmp)
1530  msg_index = msg_index + 1
1531  if ( mod(msg_index,3) == 0 ) then
1532    msg = trim(msg)//ch10
1533    write(my_unit,'(a)') msg
1534    msg = ""
1535  end if
1536#endif
1537#if defined HAVE_OS_WINDOWS
1538  write(tmp,"(1x,a25)") "HAVE_OS_WINDOWS"
1539  msg = trim(msg)//trim(tmp)
1540  msg_index = msg_index + 1
1541  if ( mod(msg_index,3) == 0 ) then
1542    msg = trim(msg)//ch10
1543    write(my_unit,'(a)') msg
1544    msg = ""
1545  end if
1546#endif
1547#if defined HAVE_TIMER
1548  write(tmp,"(1x,a25)") "HAVE_TIMER"
1549  msg = trim(msg)//trim(tmp)
1550  msg_index = msg_index + 1
1551  if ( mod(msg_index,3) == 0 ) then
1552    msg = trim(msg)//ch10
1553    write(my_unit,'(a)') msg
1554    msg = ""
1555  end if
1556#endif
1557#if defined HAVE_TIMER_ABINIT
1558  write(tmp,"(1x,a25)") "HAVE_TIMER_ABINIT"
1559  msg = trim(msg)//trim(tmp)
1560  msg_index = msg_index + 1
1561  if ( mod(msg_index,3) == 0 ) then
1562    msg = trim(msg)//ch10
1563    write(my_unit,'(a)') msg
1564    msg = ""
1565  end if
1566#endif
1567#if defined HAVE_TIMER_MPI
1568  write(tmp,"(1x,a25)") "HAVE_TIMER_MPI"
1569  msg = trim(msg)//trim(tmp)
1570  msg_index = msg_index + 1
1571  if ( mod(msg_index,3) == 0 ) then
1572    msg = trim(msg)//ch10
1573    write(my_unit,'(a)') msg
1574    msg = ""
1575  end if
1576#endif
1577#if defined HAVE_TIMER_PAPI
1578  write(tmp,"(1x,a25)") "HAVE_TIMER_PAPI"
1579  msg = trim(msg)//trim(tmp)
1580  msg_index = msg_index + 1
1581  if ( mod(msg_index,3) == 0 ) then
1582    msg = trim(msg)//ch10
1583    write(my_unit,'(a)') msg
1584    msg = ""
1585  end if
1586#endif
1587#if defined HAVE_TIMER_SERIAL
1588  write(tmp,"(1x,a25)") "HAVE_TIMER_SERIAL"
1589  msg = trim(msg)//trim(tmp)
1590  msg_index = msg_index + 1
1591  if ( mod(msg_index,3) == 0 ) then
1592    msg = trim(msg)//ch10
1593    write(my_unit,'(a)') msg
1594    msg = ""
1595  end if
1596#endif
1597#if defined HAVE_TRIO_ETSF_IO
1598  write(tmp,"(1x,a25)") "HAVE_TRIO_ETSF_IO"
1599  msg = trim(msg)//trim(tmp)
1600  msg_index = msg_index + 1
1601  if ( mod(msg_index,3) == 0 ) then
1602    msg = trim(msg)//ch10
1603    write(my_unit,'(a)') msg
1604    msg = ""
1605  end if
1606#endif
1607#if defined HAVE_TRIO_NETCDF
1608  write(tmp,"(1x,a25)") "HAVE_TRIO_NETCDF"
1609  msg = trim(msg)//trim(tmp)
1610  msg_index = msg_index + 1
1611  if ( mod(msg_index,3) == 0 ) then
1612    msg = trim(msg)//ch10
1613    write(my_unit,'(a)') msg
1614    msg = ""
1615  end if
1616#endif
1617#if defined HAVE_TRIO_NETCDF_MPI
1618  write(tmp,"(1x,a25)") "HAVE_TRIO_NETCDF_MPI"
1619  msg = trim(msg)//trim(tmp)
1620  msg_index = msg_index + 1
1621  if ( mod(msg_index,3) == 0 ) then
1622    msg = trim(msg)//ch10
1623    write(my_unit,'(a)') msg
1624    msg = ""
1625  end if
1626#endif
1627#if defined HAVE_TRIO_PSML
1628  write(tmp,"(1x,a25)") "HAVE_TRIO_PSML"
1629  msg = trim(msg)//trim(tmp)
1630  msg_index = msg_index + 1
1631  if ( mod(msg_index,3) == 0 ) then
1632    msg = trim(msg)//ch10
1633    write(my_unit,'(a)') msg
1634    msg = ""
1635  end if
1636#endif
1637#if defined HAVE_TRIQS
1638  write(tmp,"(1x,a25)") "HAVE_TRIQS"
1639  msg = trim(msg)//trim(tmp)
1640  msg_index = msg_index + 1
1641  if ( mod(msg_index,3) == 0 ) then
1642    msg = trim(msg)//ch10
1643    write(my_unit,'(a)') msg
1644    msg = ""
1645  end if
1646#endif
1647#if defined HAVE_YAML
1648  write(tmp,"(1x,a25)") "HAVE_YAML"
1649  msg = trim(msg)//trim(tmp)
1650  msg_index = msg_index + 1
1651  if ( mod(msg_index,3) == 0 ) then
1652    msg = trim(msg)//ch10
1653    write(my_unit,'(a)') msg
1654    msg = ""
1655  end if
1656#endif
1657#if defined READ_FROM_FILE
1658  write(tmp,"(1x,a25)") "READ_FROM_FILE"
1659  msg = trim(msg)//trim(tmp)
1660  msg_index = msg_index + 1
1661  if ( mod(msg_index,3) == 0 ) then
1662    msg = trim(msg)//ch10
1663    write(my_unit,'(a)') msg
1664    msg = ""
1665  end if
1666#endif
1667#if defined USE_MACROAVE
1668  write(tmp,"(1x,a25)") "USE_MACROAVE"
1669  msg = trim(msg)//trim(tmp)
1670  msg_index = msg_index + 1
1671  if ( mod(msg_index,3) == 0 ) then
1672    msg = trim(msg)//ch10
1673    write(my_unit,'(a)') msg
1674    msg = ""
1675  end if
1676#endif
1677
1678  if ( mod(msg_index,3) /= 0 ) write(my_unit,'(a)') msg
1679
1680  write(my_unit,"(1x,a,a)") repeat("+",78),ch10
1681
1682end subroutine dump_cpp_options
1683
1684end module m_cppopts_dumper
1685!!***
1686