Branch data 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/11/11 10:18:54 +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 : 1176 : 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 : 1176 : write(my_unit,"(a,1x,a)") ch10,repeat("+",78)
77 : 1176 : write(my_unit,"(1x,a,a)") "CPP options activated during the build:",ch10
78 : :
79 : 1176 : msg_index = 0
80 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "CC_GNU"
104 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
105 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "CXX_GNU"
194 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
195 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "FC_GNU"
334 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
335 : 1176 : msg_index = msg_index + 1
336 : : if ( mod(msg_index,3) == 0 ) then
337 [ + - ]: 1176 : msg = trim(msg)//ch10
338 : 1176 : write(my_unit,'(a)') msg
339 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "HAVE_DFTI"
474 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
475 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_ALLOCATABLE_DT..."
484 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
485 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_ASYNC"
494 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
495 : 1176 : msg_index = msg_index + 1
496 : : if ( mod(msg_index,3) == 0 ) then
497 [ + - ]: 1176 : msg = trim(msg)//ch10
498 : 1176 : write(my_unit,'(a)') msg
499 : 1176 : msg = ""
500 : : end if
501 : : #endif
502 : : #if defined HAVE_FC_BACKTRACE
503 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_BACKTRACE"
504 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
505 : 1176 : 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 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_COMMAND_ARGUMENT"
514 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
515 : 1176 : 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_CPUTIME
523 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_CPUTIME"
524 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
525 : 1176 : msg_index = msg_index + 1
526 : : if ( mod(msg_index,3) == 0 ) then
527 [ + - ]: 1176 : msg = trim(msg)//ch10
528 : 1176 : write(my_unit,'(a)') msg
529 : 1176 : msg = ""
530 : : end if
531 : : #endif
532 : : #if defined HAVE_FC_ETIME
533 : : write(tmp,"(1x,a25)") "HAVE_FC_ETIME"
534 : : msg = trim(msg)//trim(tmp)
535 : : 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_EXIT
543 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_EXIT"
544 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
545 : 1176 : 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_FLUSH
553 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_FLUSH"
554 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
555 : 1176 : 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_FLUSH_
563 : : write(tmp,"(1x,a25)") "HAVE_FC_FLUSH_"
564 : : msg = trim(msg)//trim(tmp)
565 : : msg_index = msg_index + 1
566 : : if ( mod(msg_index,3) == 0 ) then
567 : : msg = trim(msg)//ch10
568 : : write(my_unit,'(a)') msg
569 : : msg = ""
570 : : end if
571 : : #endif
572 : : #if defined HAVE_FC_GAMMA
573 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_GAMMA"
574 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
575 : 1176 : msg_index = msg_index + 1
576 : : if ( mod(msg_index,3) == 0 ) then
577 [ + - ]: 1176 : msg = trim(msg)//ch10
578 : 1176 : write(my_unit,'(a)') msg
579 : 1176 : msg = ""
580 : : end if
581 : : #endif
582 : : #if defined HAVE_FC_IEEE_ARITHMETIC
583 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_IEEE_ARITHMETIC"
584 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
585 : 1176 : 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_IEEE_EXCEPTIONS
593 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_IEEE_EXCEPTIONS"
594 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
595 : 1176 : 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_INT_QUAD
603 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_INT_QUAD"
604 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
605 : 1176 : msg_index = msg_index + 1
606 : : if ( mod(msg_index,3) == 0 ) then
607 [ + - ]: 1176 : msg = trim(msg)//ch10
608 : 1176 : write(my_unit,'(a)') msg
609 : 1176 : msg = ""
610 : : end if
611 : : #endif
612 : : #if defined HAVE_FC_IOMSG
613 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_IOMSG"
614 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
615 : 1176 : 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_ISO_C_BINDING
623 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_ISO_C_BINDING"
624 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
625 : 1176 : 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_ISO_FORTRAN_2008
633 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_ISO_FORTRAN_2008"
634 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
635 : 1176 : msg_index = msg_index + 1
636 : : if ( mod(msg_index,3) == 0 ) then
637 [ + - ]: 1176 : msg = trim(msg)//ch10
638 : 1176 : write(my_unit,'(a)') msg
639 : 1176 : msg = ""
640 : : end if
641 : : #endif
642 : : #if defined HAVE_FC_LONG_LINES
643 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_LONG_LINES"
644 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
645 : 1176 : msg_index = msg_index + 1
646 : : if ( mod(msg_index,3) == 0 ) then
647 : : msg = trim(msg)//ch10
648 : : write(my_unit,'(a)') msg
649 : : msg = ""
650 : : end if
651 : : #endif
652 : : #if defined HAVE_FC_MACRO_NEWLINE
653 : : write(tmp,"(1x,a25)") "HAVE_FC_MACRO_NEWLINE"
654 : : msg = trim(msg)//trim(tmp)
655 : : 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_MOVE_ALLOC
663 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_MOVE_ALLOC"
664 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
665 : 1176 : 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_ON_THE_FLY_SHAPE
673 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_ON_THE_FLY_SHAPE"
674 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
675 : 1176 : msg_index = msg_index + 1
676 : : if ( mod(msg_index,3) == 0 ) then
677 [ + - ]: 1176 : msg = trim(msg)//ch10
678 : 1176 : write(my_unit,'(a)') msg
679 : 1176 : msg = ""
680 : : end if
681 : : #endif
682 : : #if defined HAVE_FC_SHIFTLR
683 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_SHIFTLR"
684 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
685 : 1176 : 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_STREAM_IO
693 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_STREAM_IO"
694 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
695 : 1176 : 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_SYSTEM
703 : 1176 : write(tmp,"(1x,a25)") "HAVE_FC_SYSTEM"
704 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
705 : 1176 : msg_index = msg_index + 1
706 : : if ( mod(msg_index,3) == 0 ) then
707 [ + - ]: 1176 : msg = trim(msg)//ch10
708 : 1176 : write(my_unit,'(a)') msg
709 : 1176 : msg = ""
710 : : end if
711 : : #endif
712 : : #if defined HAVE_FFTW3
713 : : write(tmp,"(1x,a25)") "HAVE_FFTW3"
714 : : msg = trim(msg)//trim(tmp)
715 : : msg_index = msg_index + 1
716 : : if ( mod(msg_index,3) == 0 ) then
717 : : msg = trim(msg)//ch10
718 : : write(my_unit,'(a)') msg
719 : : msg = ""
720 : : end if
721 : : #endif
722 : : #if defined HAVE_FFTW3_MPI
723 : : write(tmp,"(1x,a25)") "HAVE_FFTW3_MPI"
724 : : msg = trim(msg)//trim(tmp)
725 : : 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_FFTW3_THREADS
733 : : write(tmp,"(1x,a25)") "HAVE_FFTW3_THREADS"
734 : : msg = trim(msg)//trim(tmp)
735 : : 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_FORTRAN2003
743 : 1176 : write(tmp,"(1x,a25)") "HAVE_FORTRAN2003"
744 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
745 : 1176 : msg_index = msg_index + 1
746 : : if ( mod(msg_index,3) == 0 ) then
747 : : msg = trim(msg)//ch10
748 : : write(my_unit,'(a)') msg
749 : : msg = ""
750 : : end if
751 : : #endif
752 : : #if defined HAVE_GPU
753 : : write(tmp,"(1x,a25)") "HAVE_GPU"
754 : : msg = trim(msg)//trim(tmp)
755 : : 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_GPU_CUDA
763 : : write(tmp,"(1x,a25)") "HAVE_GPU_CUDA"
764 : : msg = trim(msg)//trim(tmp)
765 : : 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_GPU_CUDA10
773 : : write(tmp,"(1x,a25)") "HAVE_GPU_CUDA10"
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_GPU_CUDA3
783 : : write(tmp,"(1x,a25)") "HAVE_GPU_CUDA3"
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_GPU_CUDA_DP
793 : : write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_DP"
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_GPU_CUDA_SP
803 : : write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_SP"
804 : : msg = trim(msg)//trim(tmp)
805 : : msg_index = msg_index + 1
806 : : if ( mod(msg_index,3) == 0 ) then
807 : : msg = trim(msg)//ch10
808 : : write(my_unit,'(a)') msg
809 : : msg = ""
810 : : end if
811 : : #endif
812 : : #if defined HAVE_GPU_HIP
813 : : write(tmp,"(1x,a25)") "HAVE_GPU_HIP"
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_MARKERS
823 : : write(tmp,"(1x,a25)") "HAVE_GPU_MARKERS"
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_MARKERS_NVTX
833 : : write(tmp,"(1x,a25)") "HAVE_GPU_MARKERS_NVTX"
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_MARKERS_ROCTX
843 : : write(tmp,"(1x,a25)") "HAVE_GPU_MARKERS_ROCTX"
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_MPI
853 : : write(tmp,"(1x,a25)") "HAVE_GPU_MPI"
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_SERIAL
863 : : write(tmp,"(1x,a25)") "HAVE_GPU_SERIAL"
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_UNIFIED_MEMORY
873 : : write(tmp,"(1x,a25)") "HAVE_GPU_UNIFIED_MEMORY"
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_GW_DPC
883 : 1176 : write(tmp,"(1x,a25)") "HAVE_GW_DPC"
884 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
885 : 1176 : 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_HDF5
893 : 1176 : write(tmp,"(1x,a25)") "HAVE_HDF5"
894 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
895 : 1176 : msg_index = msg_index + 1
896 : : if ( mod(msg_index,3) == 0 ) then
897 [ + - ]: 1176 : msg = trim(msg)//ch10
898 : 1176 : write(my_unit,'(a)') msg
899 : 1176 : msg = ""
900 : : end if
901 : : #endif
902 : : #if defined HAVE_HDF5_MPI
903 : 1176 : write(tmp,"(1x,a25)") "HAVE_HDF5_MPI"
904 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
905 : 1176 : 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_KOKKOS
913 : : write(tmp,"(1x,a25)") "HAVE_KOKKOS"
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_LEVMAR
923 : : write(tmp,"(1x,a25)") "HAVE_LEVMAR"
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_LIBPAW
933 : : write(tmp,"(1x,a25)") "HAVE_LIBPAW"
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_LIBPAW_ABINIT
943 : 1176 : write(tmp,"(1x,a25)") "HAVE_LIBPAW_ABINIT"
944 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
945 : 1176 : 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_LIBPSML
953 : 1176 : write(tmp,"(1x,a25)") "HAVE_LIBPSML"
954 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
955 : 1176 : msg_index = msg_index + 1
956 : : if ( mod(msg_index,3) == 0 ) then
957 [ + - ]: 1176 : msg = trim(msg)//ch10
958 : 1176 : write(my_unit,'(a)') msg
959 : 1176 : msg = ""
960 : : end if
961 : : #endif
962 : : #if defined HAVE_LIBPSML_METAGGA
963 : 1176 : write(tmp,"(1x,a25)") "HAVE_LIBPSML_METAGGA"
964 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
965 : 1176 : msg_index = msg_index + 1
966 : : if ( mod(msg_index,3) == 0 ) then
967 : : msg = trim(msg)//ch10
968 : : write(my_unit,'(a)') msg
969 : : msg = ""
970 : : end if
971 : : #endif
972 : : #if defined HAVE_LIBTETRA_ABINIT
973 : 1176 : write(tmp,"(1x,a25)") "HAVE_LIBTETRA_ABINIT"
974 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
975 : 1176 : 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_LIBXC
983 : 1176 : write(tmp,"(1x,a25)") "HAVE_LIBXC"
984 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
985 : 1176 : msg_index = msg_index + 1
986 : : if ( mod(msg_index,3) == 0 ) then
987 [ + - ]: 1176 : msg = trim(msg)//ch10
988 : 1176 : write(my_unit,'(a)') msg
989 : 1176 : msg = ""
990 : : end if
991 : : #endif
992 : : #if defined HAVE_LINALG_ASL
993 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ASL"
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_LINALG_AXPBY
1003 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_AXPBY"
1004 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1005 : 1176 : 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_LINALG_ELPA
1013 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA"
1014 : : msg = trim(msg)//trim(tmp)
1015 : : 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_LINALG_ELPA_2013
1023 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2013"
1024 : : msg = trim(msg)//trim(tmp)
1025 : : msg_index = msg_index + 1
1026 : : if ( mod(msg_index,3) == 0 ) then
1027 : : msg = trim(msg)//ch10
1028 : : write(my_unit,'(a)') msg
1029 : : msg = ""
1030 : : end if
1031 : : #endif
1032 : : #if defined HAVE_LINALG_ELPA_2014
1033 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2014"
1034 : : msg = trim(msg)//trim(tmp)
1035 : : 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_LINALG_ELPA_2015_02
1043 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2015_02"
1044 : : msg = trim(msg)//trim(tmp)
1045 : : 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_ELPA_2015_11
1053 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2015_11"
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_ELPA_2016
1063 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2016"
1064 : : msg = trim(msg)//trim(tmp)
1065 : : msg_index = msg_index + 1
1066 : : if ( mod(msg_index,3) == 0 ) then
1067 : : msg = trim(msg)//ch10
1068 : : write(my_unit,'(a)') msg
1069 : : msg = ""
1070 : : end if
1071 : : #endif
1072 : : #if defined HAVE_LINALG_ELPA_2017
1073 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2017"
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_FORTRAN2008
1083 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_FORTR..."
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_ESSL
1093 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ESSL"
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_GEMM3M
1103 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_GEMM3M"
1104 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1105 : 1176 : 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_GEMMT
1113 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_GEMMT"
1114 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1115 : 1176 : msg_index = msg_index + 1
1116 : : if ( mod(msg_index,3) == 0 ) then
1117 [ + - ]: 1176 : msg = trim(msg)//ch10
1118 : 1176 : write(my_unit,'(a)') msg
1119 : 1176 : msg = ""
1120 : : end if
1121 : : #endif
1122 : : #if defined HAVE_LINALG_MAGMA
1123 : : write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA"
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_MAGMA_15
1133 : : write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA_15"
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_MKL_IMATCOPY
1143 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_IMATCOPY"
1144 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1145 : 1176 : 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_MKL_OMATADD
1153 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATADD"
1154 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1155 : 1176 : 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_MKL_OMATCOPY
1163 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATCOPY"
1164 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1165 : 1176 : msg_index = msg_index + 1
1166 : : if ( mod(msg_index,3) == 0 ) then
1167 [ + - ]: 1176 : msg = trim(msg)//ch10
1168 : 1176 : write(my_unit,'(a)') msg
1169 : 1176 : msg = ""
1170 : : end if
1171 : : #endif
1172 : : #if defined HAVE_LINALG_MKL_THREADS
1173 : 1176 : write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_THREADS"
1174 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1175 : 1176 : 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_NVPL_THREADS
1183 : : write(tmp,"(1x,a25)") "HAVE_LINALG_NVPL_THREADS"
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_OPENBLAS_THREADS
1193 : : write(tmp,"(1x,a25)") "HAVE_LINALG_OPENBLAS_T..."
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_PLASMA
1203 : : write(tmp,"(1x,a25)") "HAVE_LINALG_PLASMA"
1204 : : msg = trim(msg)//trim(tmp)
1205 : : msg_index = msg_index + 1
1206 : : if ( mod(msg_index,3) == 0 ) then
1207 : : msg = trim(msg)//ch10
1208 : : write(my_unit,'(a)') msg
1209 : : msg = ""
1210 : : end if
1211 : : #endif
1212 : : #if defined HAVE_LINALG_SCALAPACK
1213 : : write(tmp,"(1x,a25)") "HAVE_LINALG_SCALAPACK"
1214 : : msg = trim(msg)//trim(tmp)
1215 : : 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_SLATE
1223 : : write(tmp,"(1x,a25)") "HAVE_LINALG_SLATE"
1224 : : msg = trim(msg)//trim(tmp)
1225 : : 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_ZDOTC_BUG
1233 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTC_B*G"
1234 : : msg = trim(msg)//trim(tmp)
1235 : : msg_index = msg_index + 1
1236 : : if ( mod(msg_index,3) == 0 ) then
1237 : : msg = trim(msg)//ch10
1238 : : write(my_unit,'(a)') msg
1239 : : msg = ""
1240 : : end if
1241 : : #endif
1242 : : #if defined HAVE_LINALG_ZDOTU_BUG
1243 : : write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTU_B*G"
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_LOTF
1253 : : write(tmp,"(1x,a25)") "HAVE_LOTF"
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_MEM_PROFILING
1263 : : write(tmp,"(1x,a25)") "HAVE_MEM_PROFILING"
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_MPI
1273 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI"
1274 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1275 : 1176 : 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_MPI1
1283 : : write(tmp,"(1x,a25)") "HAVE_MPI1"
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_MPI2
1293 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI2"
1294 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1295 : 1176 : msg_index = msg_index + 1
1296 : : if ( mod(msg_index,3) == 0 ) then
1297 [ + - ]: 1176 : msg = trim(msg)//ch10
1298 : 1176 : write(my_unit,'(a)') msg
1299 : 1176 : msg = ""
1300 : : end if
1301 : : #endif
1302 : : #if defined HAVE_MPI2_INPLACE
1303 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI2_INPLACE"
1304 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1305 : 1176 : 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_MPI3
1313 : : write(tmp,"(1x,a25)") "HAVE_MPI3"
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_MPI_ALLOCATE_SHARED_CPTR
1323 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_ALLOCATE_SHAR..."
1324 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1325 : 1176 : 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_BUGGY_INTERFACES
1333 : : write(tmp,"(1x,a25)") "HAVE_MPI_B*GGY_INTERFACES"
1334 : : msg = trim(msg)//trim(tmp)
1335 : : 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_MPI_GET_LIBRARY_VERSION
1343 : : write(tmp,"(1x,a25)") "HAVE_MPI_GET_LIBRARY_V..."
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_MPI_IALLGATHER
1353 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IALLGATHER"
1354 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1355 : 1176 : msg_index = msg_index + 1
1356 : : if ( mod(msg_index,3) == 0 ) then
1357 [ + - ]: 1176 : msg = trim(msg)//ch10
1358 : 1176 : write(my_unit,'(a)') msg
1359 : 1176 : msg = ""
1360 : : end if
1361 : : #endif
1362 : : #if defined HAVE_MPI_IALLREDUCE
1363 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IALLREDUCE"
1364 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1365 : 1176 : msg_index = msg_index + 1
1366 : : if ( mod(msg_index,3) == 0 ) then
1367 : : msg = trim(msg)//ch10
1368 : : write(my_unit,'(a)') msg
1369 : : msg = ""
1370 : : end if
1371 : : #endif
1372 : : #if defined HAVE_MPI_IALLTOALL
1373 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALL"
1374 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1375 : 1176 : 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_IALLTOALLV
1383 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALLV"
1384 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1385 : 1176 : msg_index = msg_index + 1
1386 : : if ( mod(msg_index,3) == 0 ) then
1387 [ + - ]: 1176 : msg = trim(msg)//ch10
1388 : 1176 : write(my_unit,'(a)') msg
1389 : 1176 : msg = ""
1390 : : end if
1391 : : #endif
1392 : : #if defined HAVE_MPI_IBCAST
1393 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IBCAST"
1394 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1395 : 1176 : 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_IGATHERV
1403 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IGATHERV"
1404 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1405 : 1176 : 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_INCLUDED_ONCE
1413 : : write(tmp,"(1x,a25)") "HAVE_MPI_INCLUDED_ONCE"
1414 : : msg = trim(msg)//trim(tmp)
1415 : : 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_INTEGER16
1423 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_INTEGER16"
1424 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1425 : 1176 : msg_index = msg_index + 1
1426 : : if ( mod(msg_index,3) == 0 ) then
1427 [ + - ]: 1176 : msg = trim(msg)//ch10
1428 : 1176 : write(my_unit,'(a)') msg
1429 : 1176 : msg = ""
1430 : : end if
1431 : : #endif
1432 : : #if defined HAVE_MPI_IO
1433 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_IO"
1434 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1435 : 1176 : 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_IO_DEFAULT
1443 : : write(tmp,"(1x,a25)") "HAVE_MPI_IO_DEFAULT"
1444 : : msg = trim(msg)//trim(tmp)
1445 : : 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_TYPE_CREATE_STRUCT
1453 : 1176 : write(tmp,"(1x,a25)") "HAVE_MPI_TYPE_CREATE_S..."
1454 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1455 : 1176 : msg_index = msg_index + 1
1456 : : if ( mod(msg_index,3) == 0 ) then
1457 : : msg = trim(msg)//ch10
1458 : : write(my_unit,'(a)') msg
1459 : : msg = ""
1460 : : end if
1461 : : #endif
1462 : : #if defined HAVE_NETCDF
1463 : 1176 : write(tmp,"(1x,a25)") "HAVE_NETCDF"
1464 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1465 : 1176 : msg_index = msg_index + 1
1466 : : if ( mod(msg_index,3) == 0 ) then
1467 [ + - ]: 1176 : msg = trim(msg)//ch10
1468 : 1176 : write(my_unit,'(a)') msg
1469 : 1176 : msg = ""
1470 : : end if
1471 : : #endif
1472 : : #if defined HAVE_NETCDF_CXX
1473 : : write(tmp,"(1x,a25)") "HAVE_NETCDF_CXX"
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_NETCDF_CXX_MPI
1483 : : write(tmp,"(1x,a25)") "HAVE_NETCDF_CXX_MPI"
1484 : : msg = trim(msg)//trim(tmp)
1485 : : 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_NETCDF_DEFAULT
1493 : 1176 : write(tmp,"(1x,a25)") "HAVE_NETCDF_DEFAULT"
1494 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1495 : 1176 : msg_index = msg_index + 1
1496 : : if ( mod(msg_index,3) == 0 ) then
1497 : : msg = trim(msg)//ch10
1498 : : write(my_unit,'(a)') msg
1499 : : msg = ""
1500 : : end if
1501 : : #endif
1502 : : #if defined HAVE_NETCDF_FORTRAN
1503 : 1176 : write(tmp,"(1x,a25)") "HAVE_NETCDF_FORTRAN"
1504 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1505 : 1176 : 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_NETCDF_FORTRAN_MPI
1513 : 1176 : write(tmp,"(1x,a25)") "HAVE_NETCDF_FORTRAN_MPI"
1514 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1515 : 1176 : msg_index = msg_index + 1
1516 : : if ( mod(msg_index,3) == 0 ) then
1517 [ + - ]: 1176 : msg = trim(msg)//ch10
1518 : 1176 : write(my_unit,'(a)') msg
1519 : 1176 : msg = ""
1520 : : end if
1521 : : #endif
1522 : : #if defined HAVE_NETCDF_MPI
1523 : 1176 : write(tmp,"(1x,a25)") "HAVE_NETCDF_MPI"
1524 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1525 : 1176 : 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_NUMPY
1533 : : write(tmp,"(1x,a25)") "HAVE_NUMPY"
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_OMP_COLLAPSE
1543 : : write(tmp,"(1x,a25)") "HAVE_OMP_COLLAPSE"
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_OPENMP
1553 : : write(tmp,"(1x,a25)") "HAVE_OPENMP"
1554 : : msg = trim(msg)//trim(tmp)
1555 : : msg_index = msg_index + 1
1556 : : if ( mod(msg_index,3) == 0 ) then
1557 : : msg = trim(msg)//ch10
1558 : : write(my_unit,'(a)') msg
1559 : : msg = ""
1560 : : end if
1561 : : #endif
1562 : : #if defined HAVE_OPENMP_GET_MAPPED_PTR
1563 : : write(tmp,"(1x,a25)") "HAVE_OPENMP_GET_MAPPED..."
1564 : : msg = trim(msg)//trim(tmp)
1565 : : 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_OPENMP_OFFLOAD
1573 : : write(tmp,"(1x,a25)") "HAVE_OPENMP_OFFLOAD"
1574 : : msg = trim(msg)//trim(tmp)
1575 : : 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_OPENMP_OFFLOAD_DATASTRUCTURE
1583 : : write(tmp,"(1x,a25)") "HAVE_OPENMP_OFFLOAD_DA..."
1584 : : msg = trim(msg)//trim(tmp)
1585 : : msg_index = msg_index + 1
1586 : : if ( mod(msg_index,3) == 0 ) then
1587 : : msg = trim(msg)//ch10
1588 : : write(my_unit,'(a)') msg
1589 : : msg = ""
1590 : : end if
1591 : : #endif
1592 : : #if defined HAVE_OS_LINUX
1593 : 1176 : write(tmp,"(1x,a25)") "HAVE_OS_LINUX"
1594 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1595 : 1176 : 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_OS_MACOSX
1603 : : write(tmp,"(1x,a25)") "HAVE_OS_MACOSX"
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_OS_WINDOWS
1613 : : write(tmp,"(1x,a25)") "HAVE_OS_WINDOWS"
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_PAPI
1623 : : write(tmp,"(1x,a25)") "HAVE_PAPI"
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_PFFT
1633 : : write(tmp,"(1x,a25)") "HAVE_PFFT"
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_PYTHON_INVOCATION
1643 : : write(tmp,"(1x,a25)") "HAVE_PYTHON_INVOCATION"
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_TIMER_ABINIT
1653 : 1176 : write(tmp,"(1x,a25)") "HAVE_TIMER_ABINIT"
1654 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1655 : 1176 : msg_index = msg_index + 1
1656 : : if ( mod(msg_index,3) == 0 ) then
1657 [ + - ]: 1176 : msg = trim(msg)//ch10
1658 : 1176 : write(my_unit,'(a)') msg
1659 : 1176 : msg = ""
1660 : : end if
1661 : : #endif
1662 : : #if defined HAVE_TRIQS
1663 : : write(tmp,"(1x,a25)") "HAVE_TRIQS"
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_TRIQS_COMPLEX
1673 : : write(tmp,"(1x,a25)") "HAVE_TRIQS_COMPLEX"
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_TRIQS_INTERNAL
1683 : : write(tmp,"(1x,a25)") "HAVE_TRIQS_INTERNAL"
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_TRIQS_v1_4
1693 : : write(tmp,"(1x,a25)") "HAVE_TRIQS_v1_4"
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_TRIQS_v2_0
1703 : : write(tmp,"(1x,a25)") "HAVE_TRIQS_v2_0"
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_TRIQS_v3_2
1713 : : write(tmp,"(1x,a25)") "HAVE_TRIQS_v3_2"
1714 : : msg = trim(msg)//trim(tmp)
1715 : : 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_WANNIER90
1723 : 1176 : write(tmp,"(1x,a25)") "HAVE_WANNIER90"
1724 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1725 : 1176 : 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_WANNIER90_V1
1733 : : write(tmp,"(1x,a25)") "HAVE_WANNIER90_V1"
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_XML
1743 : : write(tmp,"(1x,a25)") "HAVE_XML"
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_XMLF90
1753 : 1176 : write(tmp,"(1x,a25)") "HAVE_XMLF90"
1754 [ + - ]: 1176 : msg = trim(msg)//trim(tmp)
1755 : 1176 : 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_YAKL
1763 : : write(tmp,"(1x,a25)") "HAVE_YAKL"
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 HYBRIDISATION_IS_COMPLEX
1773 : : write(tmp,"(1x,a25)") "HYBRIDISATION_IS_COMPLEX"
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 LOCAL_HAMILTONIAN_IS_COMPLEX
1783 : : write(tmp,"(1x,a25)") "LOCAL_HAMILTONIAN_IS_C..."
1784 : : msg = trim(msg)//trim(tmp)
1785 : : msg_index = msg_index + 1
1786 : : if ( mod(msg_index,3) == 0 ) then
1787 : : msg = trim(msg)//ch10
1788 : : write(my_unit,'(a)') msg
1789 : : msg = ""
1790 : : end if
1791 : : #endif
1792 : : #if defined READ_FROM_FILE
1793 : : write(tmp,"(1x,a25)") "READ_FROM_FILE"
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 : :
1803 : 1176 : if ( mod(msg_index,3) /= 0 ) write(my_unit,'(a)') msg
1804 : :
1805 : 1176 : write(my_unit,"(1x,a,a)") repeat("+",78),ch10
1806 : :
1807 : 1176 : end subroutine dump_cpp_options
1808 : :
1809 : : end module m_cppopts_dumper
1810 : : !!***
|
