TABLE OF CONTENTS
ABINIT/m_array [ 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 ]
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