anxtypename.f90

Path: anxtypename.f90
Last Update: Wed Jul 20 18:22:22 JST 2005

Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Required files

netcdf_f77.f90  

Methods

ANXTypeName  

Included Modules

netcdf_f77

Public Instance methods

ANXTypeName( ixtype, xtype )
Subroutine :
ixtype :integer, intent(in)
xtype :character(*), intent(out)

[Source]

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

[Validate]