TABLE OF CONTENTS
- DUMMY_TESTS/m_dummy_tests
- DUMMY_TESTS/test_dummy
- DUMMY_TESTS/test_same_actual_arg
- DUMMY_TESTS/test_unused_arg
DUMMY_TESTS/m_dummy_tests [ Functions ]
NAME
m_dummy_tests
FUNCTION
Dummy module, to detect unused values
COPYRIGHT
Copyright (C) 2017-2022 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 .
INPUTS
used_arg = used argument
OUTPUT
dummy_out1 = first output value
SIDE EFFECTS
used_arg = used argument
SOURCE
25 #if defined HAVE_CONFIG_H 26 #include "config.h" 27 #endif 28 29 #include "abi_common.h" 30 31 module m_dummy_tests 32 33 implicit none 34 35 !private 36 public 37 38 double precision, save :: dummy_value 39 public :: test_dummy 40 41 contains
DUMMY_TESTS/test_dummy [ Functions ]
NAME
test_dummy
FUNCTION
Dummy subroutine
INPUTS
used_arg = used argument
OUTPUT
dummy_out1 = first output value
SOURCE
126 subroutine test_dummy(dummy_out1,used_arg) 127 128 implicit none 129 130 !Local variables------------------------------- 131 !scalars 132 integer, intent(in) :: used_arg 133 integer, intent(out) :: dummy_out1 134 135 !****************************************************************** 136 137 dummy_out1=used_arg 138 139 end subroutine test_dummy 140 141 end module m_dummy_tests
DUMMY_TESTS/test_same_actual_arg [ Functions ]
NAME
test_same_actual_arg
FUNCTION
Dummy subroutine, to detect when the calling subroutine attributes to one variable results from two different arguments
INPUTS
used_arg = used argument
OUTPUT
dummy_out1 = first output value dummy_out2 = second output value
SIDE EFFECTS
used_arg = used argument
SOURCE
94 subroutine test_same_actual_arg(dummy_out1,dummy_out2,used_arg) 95 96 implicit none 97 98 !Local variables------------------------------- 99 !scalars 100 integer, intent(in) :: used_arg 101 integer, intent(out) :: dummy_out1, dummy_out2 102 103 !****************************************************************** 104 105 dummy_out1=used_arg+1 106 dummy_out2=used_arg+2 107 108 end subroutine test_same_actual_arg
DUMMY_TESTS/test_unused_arg [ Functions ]
NAME
test_unused_arg
FUNCTION
Dummy subroutine, to test unused arguments
INPUTS
unused_arg = unused argument
SIDE EFFECTS
used_arg = used argument
SOURCE
59 subroutine test_unused_arg(used_arg,unused_arg) 60 61 implicit none 62 63 !Local variables------------------------------- 64 !scalars 65 integer, intent(inout) :: used_arg 66 integer, intent(in) :: unused_arg 67 68 !****************************************************************** 69 70 used_arg=used_arg+1 71 72 end subroutine test_unused_arg