ETSF_IO library - documentation pages

### TABLE OF CONTENTS

- etsf_io_split_free

## etsf_io_split_free

[ Top ] [ etsf_split ] [ Methods ]

NAME

etsf_io_split_free

FUNCTION

Deallocate a split defintions, previously allocated with etsf_io_split_allocate().

SIDE EFFECTS

- split <type(etsf_split)> = free all associated array in the split definition.

NOTES

This file has been automatically generated by the autogen_subroutines.py script. Any change you would bring to it will systematically be overwritten.

SOURCE

    subroutine etsf_io_split_free(split)

      !Arguments ------------------------------------
      type(etsf_split), intent(inout) :: split

      !Local variables-------------------------------
      character(len = *), parameter :: my_name = 'etsf_io_split_free'

      ! *************************************************************************

    !DEBUG
    !write (*,*) 'etsf_io_split_free : enter'
    !ENDDEBUG

      if (associated(split%my_kpoints)) then
        deallocate(split%my_kpoints)
      end if
      if (associated(split%my_grid_points_vector3)) then
        deallocate(split%my_grid_points_vector3)
      end if
      if (associated(split%my_spins)) then
        deallocate(split%my_spins)
      end if
      if (associated(split%my_grid_points_vector1)) then
        deallocate(split%my_grid_points_vector1)
      end if
      if (associated(split%my_grid_points_vector2)) then
        deallocate(split%my_grid_points_vector2)
      end if
      if (associated(split%my_coefficients)) then
        deallocate(split%my_coefficients)
      end if
      if (associated(split%my_components)) then
        deallocate(split%my_components)
      end if
      if (associated(split%my_states)) then
        deallocate(split%my_states)
      end if

    !DEBUG
    !write (*,*) 'etsf_io_split_free : exit'
    !ENDDEBUG

    end subroutine etsf_io_split_free