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