gdncxtypename.f90

Go to the documentation of this file.

! Copyright (C) GFD Dennou Club, 2000.  All rights reserved.
 
subroutine gdncxtypename(ixtype, xtype)
  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
end subroutine gdncxtypename