gdmemvarattrtrue.f90

Go to the documentation of this file.

logical function gdmemvarattrtrue(var, name, default) result(result)
  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_string, only: str_to_logical
  use netcdf, only: nf90_noerr
  type(gd_mem_variable), intent(in):: var
  character(len = *), intent(in):: name
  logical, intent(in), optional:: default
  type(gd_mem_variable_entry), pointer:: ent
  type(gd_mem_attr_chain), pointer:: p
  character(10):: s
  integer:: stat, i

  stat = memtab_lookup(var, ent)
  if (stat /= nf90_noerr) goto 999
  p => ent%attr
  do
    if (.not. associated(p)) exit
    if (p%name == name) then
      if (associated(p%cbuf)) then
        s = ""
        do, i = 1, min(len(s), size(p%cbuf))
          s(i:i) = p%cbuf(i)
        enddo
        result = str_to_logical(s)
      else
        exit
      endif
      return
    endif
    p => p%next
  enddo
999 continue
  result = .false.
  if (present(default)) result = default
  return
end function gdmemvarattrtrue