TABLE OF CONTENTS
ABINIT/m_optim_dumper [ 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 ]
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