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

SOURCE

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

m_array/array2_gwpc_free [ Functions ]

[ Top ] [ m_array ] [ Functions ]

NAME

   array2_gwpc_free

FUNCTION

   Free memory

SOURCE

 90 subroutine array2_gwpc_free(Array)
 91 
 92 !Arguments ------------------------------------
 93  type(array2_gwpc_t),intent(inout) :: Array
 94 
 95 ! *********************************************************************
 96 
 97  if (allocated(Array%vals)) then
 98    ABI_FREE(Array%vals)
 99  end if
100 
101 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

68  type,public :: array2_gwpc_t
69    complex(gwpc),allocatable :: vals(:,:)
70  end type array2_gwpc_t
71 
72  interface array_free
73    module procedure array2_gwpc_free
74  end interface array_free
75 
76  public :: array_free       ! Free memory