gdmemvarattrget.f90

Go to the documentation of this file.

subroutine gdmemvarattrget(var, name, value, err)
  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
  character(len = *), intent(out):: value
  logical, intent(out), optional:: err
  type(gd_mem_variable_entry), pointer:: ent
  type(gd_mem_attr_chain), pointer:: p
  integer:: i, stat
  stat = memtab_lookup(var, ent)
  if (stat == nf90_noerr) then
    if (associated(ent%current)) then
      p => ent%current
      if (p%name == name) goto 100
    endif
    p => ent%attr
    do
      if (.not. associated(p)) exit
      if (p%name == name) goto 100
      p => p%next
    enddo
    stat = nf90_enotatt
  endif
  call storeerror(stat, "GDMemVarAttrGet", err, cause_c=name)
  return

100 continue
  if (associated(p%cbuf)) then
    do, i = 1, len(value)
      value(i:i) = p%cbuf(i)
    enddo
  else
    value = ""
  endif

end subroutine gdmemvarattrget