"Fossies" - the Fresh Open Source Software Archive

Member "netcdf-fortran-4.4.5/fortran/netcdf4.inc" (31 Jan 2019, 11368 Bytes) of package /linux/misc/netcdf-fortran-4.4.5.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) fasm source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. For more information about "netcdf4.inc" see the Fossies "Dox" file reference documentation and the latest Fossies "Diffs" side-by-side code changes report: 4.4.4_vs_4.4.5.

    1 !     This is part of netCDF-4. Copyright 2006, UCAR, See COPYRIGHT
    2 !     file for distribution information.
    3 
    4 !     Netcdf version 4 fortran interface.
    5 
    6 !     $Id: netcdf4.inc,v 1.28 2010/05/25 13:53:02 ed Exp $
    7 
    8 !     New netCDF-4 types.
    9       integer nf_ubyte
   10       integer nf_ushort
   11       integer nf_uint
   12       integer nf_int64
   13       integer nf_uint64
   14       integer nf_string
   15       integer nf_vlen
   16       integer nf_opaque
   17       integer nf_enum
   18       integer nf_compound
   19 
   20       parameter (nf_ubyte = 7)
   21       parameter (nf_ushort = 8)
   22       parameter (nf_uint = 9)
   23       parameter (nf_int64 = 10)
   24       parameter (nf_uint64 = 11)
   25       parameter (nf_string = 12)
   26       parameter (nf_vlen = 13)
   27       parameter (nf_opaque = 14)
   28       parameter (nf_enum = 15)
   29       parameter (nf_compound = 16)
   30 
   31 !     New netCDF-4 fill values.
   32       integer           nf_fill_ubyte
   33       integer           nf_fill_ushort
   34 !      real              nf_fill_uint
   35 !      real              nf_fill_int64
   36 !      real              nf_fill_uint64
   37       parameter (nf_fill_ubyte = 255)
   38       parameter (nf_fill_ushort = 65535)
   39 
   40 !     New constants.
   41       integer nf_format_netcdf4
   42       parameter (nf_format_netcdf4 = 3)
   43 
   44       integer nf_format_netcdf4_classic
   45       parameter (nf_format_netcdf4_classic = 4)
   46 
   47       integer nf_netcdf4
   48       parameter (nf_netcdf4 = 4096)
   49 
   50       integer nf_classic_model
   51       parameter (nf_classic_model = 256)
   52 
   53       integer nf_chunk_seq
   54       parameter (nf_chunk_seq = 0)
   55       integer nf_chunk_sub
   56       parameter (nf_chunk_sub = 1)
   57       integer nf_chunk_sizes
   58       parameter (nf_chunk_sizes = 2)
   59 
   60       integer nf_endian_native
   61       parameter (nf_endian_native = 0)
   62       integer nf_endian_little
   63       parameter (nf_endian_little = 1)
   64       integer nf_endian_big
   65       parameter (nf_endian_big = 2)
   66 
   67 !     For NF_DEF_VAR_CHUNKING
   68       integer nf_chunked
   69       parameter (nf_chunked = 0)
   70       integer nf_contiguous
   71       parameter (nf_contiguous = 1)
   72 
   73 !     For NF_DEF_VAR_FLETCHER32
   74       integer nf_nochecksum
   75       parameter (nf_nochecksum = 0)
   76       integer nf_fletcher32
   77       parameter (nf_fletcher32 = 1)
   78 
   79 !     For NF_DEF_VAR_DEFLATE
   80       integer nf_noshuffle
   81       parameter (nf_noshuffle = 0)
   82       integer nf_shuffle
   83       parameter (nf_shuffle = 1)
   84 
   85 !     For NF_DEF_VAR_SZIP
   86       integer nf_szip_ec_option_mask
   87       parameter (nf_szip_ec_option_mask = 4)
   88       integer nf_szip_nn_option_mask
   89       parameter (nf_szip_nn_option_mask = 32)
   90 
   91 !     For parallel I/O.
   92       integer nf_mpiio      
   93       parameter (nf_mpiio = 8192)
   94       integer nf_mpiposix
   95       parameter (nf_mpiposix = 16384)
   96       integer nf_pnetcdf
   97       parameter (nf_pnetcdf = 32768)
   98 
   99 !     For NF_VAR_PAR_ACCESS.
  100       integer nf_independent
  101       parameter (nf_independent = 0)
  102       integer nf_collective
  103       parameter (nf_collective = 1)
  104 
  105 !     New error codes.
  106       integer nf_ehdferr        ! Error at HDF5 layer. 
  107       parameter (nf_ehdferr = -101)
  108       integer nf_ecantread      ! Can't read. 
  109       parameter (nf_ecantread = -102)
  110       integer nf_ecantwrite     ! Can't write. 
  111       parameter (nf_ecantwrite = -103)
  112       integer nf_ecantcreate    ! Can't create. 
  113       parameter (nf_ecantcreate = -104)
  114       integer nf_efilemeta      ! Problem with file metadata. 
  115       parameter (nf_efilemeta = -105)
  116       integer nf_edimmeta       ! Problem with dimension metadata. 
  117       parameter (nf_edimmeta = -106)
  118       integer nf_eattmeta       ! Problem with attribute metadata. 
  119       parameter (nf_eattmeta = -107)
  120       integer nf_evarmeta       ! Problem with variable metadata. 
  121       parameter (nf_evarmeta = -108)
  122       integer nf_enocompound    ! Not a compound type. 
  123       parameter (nf_enocompound = -109)
  124       integer nf_eattexists     ! Attribute already exists. 
  125       parameter (nf_eattexists = -110)
  126       integer nf_enotnc4        ! Attempting netcdf-4 operation on netcdf-3 file.   
  127       parameter (nf_enotnc4 = -111)
  128       integer nf_estrictnc3     ! Attempting netcdf-4 operation on strict nc3 netcdf-4 file.   
  129       parameter (nf_estrictnc3 = -112)
  130       integer nf_enotnc3        ! Attempting netcdf-3 operation on netcdf-4 file.   
  131       parameter (nf_enotnc3 = -113)
  132       integer nf_enopar         ! Parallel operation on file opened for non-parallel access.   
  133       parameter (nf_enopar = -114)
  134       integer nf_eparinit       ! Error initializing for parallel access.   
  135       parameter (nf_eparinit = -115)
  136       integer nf_ebadgrpid      ! Bad group ID.   
  137       parameter (nf_ebadgrpid = -116)
  138       integer nf_ebadtypid      ! Bad type ID.   
  139       parameter (nf_ebadtypid = -117)
  140       integer nf_etypdefined    ! Type has already been defined and may not be edited. 
  141       parameter (nf_etypdefined = -118)
  142       integer nf_ebadfield      ! Bad field ID.   
  143       parameter (nf_ebadfield = -119)
  144       integer nf_ebadclass      ! Bad class.   
  145       parameter (nf_ebadclass = -120)
  146       integer nf_emaptype       ! Mapped access for atomic types only.   
  147       parameter (nf_emaptype = -121)
  148       integer nf_elatefill      ! Attempt to define fill value when data already exists. 
  149       parameter (nf_elatefill = -122)
  150       integer nf_elatedef       ! Attempt to define var properties, like deflate, after enddef. 
  151       parameter (nf_elatedef = -123)
  152       integer nf_edimscale      ! Probem with HDF5 dimscales. 
  153       parameter (nf_edimscale = -124)
  154       integer nf_enogrp       ! No group found.
  155       parameter (nf_enogrp = -125)
  156 
  157 
  158 !     New functions.
  159 
  160 !     Parallel I/O.
  161       integer nf_create_par
  162       external nf_create_par
  163 
  164       integer nf_open_par
  165       external nf_open_par
  166 
  167       integer nf_var_par_access
  168       external nf_var_par_access
  169 
  170 !     Functions to handle groups.
  171       integer nf_inq_ncid
  172       external nf_inq_ncid
  173 
  174       integer nf_inq_grps
  175       external nf_inq_grps
  176 
  177       integer nf_inq_grpname
  178       external nf_inq_grpname
  179 
  180       integer nf_inq_grpname_full
  181       external nf_inq_grpname_full
  182 
  183       integer nf_inq_grpname_len
  184       external nf_inq_grpname_len
  185 
  186       integer nf_inq_grp_parent
  187       external nf_inq_grp_parent
  188 
  189       integer nf_inq_grp_ncid
  190       external nf_inq_grp_ncid
  191 
  192       integer nf_inq_grp_full_ncid
  193       external nf_inq_grp_full_ncid
  194 
  195       integer nf_inq_varids
  196       external nf_inq_varids
  197 
  198       integer nf_inq_dimids
  199       external nf_inq_dimids
  200 
  201       integer nf_def_grp
  202       external nf_def_grp
  203 
  204 !     New rename grp function
  205 
  206       integer nf_rename_grp
  207       external nf_rename_grp
  208 
  209 !     New options for netCDF variables.
  210       integer nf_def_var_deflate
  211       external nf_def_var_deflate
  212 
  213       integer nf_inq_var_deflate
  214       external nf_inq_var_deflate
  215 
  216       integer nf_def_var_fletcher32
  217       external nf_def_var_fletcher32
  218 
  219       integer nf_inq_var_fletcher32
  220       external nf_inq_var_fletcher32
  221 
  222       integer nf_def_var_chunking
  223       external nf_def_var_chunking
  224 
  225       integer nf_inq_var_chunking
  226       external nf_inq_var_chunking
  227 
  228       integer nf_def_var_fill
  229       external nf_def_var_fill
  230 
  231       integer nf_inq_var_fill
  232       external nf_inq_var_fill
  233 
  234       integer nf_def_var_endian
  235       external nf_def_var_endian
  236 
  237       integer nf_inq_var_endian
  238       external nf_inq_var_endian
  239 
  240       integer nf_def_var_filter
  241       external nf_def_var_filter
  242 
  243       integer nf_inq_var_filter
  244       external nf_inq_var_filter
  245 
  246 !     User defined types.
  247       integer nf_inq_typeids
  248       external nf_inq_typeids
  249 
  250       integer nf_inq_typeid
  251       external nf_inq_typeid
  252 
  253       integer nf_inq_type
  254       external nf_inq_type
  255 
  256       integer nf_inq_user_type
  257       external nf_inq_user_type
  258 
  259 !     User defined types - compound types.
  260       integer nf_def_compound
  261       external nf_def_compound
  262 
  263       integer nf_insert_compound
  264       external nf_insert_compound
  265 
  266       integer nf_insert_array_compound
  267       external nf_insert_array_compound
  268 
  269       integer nf_inq_compound
  270       external nf_inq_compound
  271 
  272       integer nf_inq_compound_name
  273       external nf_inq_compound_name
  274 
  275       integer nf_inq_compound_size
  276       external nf_inq_compound_size
  277 
  278       integer nf_inq_compound_nfields
  279       external nf_inq_compound_nfields
  280 
  281       integer nf_inq_compound_field
  282       external nf_inq_compound_field
  283 
  284       integer nf_inq_compound_fieldname
  285       external nf_inq_compound_fieldname
  286 
  287       integer nf_inq_compound_fieldindex
  288       external nf_inq_compound_fieldindex
  289 
  290       integer nf_inq_compound_fieldoffset
  291       external nf_inq_compound_fieldoffset
  292 
  293       integer nf_inq_compound_fieldtype
  294       external nf_inq_compound_fieldtype
  295 
  296       integer nf_inq_compound_fieldndims
  297       external nf_inq_compound_fieldndims
  298 
  299       integer nf_inq_compound_fielddim_sizes
  300       external nf_inq_compound_fielddim_sizes
  301 
  302 !     User defined types - variable length arrays.
  303       integer nf_def_vlen
  304       external nf_def_vlen
  305 
  306       integer nf_inq_vlen
  307       external nf_inq_vlen
  308 
  309       integer nf_free_vlen
  310       external nf_free_vlen
  311 
  312 !     User defined types - enums.
  313       integer nf_def_enum
  314       external nf_def_enum
  315 
  316       integer nf_insert_enum
  317       external nf_insert_enum
  318 
  319       integer nf_inq_enum
  320       external nf_inq_enum
  321 
  322       integer nf_inq_enum_member
  323       external nf_inq_enum_member
  324 
  325       integer nf_inq_enum_ident
  326       external nf_inq_enum_ident
  327 
  328 !     User defined types - opaque.
  329       integer nf_def_opaque
  330       external nf_def_opaque
  331 
  332       integer nf_inq_opaque
  333       external nf_inq_opaque
  334 
  335 !     Write and read attributes of any type, including user defined
  336 !     types.
  337       integer nf_put_att
  338       external nf_put_att
  339       integer nf_get_att
  340       external nf_get_att
  341 
  342 !     Write and read variables of any type, including user defined
  343 !     types.
  344       integer nf_put_var
  345       external nf_put_var
  346       integer nf_put_var1
  347       external nf_put_var1
  348       integer nf_put_vara
  349       external nf_put_vara
  350       integer nf_put_vars
  351       external nf_put_vars
  352       integer nf_get_var
  353       external nf_get_var
  354       integer nf_get_var1
  355       external nf_get_var1
  356       integer nf_get_vara
  357       external nf_get_vara
  358       integer nf_get_vars
  359       external nf_get_vars
  360 
  361 !     64-bit int functions.
  362       integer nf_put_var1_int64
  363       external nf_put_var1_int64
  364       integer nf_put_vara_int64
  365       external nf_put_vara_int64
  366       integer nf_put_vars_int64
  367       external nf_put_vars_int64
  368       integer nf_put_varm_int64
  369       external nf_put_varm_int64
  370       integer nf_put_var_int64
  371       external nf_put_var_int64
  372       integer nf_get_var1_int64
  373       external nf_get_var1_int64
  374       integer nf_get_vara_int64
  375       external nf_get_vara_int64
  376       integer nf_get_vars_int64
  377       external nf_get_vars_int64
  378       integer nf_get_varm_int64
  379       external nf_get_varm_int64
  380       integer nf_get_var_int64
  381       external nf_get_var_int64
  382 
  383 !     For helping F77 users with VLENs.
  384       integer nf_get_vlen_element
  385       external nf_get_vlen_element
  386       integer nf_put_vlen_element
  387       external nf_put_vlen_element
  388 
  389 !     For dealing with file level chunk cache.
  390       integer nf_set_chunk_cache
  391       external nf_set_chunk_cache
  392       integer nf_get_chunk_cache
  393       external nf_get_chunk_cache
  394 
  395 !     For dealing with per variable chunk cache.
  396       integer nf_set_var_chunk_cache
  397       external nf_set_var_chunk_cache
  398       integer nf_get_var_chunk_cache
  399       external nf_get_var_chunk_cache