gdmemvarclose.f90

Path: gtdata/gtdata_memory/gdmemvarclose.f90
Last Update: Mon May 25 18:47:27 +0900 2009

Methods

GDMemVarClose  

Included Modules

gtdata_memory_types gtdata_memory_internal

Public Instance methods

GDMemVarClose( var )
Subroutine :
var :type(GD_MEM_VARIABLE), intent(in)

[Source]

subroutine GDMemVarClose(var)
  use gtdata_memory_types, only: GD_MEM_VARIABLE, GD_MEM_VARIABLE_ENTRY
  use gtdata_memory_internal, only: memtab_lookup

  type(GD_MEM_VARIABLE), intent(in):: var
  type(GD_MEM_VARIABLE_ENTRY), pointer:: ent
  if (memtab_lookup(var, ent) /= 0) return
  deallocate(ent%dbuf)
  if (associated(ent%attr)) deallocate(ent%attr)
  if (associated(ent%current)) deallocate(ent%current)
  ent%name = ""
end subroutine GDMemVarClose

[Validate]