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