TABLE OF CONTENTS


ABINIT/m_optim_dumper [ Modules ]

[ Top ] [ Modules ]

NAME

  m_optim_dumper

FUNCTION

  This module contains information about the optimizations set at
  configure-time when building ABINIT (useful for debugging).

COPYRIGHT

  Copyright (C) 2010-2022 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 .

SOURCE

18 #if defined HAVE_CONFIG_H
19 #include "config.h"
20 #endif
21 
22 module m_optim_dumper
23 
24   implicit none
25 
26   public :: dump_optim
27 
28 contains  !===========================================================

ABINIT/m_optim_dumper/dump_optim [ Functions ]

[ Top ] [ Functions ]

NAME

  dump_optim

FUNCTION

  Reports a printout of the optimizations set at configure-time,
  useful for error messages and debugging.

COPYRIGHT

  Copyright (C) 2010-2022 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 .

INPUTS

  my_unit= Fortran unit number (optional, default is std_out)

OUTPUT

  Only printing

PARENTS

  Will be filled automatically by the parent script

CHILDREN

  Will be filled automatically by the parent script

SOURCE

59 subroutine dump_optim(my_unit)
60     
61   use defs_basis
62 
63   implicit none
64 
65 !Arguments ------------------------------------
66   integer,intent(in) :: my_unit
67 
68 !Local variables-------------------------------
69  
70 ! *************************************************************************
71  
72   write(my_unit,"(a,1x,a)") ch10,repeat("+",78)
73   write(my_unit,"(1x,a,a,3x,a,a,a)") "Default optimizations:",ch10, &
74 &   "-O0",ch10,ch10
75 
76   write(my_unit,"(1x,a,a)") repeat("+",78),ch10
77 
78 end subroutine dump_optim
79 
80 end module m_optim_dumper