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-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 .

INPUTS

  used_arg = used argument

OUTPUT

  dummy_out1 = first output value

SIDE EFFECTS

  used_arg = used argument

PARENTS

      dummy_tests

CHILDREN

SOURCE

30  module m_dummy_tests
31 
32  implicit none
33 
34  !private
35  public
36 
37  double precision, save :: dummy_value
38  public :: test_dummy
39 
40  contains

DUMMY_TESTS/test_dummy [ Functions ]

[ Top ] [ Functions ]

NAME

 test_dummy

FUNCTION

  Dummy subroutine

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 .

INPUTS

  used_arg = used argument

OUTPUT

  dummy_out1 = first output value

PARENTS

      dummy_tests

CHILDREN

SOURCE

180  subroutine test_dummy(dummy_out1,used_arg)
181 
182 
183 !This section has been created automatically by the script Abilint (TD).
184 !Do not modify the following lines by hand.
185 #undef ABI_FUNC
186 #define ABI_FUNC 'test_dummy'
187 !End of the abilint section
188 
189  implicit none
190 
191 !Local variables-------------------------------
192 !scalars
193  integer, intent(in) :: used_arg
194  integer, intent(out) :: dummy_out1
195 
196 !******************************************************************
197 
198  dummy_out1=used_arg
199 
200  end subroutine test_dummy
201 
202  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

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 .

INPUTS

  used_arg = used argument

OUTPUT

  dummy_out1 = first output value
  dummy_out2 = second output value

SIDE EFFECTS

  used_arg = used argument

PARENTS

      dummy_tests

CHILDREN

SOURCE

130  subroutine test_same_actual_arg(dummy_out1,dummy_out2,used_arg)
131 
132 
133 !This section has been created automatically by the script Abilint (TD).
134 !Do not modify the following lines by hand.
135 #undef ABI_FUNC
136 #define ABI_FUNC 'test_same_actual_arg'
137 !End of the abilint section
138 
139  implicit none
140 
141 !Local variables-------------------------------
142 !scalars
143  integer, intent(in) :: used_arg
144  integer, intent(out) :: dummy_out1, dummy_out2
145 
146 !******************************************************************
147 
148  dummy_out1=used_arg+1
149  dummy_out2=used_arg+2
150 
151  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

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 .

INPUTS

  unused_arg = unused argument

OUTPUT

SIDE EFFECTS

  used_arg = used argument

PARENTS

      dummy_tests

CHILDREN

SOURCE

71 #if defined HAVE_CONFIG_H
72 #include "config.h"
73 #endif
74 
75 #include "abi_common.h"
76 
77  subroutine test_unused_arg(used_arg,unused_arg)
78 
79 
80 !This section has been created automatically by the script Abilint (TD).
81 !Do not modify the following lines by hand.
82 #undef ABI_FUNC
83 #define ABI_FUNC 'test_unused_arg'
84 !End of the abilint section
85 
86  implicit none
87 
88 !Local variables-------------------------------
89 !scalars
90  integer, intent(inout) :: used_arg
91  integer, intent(in) :: unused_arg
92 
93 !******************************************************************
94 
95  used_arg=used_arg+1
96 
97  end subroutine test_unused_arg