gdmemvarattrdel.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdmemvarattrdel (var, name, err)

Function/Subroutine Documentation

gdmemvarattrdel()

subroutine gdmemvarattrdel	(	type(gd_mem_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		logical, intent(out), optional	err
	)

Definition at line 2 of file gdmemvarattrdel.f90.

References dc_error::storeerror().

  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry, gd_mem_attr_chain
  use gtdata_memory_internal, only: memtab_lookup
  use dc_error, only: storeerror
  use netcdf, only: nf90_enotatt, nf90_noerr
  type(gd_mem_variable), intent(in):: var
  character(len = *), intent(in):: name
  logical, intent(out), optional:: err
  type(gd_mem_variable_entry), pointer:: ent
  type(gd_mem_attr_chain), pointer:: p, prev
  integer:: stat
  stat = memtab_lookup(var, ent)
  if (stat /= nf90_noerr) goto 999
  nullify(prev)
  p => ent%attr
  do
    if (.not. associated(p)) exit
    if (p%name == name) then
      if (associated(p%cbuf)) deallocate(p%cbuf)
      prev%next => p%next
      deallocate(p)
      call storeerror(nf90_noerr, "GDMemVarAttrDel", err)
      return
    endif
    prev => p
    p => p%next
  enddo
  stat = nf90_enotatt
999 continue
  call storeerror(stat, "GDMemVarAttrDel", err, cause_c=name)

Here is the call graph for this function: