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