TABLE OF CONTENTS


ABINIT/m_cppopts_dumper [ Modules ]

[ Top ] [ 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/01/17 11:35:38 +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 ]

[ Top ] [ 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