gtdata_memory_internal Module Reference

Data Types
interface	memtab_add
interface	memtab_lookup

Functions/Subroutines
integer function, public	memtab_add (var, name)
integer function, public	memtab_lookup (var, ent)

Variables
type(gd_mem_variable_entry), dimension(:), allocatable, target, save, public	memtab

Function/Subroutine Documentation

memtab_add()

integer function, public gtdata_memory_internal::memtab_add	(	type(gd_mem_variable), intent(out)	var,
		character(len = *), intent(in)	name
	)

Definition at line 38 of file gtdata_memory_internal.f90.

References dc_error::gt_enomem, and memtab.

    use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
    use dc_error, only: gt_enomem
    type(gd_mem_variable), intent(out):: var
    character(len = *), intent(in):: name
    type(gd_mem_variable_entry), allocatable:: tmptab(:)
    integer:: i, n

    if (.not. allocated(memtab)) then
      allocate(memtab(16), stat=stat)
      if (stat /= 0) then
        stat = gt_enomem
        return
      endif
      do, i = 1, size(memtab)
        memtab(i)%name = ""
        memtab(i)%xtype = ""
        nullify(memtab(i)%dbuf)
        nullify(memtab(i)%attr, memtab(i)%current)
      enddo
    endif
    do, i = 1, size(memtab)
      if (memtab(i)%name == "") then
        stat = 0
        var = gd_mem_variable(i)
        memtab(i)%name = name
        return
      endif
    end do

    n = size(memtab)
    allocate(tmptab(n), stat=stat)
    if (stat /= 0) then
      stat = gt_enomem
      return
    endif
    tmptab(:) = memtab(:)
    deallocate(memtab)
    allocate(memtab(n * 2), stat=stat)
    if (stat /= 0) then
      stat = gt_enomem
      return
    endif
    memtab(1:n) = tmptab(1:n)
    deallocate(tmptab)
    do, i = n + 1, n * 2
      memtab(i)%name = ""
      nullify(memtab(i)%dbuf)
      nullify(memtab(i)%attr, memtab(i)%current)
    enddo

    i = n + 1
    var = gd_mem_variable(i)
    memtab(i)%name = name

memtab_lookup()

integer function, public gtdata_memory_internal::memtab_lookup	(	type(gd_mem_variable), intent(in)	var,
		type(gd_mem_variable_entry), pointer	ent
	)

Definition at line 94 of file gtdata_memory_internal.f90.

References memtab.

    use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
    use netcdf, only: nf90_enotvar
    type(gd_mem_variable), intent(in):: var
    type(gd_mem_variable_entry), pointer:: ent

    if (.not. allocated(memtab)) goto 999
    if (var%id <= 0 .or. var%id > size(memtab)) goto 999
    if (memtab(var%id)%name == "") goto 999
    ent => memtab(var%id)
    stat = 0
999 continue
    nullify(ent)
    stat = nf90_enotvar

Variable Documentation

memtab

type(gd_mem_variable_entry), dimension(:), allocatable, target, save, public gtdata_memory_internal::memtab

Definition at line 23 of file gtdata_memory_internal.f90.

Referenced by gdmemvarcreated(), memtab_add(), and memtab_lookup().

  type(gd_mem_variable_entry), allocatable, save, target:: memtab(:)