TABLE OF CONTENTS
ABINIT/m_cppopts_dumper [ Modules ]
NAME
m_cppopts_dumper
FUNCTION
Displays preprocessing options activated at compile-time.
COPYRIGHT
Copyright (C) 2010-2024 ABINIT group (Yann Pouillon) This file is distributed under the terms of the GNU General Public License, see ~abinit/COPYING or http://www.gnu.org/copyleft/gpl.txt.
NOTES
This file was generated by make-cppopts-dumper, on 2024/04/29 07:30:29 +0000. Any modification will be lost.
PARENTS
CHILDREN
SOURCE
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
ABINIT/m_cppopts_dumper/dump_cpp_options [ Functions ]
NAME
dump_cpp_options
FUNCTION
Reports a printout of the CPP options used at compile-time, useful for error messages and debugging.
INPUTS
my_unit= Fortran unit number (optional, default is std_out)
OUTPUT
Only printing.
PARENTS
CHILDREN
SOURCE
60 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 write(my_unit,"(a,1x,a)") ch10,repeat("+",78) 77 write(my_unit,"(1x,a,a)") "CPP options activated during the build:",ch10 78 79 msg_index = 0 80 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 write(tmp,"(1x,a25)") "CC_GNU" 104 msg = trim(msg)//trim(tmp) 105 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 write(tmp,"(1x,a25)") "CXX_GNU" 194 msg = trim(msg)//trim(tmp) 195 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_LLVM 223 write(tmp,"(1x,a25)") "CXX_LLVM" 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_NVHPC 233 write(tmp,"(1x,a25)") "CXX_NVHPC" 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_PGI 243 write(tmp,"(1x,a25)") "CXX_PGI" 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 DEBUG_CONTRACT 253 write(tmp,"(1x,a25)") "DEB*G_CONTRACT" 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_MODE 263 write(tmp,"(1x,a25)") "DEB*G_MODE" 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_VERBOSE 273 write(tmp,"(1x,a25)") "DEB*G_VERBOSE" 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 FC_ABSOFT 283 write(tmp,"(1x,a25)") "FC_ABSOFT" 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_AOCC 293 write(tmp,"(1x,a25)") "FC_AOCC" 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_ARM 303 write(tmp,"(1x,a25)") "FC_ARM" 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_CRAY 313 write(tmp,"(1x,a25)") "FC_CRAY" 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_GNU 323 write(tmp,"(1x,a25)") "FC_GNU" 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_IBM 333 write(tmp,"(1x,a25)") "FC_IBM" 334 msg = trim(msg)//trim(tmp) 335 msg_index = msg_index + 1 336 if ( mod(msg_index,3) == 0 ) then 337 msg = trim(msg)//ch10 338 write(my_unit,'(a)') msg 339 msg = "" 340 end if 341 #endif 342 #if defined FC_INTEL 343 write(tmp,"(1x,a25)") "FC_INTEL" 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_LLVM 353 write(tmp,"(1x,a25)") "FC_LLVM" 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_NAG 363 write(tmp,"(1x,a25)") "FC_NAG" 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_NVHPC 373 write(tmp,"(1x,a25)") "FC_NVHPC" 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_PGI 383 write(tmp,"(1x,a25)") "FC_PGI" 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 HAVE_ABINIT_COMMON 393 write(tmp,"(1x,a25)") "HAVE_ABINIT_COMMON" 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 HAVE_ATOMPAW 403 write(tmp,"(1x,a25)") "HAVE_ATOMPAW" 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_AVX_SAFE_MODE 413 write(tmp,"(1x,a25)") "HAVE_AVX_SAFE_MODE" 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_BIGDFT 423 write(tmp,"(1x,a25)") "HAVE_BIGDFT" 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_BSE_UNPACKED 433 write(tmp,"(1x,a25)") "HAVE_BSE_UNPACKED" 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_CCLOCK 443 write(tmp,"(1x,a25)") "HAVE_CCLOCK" 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_CRPA_OPTIM 453 write(tmp,"(1x,a25)") "HAVE_CRPA_OPTIM" 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_DFTI 463 write(tmp,"(1x,a25)") "HAVE_DFTI" 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_FC_ALLOCATABLE_DTARRAYS 473 write(tmp,"(1x,a25)") "HAVE_FC_ALLOCATABLE_DT..." 474 msg = trim(msg)//trim(tmp) 475 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_ASYNC 483 write(tmp,"(1x,a25)") "HAVE_FC_ASYNC" 484 msg = trim(msg)//trim(tmp) 485 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_BACKTRACE 493 write(tmp,"(1x,a25)") "HAVE_FC_BACKTRACE" 494 msg = trim(msg)//trim(tmp) 495 msg_index = msg_index + 1 496 if ( mod(msg_index,3) == 0 ) then 497 msg = trim(msg)//ch10 498 write(my_unit,'(a)') msg 499 msg = "" 500 end if 501 #endif 502 #if defined HAVE_FC_COMMAND_ARGUMENT 503 write(tmp,"(1x,a25)") "HAVE_FC_COMMAND_ARGUMENT" 504 msg = trim(msg)//trim(tmp) 505 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_LINE 513 write(tmp,"(1x,a25)") "HAVE_FC_COMMAND_LINE" 514 msg = trim(msg)//trim(tmp) 515 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_CONTIGUOUS 523 write(tmp,"(1x,a25)") "HAVE_FC_CONTIGUOUS" 524 msg = trim(msg)//trim(tmp) 525 msg_index = msg_index + 1 526 if ( mod(msg_index,3) == 0 ) then 527 msg = trim(msg)//ch10 528 write(my_unit,'(a)') msg 529 msg = "" 530 end if 531 #endif 532 #if defined HAVE_FC_CPUTIME 533 write(tmp,"(1x,a25)") "HAVE_FC_CPUTIME" 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_ETIME 543 write(tmp,"(1x,a25)") "HAVE_FC_ETIME" 544 msg = trim(msg)//trim(tmp) 545 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_EXIT 553 write(tmp,"(1x,a25)") "HAVE_FC_EXIT" 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_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_FLUSH_ 573 write(tmp,"(1x,a25)") "HAVE_FC_FLUSH_" 574 msg = trim(msg)//trim(tmp) 575 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_GAMMA 583 write(tmp,"(1x,a25)") "HAVE_FC_GAMMA" 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_GETENV 593 write(tmp,"(1x,a25)") "HAVE_FC_GETENV" 594 msg = trim(msg)//trim(tmp) 595 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_GETPID 603 write(tmp,"(1x,a25)") "HAVE_FC_GETPID" 604 msg = trim(msg)//trim(tmp) 605 msg_index = msg_index + 1 606 if ( mod(msg_index,3) == 0 ) then 607 msg = trim(msg)//ch10 608 write(my_unit,'(a)') msg 609 msg = "" 610 end if 611 #endif 612 #if defined HAVE_FC_IEEE_ARITHMETIC 613 write(tmp,"(1x,a25)") "HAVE_FC_IEEE_ARITHMETIC" 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_EXCEPTIONS 623 write(tmp,"(1x,a25)") "HAVE_FC_IEEE_EXCEPTIONS" 624 msg = trim(msg)//trim(tmp) 625 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_INT_QUAD 633 write(tmp,"(1x,a25)") "HAVE_FC_INT_QUAD" 634 msg = trim(msg)//trim(tmp) 635 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_IOMSG 643 write(tmp,"(1x,a25)") "HAVE_FC_IOMSG" 644 msg = trim(msg)//trim(tmp) 645 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_ISO_C_BINDING 653 write(tmp,"(1x,a25)") "HAVE_FC_ISO_C_BINDING" 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_ISO_FORTRAN_2008 663 write(tmp,"(1x,a25)") "HAVE_FC_ISO_FORTRAN_2008" 664 msg = trim(msg)//trim(tmp) 665 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_LONG_LINES 673 write(tmp,"(1x,a25)") "HAVE_FC_LONG_LINES" 674 msg = trim(msg)//trim(tmp) 675 msg_index = msg_index + 1 676 if ( mod(msg_index,3) == 0 ) then 677 msg = trim(msg)//ch10 678 write(my_unit,'(a)') msg 679 msg = "" 680 end if 681 #endif 682 #if defined HAVE_FC_MACRO_NEWLINE 683 write(tmp,"(1x,a25)") "HAVE_FC_MACRO_NEWLINE" 684 msg = trim(msg)//trim(tmp) 685 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_MOVE_ALLOC 693 write(tmp,"(1x,a25)") "HAVE_FC_MOVE_ALLOC" 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_ON_THE_FLY_SHAPE 703 write(tmp,"(1x,a25)") "HAVE_FC_ON_THE_FLY_SHAPE" 704 msg = trim(msg)//trim(tmp) 705 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_PRIVATE 713 write(tmp,"(1x,a25)") "HAVE_FC_PRIVATE" 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_FC_PROTECTED 723 write(tmp,"(1x,a25)") "HAVE_FC_PROTECTED" 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_FC_SHIFTLR 733 write(tmp,"(1x,a25)") "HAVE_FC_SHIFTLR" 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_FC_STREAM_IO 743 write(tmp,"(1x,a25)") "HAVE_FC_STREAM_IO" 744 msg = trim(msg)//trim(tmp) 745 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_FC_SYSTEM 753 write(tmp,"(1x,a25)") "HAVE_FC_SYSTEM" 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_FFTW3 763 write(tmp,"(1x,a25)") "HAVE_FFTW3" 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_FFTW3_MPI 773 write(tmp,"(1x,a25)") "HAVE_FFTW3_MPI" 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_THREADS 783 write(tmp,"(1x,a25)") "HAVE_FFTW3_THREADS" 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_FORTRAN2003 793 write(tmp,"(1x,a25)") "HAVE_FORTRAN2003" 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 803 write(tmp,"(1x,a25)") "HAVE_GPU" 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_CUDA 813 write(tmp,"(1x,a25)") "HAVE_GPU_CUDA" 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_CUDA10 823 write(tmp,"(1x,a25)") "HAVE_GPU_CUDA10" 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_CUDA3 833 write(tmp,"(1x,a25)") "HAVE_GPU_CUDA3" 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_CUDA_DP 843 write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_DP" 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_SP 853 write(tmp,"(1x,a25)") "HAVE_GPU_CUDA_SP" 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_HIP 863 write(tmp,"(1x,a25)") "HAVE_GPU_HIP" 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_MARKERS 873 write(tmp,"(1x,a25)") "HAVE_GPU_MARKERS" 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_MPI 883 write(tmp,"(1x,a25)") "HAVE_GPU_MPI" 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_SERIAL 893 write(tmp,"(1x,a25)") "HAVE_GPU_SERIAL" 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_GW_DPC 903 write(tmp,"(1x,a25)") "HAVE_GW_DPC" 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_HDF5 913 write(tmp,"(1x,a25)") "HAVE_HDF5" 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_HDF5_MPI 923 write(tmp,"(1x,a25)") "HAVE_HDF5_MPI" 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_KOKKOS 933 write(tmp,"(1x,a25)") "HAVE_KOKKOS" 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_LEVMAR 943 write(tmp,"(1x,a25)") "HAVE_LEVMAR" 944 msg = trim(msg)//trim(tmp) 945 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_LIBPAW 953 write(tmp,"(1x,a25)") "HAVE_LIBPAW" 954 msg = trim(msg)//trim(tmp) 955 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_LIBPAW_ABINIT 963 write(tmp,"(1x,a25)") "HAVE_LIBPAW_ABINIT" 964 msg = trim(msg)//trim(tmp) 965 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_LIBPSML 973 write(tmp,"(1x,a25)") "HAVE_LIBPSML" 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_LIBTETRA_ABINIT 983 write(tmp,"(1x,a25)") "HAVE_LIBTETRA_ABINIT" 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_LIBXC 993 write(tmp,"(1x,a25)") "HAVE_LIBXC" 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_ASL 1003 write(tmp,"(1x,a25)") "HAVE_LINALG_ASL" 1004 msg = trim(msg)//trim(tmp) 1005 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_AXPBY 1013 write(tmp,"(1x,a25)") "HAVE_LINALG_AXPBY" 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 1023 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA" 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_2013 1033 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2013" 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_2014 1043 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2014" 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_02 1053 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2015_02" 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_2015_11 1063 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2015_11" 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_2016 1073 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2016" 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_2017 1083 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_2017" 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_FORTRAN2008 1093 write(tmp,"(1x,a25)") "HAVE_LINALG_ELPA_FORTR..." 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_ESSL 1103 write(tmp,"(1x,a25)") "HAVE_LINALG_ESSL" 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_GEMM3M 1113 write(tmp,"(1x,a25)") "HAVE_LINALG_GEMM3M" 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_GEMMT 1123 write(tmp,"(1x,a25)") "HAVE_LINALG_GEMMT" 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 1133 write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA" 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_MAGMA_15 1143 write(tmp,"(1x,a25)") "HAVE_LINALG_MAGMA_15" 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_MKL_IMATCOPY 1153 write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_IMATCOPY" 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_MKL_OMATADD 1163 write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATADD" 1164 msg = trim(msg)//trim(tmp) 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_MKL_OMATCOPY 1173 write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_OMATCOPY" 1174 msg = trim(msg)//trim(tmp) 1175 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_MKL_THREADS 1183 write(tmp,"(1x,a25)") "HAVE_LINALG_MKL_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_ZDOTC_BUG 1223 write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTC_B*G" 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_ZDOTU_BUG 1233 write(tmp,"(1x,a25)") "HAVE_LINALG_ZDOTU_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_LOTF 1243 write(tmp,"(1x,a25)") "HAVE_LOTF" 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_MEM_PROFILING 1253 write(tmp,"(1x,a25)") "HAVE_MEM_PROFILING" 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_MPI 1263 write(tmp,"(1x,a25)") "HAVE_MPI" 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_MPI1 1273 write(tmp,"(1x,a25)") "HAVE_MPI1" 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_MPI2 1283 write(tmp,"(1x,a25)") "HAVE_MPI2" 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_INPLACE 1293 write(tmp,"(1x,a25)") "HAVE_MPI2_INPLACE" 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_MPI3 1303 write(tmp,"(1x,a25)") "HAVE_MPI3" 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_MPI_BUGGY_INTERFACES 1313 write(tmp,"(1x,a25)") "HAVE_MPI_B*GGY_INTERFACES" 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_GET_LIBRARY_VERSION 1323 write(tmp,"(1x,a25)") "HAVE_MPI_GET_LIBRARY_V..." 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_IALLGATHER 1333 write(tmp,"(1x,a25)") "HAVE_MPI_IALLGATHER" 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_IALLREDUCE 1343 write(tmp,"(1x,a25)") "HAVE_MPI_IALLREDUCE" 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_IALLTOALL 1353 write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALL" 1354 msg = trim(msg)//trim(tmp) 1355 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_MPI_IALLTOALLV 1363 write(tmp,"(1x,a25)") "HAVE_MPI_IALLTOALLV" 1364 msg = trim(msg)//trim(tmp) 1365 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_IBCAST 1373 write(tmp,"(1x,a25)") "HAVE_MPI_IBCAST" 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_IGATHERV 1383 write(tmp,"(1x,a25)") "HAVE_MPI_IGATHERV" 1384 msg = trim(msg)//trim(tmp) 1385 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_INCLUDED_ONCE 1393 write(tmp,"(1x,a25)") "HAVE_MPI_INCLUDED_ONCE" 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_INTEGER16 1403 write(tmp,"(1x,a25)") "HAVE_MPI_INTEGER16" 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_IO 1413 write(tmp,"(1x,a25)") "HAVE_MPI_IO" 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_IO_DEFAULT 1423 write(tmp,"(1x,a25)") "HAVE_MPI_IO_DEFAULT" 1424 msg = trim(msg)//trim(tmp) 1425 msg_index = msg_index + 1 1426 if ( mod(msg_index,3) == 0 ) then 1427 msg = trim(msg)//ch10 1428 write(my_unit,'(a)') msg 1429 msg = "" 1430 end if 1431 #endif 1432 #if defined HAVE_MPI_TYPE_CREATE_STRUCT 1433 write(tmp,"(1x,a25)") "HAVE_MPI_TYPE_CREATE_S..." 1434 msg = trim(msg)//trim(tmp) 1435 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_NETCDF 1443 write(tmp,"(1x,a25)") "HAVE_NETCDF" 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_NETCDF_CXX 1453 write(tmp,"(1x,a25)") "HAVE_NETCDF_CXX" 1454 msg = trim(msg)//trim(tmp) 1455 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_CXX_MPI 1463 write(tmp,"(1x,a25)") "HAVE_NETCDF_CXX_MPI" 1464 msg = trim(msg)//trim(tmp) 1465 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_NETCDF_DEFAULT 1473 write(tmp,"(1x,a25)") "HAVE_NETCDF_DEFAULT" 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_FORTRAN 1483 write(tmp,"(1x,a25)") "HAVE_NETCDF_FORTRAN" 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_FORTRAN_MPI 1493 write(tmp,"(1x,a25)") "HAVE_NETCDF_FORTRAN_MPI" 1494 msg = trim(msg)//trim(tmp) 1495 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_MPI 1503 write(tmp,"(1x,a25)") "HAVE_NETCDF_MPI" 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_NUMPY 1513 write(tmp,"(1x,a25)") "HAVE_NUMPY" 1514 msg = trim(msg)//trim(tmp) 1515 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_OMP_COLLAPSE 1523 write(tmp,"(1x,a25)") "HAVE_OMP_COLLAPSE" 1524 msg = trim(msg)//trim(tmp) 1525 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_OPENMP 1533 write(tmp,"(1x,a25)") "HAVE_OPENMP" 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_OPENMP_GET_MAPPED_PTR 1543 write(tmp,"(1x,a25)") "HAVE_OPENMP_GET_MAPPED..." 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_OFFLOAD 1553 write(tmp,"(1x,a25)") "HAVE_OPENMP_OFFLOAD" 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_OFFLOAD_DATASTRUCTURE 1563 write(tmp,"(1x,a25)") "HAVE_OPENMP_OFFLOAD_DA..." 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_OS_LINUX 1573 write(tmp,"(1x,a25)") "HAVE_OS_LINUX" 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_OS_MACOSX 1583 write(tmp,"(1x,a25)") "HAVE_OS_MACOSX" 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_WINDOWS 1593 write(tmp,"(1x,a25)") "HAVE_OS_WINDOWS" 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_PAPI 1603 write(tmp,"(1x,a25)") "HAVE_PAPI" 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_PFFT 1613 write(tmp,"(1x,a25)") "HAVE_PFFT" 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_PYTHON_INVOCATION 1623 write(tmp,"(1x,a25)") "HAVE_PYTHON_INVOCATION" 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_TIMER_ABINIT 1633 write(tmp,"(1x,a25)") "HAVE_TIMER_ABINIT" 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_TRIQS 1643 write(tmp,"(1x,a25)") "HAVE_TRIQS" 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_TRIQS_v1_4 1653 write(tmp,"(1x,a25)") "HAVE_TRIQS_v1_4" 1654 msg = trim(msg)//trim(tmp) 1655 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_TRIQS_v2_0 1663 write(tmp,"(1x,a25)") "HAVE_TRIQS_v2_0" 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_WANNIER90 1673 write(tmp,"(1x,a25)") "HAVE_WANNIER90" 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_WANNIER90_V1 1683 write(tmp,"(1x,a25)") "HAVE_WANNIER90_V1" 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_XML 1693 write(tmp,"(1x,a25)") "HAVE_XML" 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_XMLF90 1703 write(tmp,"(1x,a25)") "HAVE_XMLF90" 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_YAKL 1713 write(tmp,"(1x,a25)") "HAVE_YAKL" 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 READ_FROM_FILE 1723 write(tmp,"(1x,a25)") "READ_FROM_FILE" 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 1733 if ( mod(msg_index,3) /= 0 ) write(my_unit,'(a)') msg 1734 1735 write(my_unit,"(1x,a,a)") repeat("+",78),ch10 1736 1737 end subroutine dump_cpp_options 1738 1739 end module m_cppopts_dumper