gdncxtypename.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncxtypename (ixtype, xtype)

Function/Subroutine Documentation

gdncxtypename()

subroutine gdncxtypename	(	integer, intent(in)	ixtype,
		character(*), intent(out)	xtype )

Definition at line 3 of file gdncxtypename.f90.

  use netcdf, only: &
    & nf90_byte,  &
    & nf90_char,  &
    & nf90_short, &
    & nf90_int,   &
    & nf90_float, &
    & nf90_double
  implicit none
  integer, intent(in):: ixtype
  character(*), intent(out):: xtype
  select case(ixtype)
  case(0)
    xtype = "error"
  case(nf90_char)
    xtype = "char"
  case(nf90_byte)
    xtype = "byte"
  case(nf90_short)
    xtype = "short"
  case(nf90_int)
    xtype = "int"
  case(nf90_float)
    xtype = "float"
  case(nf90_double)
    xtype = "double"
  case default
    xtype = ""
  end select