gdmemvarattrnext.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdmemvarattrnext (var, name, err)

Function/Subroutine Documentation

gdmemvarattrnext()

subroutine gdmemvarattrnext	(	type(gd_mem_variable), intent(in)	var,
		character(len = *), intent(out)	name,
		logical, intent(out), optional	err
	)

Definition at line 2 of file gdmemvarattrnext.f90.

  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
  use gtdata_memory_internal, only: memtab_lookup
  use netcdf, only: nf90_noerr
  type(gd_mem_variable), intent(in):: var
  character(len = *), intent(out):: name
  logical, intent(out), optional:: err
  type(gd_mem_variable_entry), pointer:: ent

  if (memtab_lookup(var, ent) /= nf90_noerr) goto 999
  if (.not. associated(ent%current)) then
    ent%current => ent%attr
  else
    ent%current => ent%current%next
  endif
  if (.not. associated(ent%current)) goto 999
  name = ent%current%name
  if (present(err)) err = .false.
  return
      !
999 continue
  if (present(err)) err = .true.