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