TABLE OF CONTENTS


ABINIT/dummy_tests [ Programs ]

[ Top ] [ Programs ]

NAME

 dummy_tests

FUNCTION

 This code is supposed to be compiled, and generate warnings when it does not fulfills the abirules.
 This is a way to check that the testing capabilities are not lost when the test farm is modified ...

COPYRIGHT

 Copyright (C) 2017-2018 ABINIT group (XG)
 This file is distributed under the terms of the
 GNU General Public License, see ~abinit/COPYING
 or http://www.gnu.org/copyleft/gpl.txt .
 For the initials of contributors, see ~abinit/doc/developers/contributors.txt

INPUTS

  (main routine)

OUTPUT

  (main routine)

NOTES

 The heading of the constituted database is read,
 then the heading of the temporary database to be added is read,
 the code check their compatibility, and create a new
 database that mixes the old and the temporary ones.
 This process can be iterated.
 The whole database will be stored in
 central memory. One could introduce a third mode in which
 only the temporary DDB is in central memory, while the
 input DDB is read twice : first to make a table of blocks,
 counting the final number of blocks, and second to merge
 the two DDBs. This would save memory.

PARENTS

CHILDREN

      abi_io_redirect,abimem_init,test_dummy,test_same_actual_arg
      test_unused_arg,xmpi_init

SOURCE

 44 #if defined HAVE_CONFIG_H
 45 #include "config.h"
 46 #endif
 47 
 48 #include "abi_common.h"
 49 
 50 program dummy_tests
 51 
 52  use defs_basis
 53  use m_build_info
 54  use m_abicore
 55  use m_errors
 56  use m_xmpi
 57  use m_dummy_tests
 58 
 59 !This section has been created automatically by the script Abilint (TD).
 60 !Do not modify the following lines by hand.
 61 #undef ABI_FUNC
 62 #define ABI_FUNC 'dummy_tests'
 63 !End of the abilint section
 64 
 65  implicit none
 66 
 67 !Local variables-------------------------------
 68 !scalars
 69  integer :: comm,dummy_out,my_rank
 70  integer :: unused_arg,unused_variable,used_arg,used_variable
 71 !arrays
 72  character(len=10) :: dummy_string
 73 
 74 !******************************************************************
 75 
 76  ! Change communicator for I/O (mandatory!)
 77  call abi_io_redirect(new_io_comm=xmpi_world)
 78 
 79  ! Initialize MPI
 80  call xmpi_init()
 81  comm = xmpi_world; my_rank = xmpi_comm_rank(comm)
 82 
 83  ! Initialize memory profiling if it is activated
 84  ! if a full abimem.mocc report is desired, set the argument of abimem_init to "2" instead of "0"
 85  ! note that abimem.mocc files can easily be multiple GB in size so don't use this option normally
 86 #ifdef HAVE_MEM_PROFILING
 87  call abimem_init(0)
 88 #endif
 89 
 90 !**********************************************************************
 91 
 92  used_variable=1
 93  used_arg=used_variable
 94  call test_unused_arg(used_arg,unused_arg)
 95  write(std_out,'(a,i4)')' dummy_tests : used_arg is ',used_arg
 96 
 97  call test_same_actual_arg(dummy_out,dummy_out,used_arg)
 98 
 99  dummy_string="This is too long !"
100 
101  call test_dummy(dummy_out,used_arg)
102 
103 !**********************************************************************
104 
105  100 call xmpi_end()
106 
107  end program dummy_tests