TABLE OF CONTENTS


ABINIT/m_array [ Modules ]

[ Top ] [ Modules ]

NAME

 m_array

FUNCTION

   This module provides data types that can be used to construct ragged arrays
   and helper functions to print/write the array in different formats.

COPYRIGHT

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

PARENTS

CHILDREN

SOURCE

22 #if defined HAVE_CONFIG_H
23 #include "config.h"
24 #endif
25 
26 #include "abi_common.h"
27 
28 MODULE m_array
29 
30  use defs_basis
31  use m_abicore
32  use m_errors
33  use m_nctk
34 #ifdef HAVE_NETCDF
35  use netcdf
36 #endif
37 
38  use m_numeric_tools, only : c2r
39 
40  implicit none
41 
42  private

m_array/array2_gwpc_free [ Functions ]

[ Top ] [ m_array ] [ Functions ]

NAME

   array2_gwpc_free

FUNCTION

   Free memory

PARENTS

CHILDREN

SOURCE

 99 subroutine array2_gwpc_free(Array)
100 
101 
102 !This section has been created automatically by the script Abilint (TD).
103 !Do not modify the following lines by hand.
104 #undef ABI_FUNC
105 #define ABI_FUNC 'array2_gwpc_free'
106 !End of the abilint section
107 
108  implicit none
109 
110 !Arguments ------------------------------------
111  type(array2_gwpc_t),intent(inout) :: Array
112 
113 ! *********************************************************************
114 
115  if (allocated(Array%vals)) then
116    ABI_FREE(Array%vals)
117  end if
118 
119 end subroutine array2_gwpc_free

m_array/array2_gwpc_type [ Types ]

[ Top ] [ m_array ] [ Types ]

NAME

 array2_gwpc_type

FUNCTION

  A datatype used to construct ragged 2D-arrays with KIND=gwpc

SOURCE

73  type,public :: array2_gwpc_t
74    complex(gwpc),allocatable :: vals(:,:)
75  end type array2_gwpc_t
76 
77  interface array_free
78    module procedure array2_gwpc_free
79  end interface array_free
80 
81  public :: array_free       ! Free memory