Line data    Source code

       1              : !{\src2tex{textfont=tt}}
       2              : !!****m* ABINIT/m_optim_dumper
       3              : !! NAME
       4              : !!  m_optim_dumper
       5              : !!
       6              : !! FUNCTION
       7              : !!  This module contains information about the optimizations set at
       8              : !!  configure-time when building ABINIT (useful for debugging).
       9              : !!
      10              : !! COPYRIGHT
      11              : !!  Copyright (C) 2010-2026 ABINIT group (Yann Pouillon)
      12              : !!  This file is distributed under the terms of the
      13              : !!  GNU General Public License, see ~abinit/COPYING
      14              : !!  or http://www.gnu.org/copyleft/gpl.txt .
      15              : !!
      16              : !! SOURCE
      17              : 
      18              : #if defined HAVE_CONFIG_H
      19              : #include "config.h"
      20              : #endif
      21              : 
      22              : module m_optim_dumper
      23              : 
      24              :   public :: dump_optim
      25              : 
      26              : contains  !===========================================================
      27              : !!***
      28              : 
      29              : !!****f* ABINIT/m_optim_dumper/dump_optim
      30              : !! NAME
      31              : !!  dump_optim
      32              : !!
      33              : !! FUNCTION
      34              : !!  Reports a printout of the optimizations set at configure-time,
      35              : !!  useful for error messages and debugging.
      36              : !!
      37              : !! COPYRIGHT
      38              : !!  Copyright (C) 2010-2026 ABINIT group (Yann Pouillon)
      39              : !!  This file is distributed under the terms of the
      40              : !!  GNU General Public License, see ~abinit/COPYING
      41              : !!  or http://www.gnu.org/copyleft/gpl.txt .
      42              : !!
      43              : !! INPUTS
      44              : !!  my_unit= Fortran unit number (optional, default is std_out)
      45              : !!
      46              : !! OUTPUT
      47              : !!  Only printing
      48              : !!
      49              : !! SOURCE
      50              : 
      51         1165 : subroutine dump_optim(my_unit)
      52              : 
      53              :   use defs_basis
      54              : 
      55              : !Arguments ------------------------------------
      56              :   integer,intent(in) :: my_unit
      57              : 
      58              : !Local variables-------------------------------
      59              : 
      60              : ! *************************************************************************
      61              : 
      62         1165 :   write(my_unit,"(a,1x,a)") ch10,repeat("+",78)
      63         1165 :   write(my_unit,"(1x,a,a,3x,a,a,a)") "Default optimizations:",ch10, &
      64         2330 : &   "-O2 -march=native",ch10,ch10
      65              : 
      66         1165 :   write(my_unit,"(1x,a,a,3x,a,a,a)") "Optimizations for 43_ptgroups:",ch10, &
      67         2330 : &   "-O0",ch10,ch10
      68              : 
      69         1165 :   write(my_unit,"(1x,a,a)") repeat("+",78),ch10
      70              : 
      71         1165 : end subroutine dump_optim
      72              : 
      73              : end module m_optim_dumper
      74              : !!***