gdmemvarattradd.f90

Go to the documentation of this file.

subroutine gdmemvarattradd(var, attrname, attrval)
  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry, gd_mem_attr_chain
  use gtdata_memory_internal, only: memtab_lookup
  use netcdf, only: nf90_noerr, nf90_enotatt
  type(gd_mem_variable), intent(in):: var
  character(*), intent(in):: attrname
  character(*), intent(in):: attrval
  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
      if (ent%current%name == attrname) then
        p => ent%current
        goto 100
      endif
    endif
    p => ent%attr
    do
      if (.not. associated(p)) exit
      if (p%name == attrname) goto 100
      p => p%next
    enddo
    stat = nf90_enotatt
  endif
  allocate(p)
  nullify(p%next)
  goto 120

100 continue
  if (associated(p%cbuf)) then
    deallocate(p%cbuf)
  endif

120 continue
  allocate(p%cbuf(len(attrval)))
  do, i = 1, len(attrval)
    p%cbuf(i) = attrval(i:i)
  enddo
  return
end subroutine gdmemvarattradd