TABLE OF CONTENTS


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

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