| Path: | gtdata/gtdata_netcdf/gdncxtypename.f90 |
| Last Update: | Tue Apr 28 20:05:59 +0900 2009 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved.
| Subroutine : | |
| ixtype : | integer, intent(in) |
| xtype : | character(*), intent(out) |
subroutine GDNcXTypeName(ixtype, xtype)
use netcdf_f77, only: NF_BYTE, NF_CHAR, NF_SHORT, NF_INT, NF_FLOAT, NF_DOUBLE
implicit none
integer, intent(in):: ixtype
character(*), intent(out):: xtype
select case(ixtype)
case(0)
xtype = "error"
case(NF_CHAR)
xtype = "char"
case(NF_BYTE)
xtype = "byte"
case(NF_SHORT)
xtype = "short"
case(NF_INT)
xtype = "int"
case(NF_FLOAT)
xtype = "float"
case(NF_DOUBLE)
xtype = "double"
case default
xtype = ""
end select
end subroutine