TABLE OF CONTENTS


DUMMY_TESTS/m_dummy_tests [ Functions ]

[ Top ] [ 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 ]

[ Top ] [ 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 ]

[ Top ] [ 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 ]

[ Top ] [ 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