| Path: | src/anxtypename.f90 |
| Last Update: | Fri Aug 05 00:58:08 JST 2005 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved.
| ixtype : | integer, intent(in) |
| xtype : | character(*), intent(out) |
subroutine ANXTypeName(ixtype, xtype)
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