Path: | anxtypename.f90 |
Last Update: | Wed Jul 20 18:22:22 JST 2005 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved.
Subroutine : | |
ixtype : | integer, intent(in) |
xtype : | character(*), intent(out) |
subroutine ANXTypeName(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