TABLE OF CONTENTS
etsf_io_vars_free
[ Top ] [ etsf_vars ] [ Methods ]
NAME
etsf_io_vars_free
FUNCTION
Free the given variable list.
SIDE EFFECTS
- vars_infos <type(etsf_vars)> =
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_vars_free(vars_infos) !Arguments ------------------------------------ type(etsf_vars), intent(inout) :: vars_infos !Local variables------------------------------- character(len = *), parameter :: my_name = 'etsf_io_vars_free' ! ************************************************************************* !DEBUG !write (*,*) 'etsf_io_vars_free : enter' !ENDDEBUG ! Deallocate all associated pointers. if (associated(vars_infos%parent)) then call etsf_io_low_free_all_var_infos(vars_infos%parent) end if if (associated(vars_infos%group)) then deallocate(vars_infos%group) end if if (associated(vars_infos%varid)) then deallocate(vars_infos%varid) end if if (associated(vars_infos%split)) then deallocate(vars_infos%split) end if !DEBUG !write (*,*) 'etsf_io_vars_free : exit' !ENDDEBUG end subroutine etsf_io_vars_free